dab←{                                           ⍝ Drop All Blanks.
    ⎕ML←3 ⋄ ⍺←' ' ⋄ 1<≡⍵:(⊂⍺)∇¨⍵                ⍝ nested?
    1≥⍴⍴⍵:⍵~⍺                                   ⍝ vector
    2=⍴⍴⍵:⊃(↓⍵)~¨⊂⍺                             ⍝ matrix
    (¯1↓⍴⍵){(⍺,1↓⍴⍵)⍴⍵}⍺ ∇,[¯1↓⍳⍴⍴⍵]⍵           ⍝ array
}
code_colours

test script

Back to: notes

Back to: Workspaces