Initial commit

2022/day05/day05.bqn

@@ -0,0 +1,22 @@
+str←•Import"../bqn-libs/strings.bqn"
+
+stacks‿proc←(@+2⥊10)str.Split•FChars⊑•args
+stacks↩⍉¯1↓>(@+10)str.Split stacks
+stacks↩' '⊸≠⊸/¨<˘((≠stacks)⥊0‿1‿0‿0)/stacks
+proc↩>str.ToNats¨¯1↓(@+10)str.Split proc
+# •Show stacks
+
+Move←{
+stacks𝕊⟨n,x,y⟩:
+    x‿y ¯1⊸+↩
+    crates←n↑x⊑stacks
+    stacks↩(n⊸↓)⌾(x⊸⊑)stacks
+    stacks↩(crates⊸∾)⌾(y⊸⊑)stacks;
+𝕨𝕊⟨x,y⟩: 𝕨𝕊⟨1,x,y⟩
+}
+
+stacks1 ← (<stacks) Move` <˘(⊑˘/1⊸↓˘)proc
+•Out ∾´⊏¨¯1⊑stacks1
+
+stacks2 ← (<stacks) Move` <˘proc
+•Out ∾´⊏¨¯1⊑stacks2