day05.bqn


1
2
3
4
5
6

str←•Import"bqn-libs/strings.bqn"
d ← {•BQN¨∾{"," str.Split 𝕩}¨ " -> " str.Split 𝕩}¨ •FLines"day05"

Line ← {s<⊸+(<×e-s)×↕1+⌈´|(e←2↓𝕩)-(s←2↑𝕩)}
•Out +´1=⊒∾Line¨d /˜ 0=×´˘(>d)-2⌽˘>d
•Out +´1=⊒∾Line¨d