diff options
Diffstat (limited to 'users/sterni/exercises/aoc/2022/05/5.bqn')
| -rw-r--r-- | users/sterni/exercises/aoc/2022/05/5.bqn | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/users/sterni/exercises/aoc/2022/05/5.bqn b/users/sterni/exercises/aoc/2022/05/5.bqn new file mode 100644 index 0000000000..e65975db94 --- /dev/null +++ b/users/sterni/exercises/aoc/2022/05/5.bqn @@ -0,0 +1,20 @@ +⟨ReadDec, SplitOn, IsAsciiNum⟩ ← •Import "../../lib.bqn" +rs‿rc ← (<"") SplitOn •FLines "../05/input" + +stacks ← { + count ← '0'-˜⊑⌽' ' (≠/⊢) ⊑⌽rs + spec ← 0<(-1)↓(-1)⌽∾(∾⟜0‿0‿0)¨1+↕count + ' ' (≠/⊢)¨⥊⋈˘⍉>spec⊸/¨(-1)↓rs +} + +cmds ← {0‿1‿1-˜ ReadDec¨ ((∧´IsAsciiNum)¨/⊢) (<' ') SplitOn 𝕩}¨ rc + +ModestTake ← ↑⍟(<⟜≠) +_ApplyCmd ← { + c‿f‿t ← 𝕩 + m ← 𝔽 c ModestTake f⊑𝕨 + (m⊸∾)⌾(t⊸⊑) (c⊸↓)⌾(f⊸⊑)𝕨 +} + +•Out "day05.1: "∾⊑¨stacks ⌽_ApplyCmd˜´ ⌽ cmds +•Out "day05.2: "∾⊑¨stacks ⊢_ApplyCmd˜´ ⌽ cmds |