17a done

diff --git a/17/17a.bqn b/17/17a.bqn
index 9ab312d66fe5e9a27299722ec377d83ebdc80b07..1cf6d08ad8cc4d7cc5b7e97a3b3f3af50dc6b596 100644 (file)
--- a/17/17a.bqn
+++ b/17/17a.bqn
@@ -27,24 +27,26 @@ Space←{+´2=+˝˘𝕩}
 
 Main←{𝕊 jets:
   arena←⟨1,9⟩⥊1
+  jetpos←0
   {
     falling←((≠rocks)|𝕩)⊑rocks
     arena Extend⍟((3+≠falling)-(Space arena)) ↩
     ⟨fallen, fallenpos⟩ ← { 𝕊 ⟨falling,fallpos⟩:
       fallpos ↩ 1+fallpos
-      jet←((≠jets)|fallpos)⊑jets
+      jet←jetpos⊑jets
+      jetpos↩(≠jets)|1+jetpos
       shifted ← Jet falling
       obstructed ← ∨´⥊shifted∧(≠shifted)↑fallpos↓arena
       falling ↩ obstructed ⊑ ⟨shifted,falling⟩
-      •Show ⟨fallpos,falling∨(≠shifted)↑fallpos↓arena⟩
+      #•Show ⟨fallpos,falling∨(≠shifted)↑fallpos↓arena⟩
       ⟨falling,fallpos⟩
     } •_while_ { 𝕊 ⟨falling,fallpos⟩:
       ¬∨´⥊falling∧(≠falling)↑(1+fallpos)↓arena
     } ⟨falling,¯1⟩
     arena↩ {𝕩∨fallen}⌾{((≠fallen)⊸↑)∘(fallenpos⊸↓)} arena
-    •Show arena⊏".#"
-  }¨↕10
-  @
+    #•Show arena⊏".#"
+  }¨↕2022
+  (≠arena)-(1+Space arena)
 }
 
 •Show Main Prep ⊑•file.Lines ⊑•args