b8afed6dd4
Change-Id: Ic536908bad5bb4af860ec53bd585ed74af3117af Reviewed-on: https://cl.tvl.fyi/c/depot/+/7557 Tested-by: BuildkiteCI Autosubmit: sterni <sternenseemann@systemli.org> Reviewed-by: sterni <sternenseemann@systemli.org>
18 lines
609 B
BQN
18 lines
609 B
BQN
⟨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
|