dmb←{                                        ⍝ Drop Multiple Blanks.
    ⍺←' ' ⋄ 1<|≡⍵:(⊂⍺)∇¨⍵                    ⍝ nested?
    2<⍴⍴⍵:(¯1↓⍴⍵){(⍺,1↓⍴⍵)⍴⍵}⍺ ∇,[¯1↓⍳⍴⍴⍵]⍵  ⍝ array
    2>⍴⍴⍵:(2∨/(~⍵∊⍺),1)/⍵                    ⍝ vector
    (2∨/(,∨⌿~⍵∊⍺),1)/⍵                       ⍝ matrix
}

code_colours

test script

Back to: notes

Back to: Workspaces