type←{                      ⍝ Widen ⍵ to type ⍺.
    val ok←(⎕DR ⍵)⍺ ⎕DR ⍵   ⍝ New elements and mask.
    ∧/,ok:val               ⍝ New array if all ok.
}

code_colours

test script

Back to: notes

Back to: Workspaces