8 lines
244 B
BQN
8 lines
244 B
BQN
in←>•FLines"input"
|
||
|
||
a←⌽∘⍉⍟(↕4)in
|
||
UpperDiags←{(⌽1+↕≠𝕩)↑¨<˘⍉(↕∘≠⌽˘⊢)𝕩}
|
||
d←∾1⊸↓¨∾¨⌽⍟0‿1¨¨UpperDiags¨a
|
||
na←+´+´∘⥊¨"XMAS"⊸⍷¨a
|
||
nd←+´+´¨"XMAS"⊸⍷¨d
|
||
•Show na+nd
|