12 lines
428 B
BQN
12 lines
428 B
BQN
inp←>'0'-˜•FLines⊑•args
|
||
Vis←{>∊¨⌈`¨<˘𝕩}
|
||
•Show +´⥊∨´⟨⊢,⌽˘,⍉,(⌽˘⍉)⁼⟩{𝕎𝕩}¨Vis¨⟨⊢,⌽˘,⍉,⌽˘⍉⟩{𝕎𝕩}¨4⥊<inp
|
||
Score←{m𝕊⟨x,y⟩:
|
||
v←x‿y⊑m
|
||
up←⌽x↑y⊏˘m
|
||
left←⌽y↑x⊏m
|
||
right←(y+1)↓x⊏m
|
||
down←(x+1)↓y⊏˘m
|
||
×´{(≠𝕩)⌊1++´∧`v>𝕩}¨up‿left‿right‿down
|
||
}
|
||
•Show ⌈´⥊inp⊸Score¨↕≢inp
|