xrefs←{⎕ML←1                ⍝ Extract refs vector from array ⍵.
    9=⎕NC'⍵':,⍵             ⍝ scalar ref: ravel.
    ∪{                      ⍝ otherwise,
        ({⊃9=⎕NC'⍵'}¨⍵)/⍵   ⍝ extract refs from,
    }∊⍵                     ⍝ enlisted array.
}

code_colours

test script

Back to: notes

Back to: Workspaces