about summary refs log blame commit diff
path: root/users/sterni/exercises/aoc/2022/05/5.bqn
blob: b3d190b9fc773eaec9f0de32269f00eb3b17fd59 (plain) (tree)
1
2
3
4
5
6
7
8
9
10




                                                                
                                                                                           



                                                                                    
               


                                                 



                                                          
⟨ReadDec, SplitOn, IsAsciiNum⟩ ← •Import "../../lib.bqn"
rs‿rc ← (<"") SplitOn •FLines "../05/input"

stacks ← {
  count ← '0'-˜⊑⌽' ' (≠/⊢) ⊑⌽rs
  ' ' (≠/⊢)¨⥊⋈˘ (count×4) ((»∘(0⊸=)∘(4⊸|)∘↕⊣)/↑) ⍉> (-1)↓rs
}

cmds ← {0‿1‿1-˜ ReadDec¨ ((∧´IsAsciiNum)¨/⊢) (<' ') SplitOn 𝕩}¨ rc

_ApplyCmd ← {
  s Fn _self c‿f‿t :
  m‿k ← 2↑ c ((≤⟜(↕≠))⊔⊢) f⊑s
  (Fn m)⊸∾⌾(t⊸⊑) k˙⌾(f⊸⊑) s
}

•Out "day05.1: "∾⊑¨stacks ⌽_ApplyCmd˜´ ⌽ cmds
•Out "day05.2: "∾⊑¨stacks ⊢_ApplyCmd˜´ ⌽ cmds