ch-2.bqn « bqn « aecepoglu « challenge-059 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-059/aecepoglu/bqn/ch-2.bqn

blob: 0e111c3f9b9195fc16325d79cc507094944988a7 (plain)

_dc←{⌽𝕗|⌊∘÷⟜𝕗⍟(↕1+·⌊𝕗⋆⁼1⌈⊢)}
F←{+´≠´((⌈´≠¨)-⊸↑¨⊢)(2 _dc⊢)¨𝕩}

+´F¨(((2=+´¨)⊸/∘(⥊∘↕2⥊˜≠))/¨<∘⊢) 2‿3‿4