12 lines
323 B
BQN
12 lines
323 B
BQN
|
⟨SplitOn, ReadDec⟩ ← •Import "../../lib.bqn"
|
|||
|
|
|
|||
|
|
Sections ← {
|
|||
|
|
a‿b ← ReadDec¨ (<'-') SplitOn 𝕩
|
|||
|
|
↕⌾(-⟜a) 1+b
|
|||
|
|
}
|
|||
|
|
i ← ∘‿2⥊Sections¨ ∾(<',') SplitOn¨ •FLines "input"
|
|||
|
|
Is ← ∊´∘((⍋≠¨)⊏⊢)
|
|||
|
|
|
|||
|
|
•Out "day04.1: "∾•Fmt +´(∧´Is)˘ i
|
|||
|
|
•Out "day04.2: "∾•Fmt +´(∨´Is)˘ i
|