@ -23,3 +23,12 @@ Day3 ⇐ {
(A⋈B) •FLines 𝕩
}
# ⟨ 7683 2488 ⟩
Day4 ⇐ {
Line ← •BQN∘> '‿'⍟(∊⟜"-,")¨ # hehe
A ← {a‿b‿c‿d:(∧´c‿b≥¨a‿d)∨∧´d‿a≥¨b‿c}
B ← {a‿b‿c‿d:(∧´c‿b≥¨a‿c)∨∧´a‿d≥¨c‿a}
+´˘⍉>((A⋈B)Line)¨•FLines𝕩
# ⟨ 536 845 ⟩
# •Show Day4 ⊑•args