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

test script

Back to: notes

Back to: Workspaces