14 lines
278 B
BQN
14 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
|