ascan←{⎕ML←1        ⍝ Associative scan.
    2>0⊥⍴⍵:⍵        ⍝ few items: done.
    ⌽↑⍺⍺{
        (⊂(⊃⍵)⍺⍺ ⍺),⍵
    }/⌽(⊂∘⊃¨↓⍵),↑1↓¨↓⍵
}

code_colours

test script

Back to: notes

Back to: Workspaces