dist←{⎕ML←1                         ⍝ Levenshtein distance.
    a(n+1)(⍴⍺)+n←⍴⍵               ⍝ first row of matrix
    f←⍵{⌊\⍵⌊(⊃⍵),(¯1↓⍵)-1+⍺=⍺⍺}     ⍝ iteration step
    z←⊃f/(⌽⍺),⊂a                    ⍝ last row of matrix
    ⊃⌽z
}
code_colours

test script

Back to: notes

Back to: Workspaces