17a starting to work

need to not restart jet sequence for each rock, though

diff --git a/17/17a.bqn b/17/17a.bqn
new file mode 100644 (file)
index 0000000..9ab312d
--- /dev/null
+++ b/17/17a.bqn
@@ -0,0 +1,50 @@
+rocks←⟨
+  ["...####.."]
+
+  ["....#...."
+   "...###..."
+   "....#...."]
+
+  [".....#..."
+   ".....#..."
+   "...###..."]
+
+  ["...#....."
+   "...#....."
+   "...#....."
+   "...#....."]
+
+  ["...##...."
+   "...##...."]
+⟩
+rocks ".#"⊸⊐¨↩ # Convert to boolean array
+
+Prep←(⊏⟜⟨«˘,»˘⟩)∘("<>"⊸⊐)
+
+Extend←⟨1,0,0,0,0,0,0,0,1⟩⊸∾
+
+Space←{+´2=+˝˘𝕩}
+
+Main←{𝕊 jets:
+  arena←⟨1,9⟩⥊1
+  {
+    falling←((≠rocks)|𝕩)⊑rocks
+    arena Extend⍟((3+≠falling)-(Space arena)) ↩
+    ⟨fallen, fallenpos⟩ ← { 𝕊 ⟨falling,fallpos⟩:
+      fallpos ↩ 1+fallpos
+      jet←((≠jets)|fallpos)⊑jets
+      shifted ← Jet falling
+      obstructed ← ∨´⥊shifted∧(≠shifted)↑fallpos↓arena
+      falling ↩ obstructed ⊑ ⟨shifted,falling⟩
+      •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 Main Prep ⊑•file.Lines ⊑•args