TreeMatrix.aplf « apl « richard-park « challenge-057 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-057/richard-park/apl/TreeMatrix.aplf

blob: 4b6ec805a5cf50bb95d6aed3150dda798633738f (plain)

 TreeMatrix←{
     ⎕IO←0
     ⍺←0
     r←⍵(∨⌿∘.=)⍨,⍺
     c←⍸r
     0≡⍺:(↑1(0@0⊢r))⍪(1↓c)∇ ⍵
     ⍬≡c:⍬⍴⍨0,⍴⍵
     r⍪(c ∇ ⍵)
 }