ucase←{                                         ⍝ Upper-casification,
    lc←'abcdefghijklmnopqrstuvwxyzåäöàæéñøü'    ⍝ (lower case alphabet)
    uc←'ABCDEFGHIJKLMNOPQRSTUVWXYZÅÄÖÀÆÉÑØÜ'    ⍝ (upper case alphabet)
    (⍴⍵)(uc,,⍵)[(lc,,⍵)⍳⍵]                     ⍝ ... of simple array.
}
code_colours

test script

Back to: notes

Back to: Workspaces