2022-12-02 01:19:46 -05:00
|
|
|
|
# a‿b Sub x: the b-length subarray starting at a
|
|
|
|
|
Sub ⇐ {a‿b𝕊𝕩:b↑a↓𝕩}
|
|
|
|
|
|
|
|
|
|
# e Split xs: split xs on occurrences of e (default 0)
|
|
|
|
|
Split ⇐ {Sub⟜𝕩¨ ((1+») ⋈¨ ⊢-») /(𝕨⊣0)=𝕩}
|
|
|
|
|
|
2022-12-01 15:09:48 -05:00
|
|
|
|
Day1 ⇐ {
|
2022-12-02 01:19:46 -05:00
|
|
|
|
sums ← ∨+´¨ Split •BQN⎊0¨ •FLines 𝕩
|
|
|
|
|
⟨⊑sums, +´3↑sums⟩
|
2022-12-01 14:37:22 -05:00
|
|
|
|
}
|
2022-12-01 15:09:48 -05:00
|
|
|
|
•Show Day1 ⊑•args
|