13 lines
278 B
BQN
13 lines
278 B
BQN
Tails ⇐ (1⊸↓)⍟(↕∘≠⊢)
|
||
|
||
Sym ⇐ ∧´∘⥊ ⌽=⊢
|
||
|
||
Centers ⇐ { ⌊ (↕≠𝕩) { 𝕨+ 2÷˜ 𝕨-˜ ≠𝕩} 𝕩 }
|
||
|
||
VC ⇐ (⊑/˜) Centers×Sym¨∘Tails
|
||
HC ⇐ VC⍉
|
||
|
||
VCenter ⇐ VC⌈(VC⌽˘)
|
||
HCenter ⇐ HC⌈(HC⌽)
|
||
|
||
Score ⇐ (100×VCenter) + HCenter
|