Soundex: Difference between revisions
Content deleted Content added
Line 160: | Line 160: | ||
local dig,i,x |
local dig,i,x |
||
static con |
static con |
||
initial { # |
initial { # construct mapping x[i] => i all else . |
||
x := ["bfpv","cgjkqsxz","dt","l","mn","r"] |
x := ["bfpv","cgjkqsxz","dt","l","mn","r"] |
||
every ( dig := con := "") ||:= repl(i := 1 to *x,*x[i]) do con ||:= x[i] |
every ( dig := con := "") ||:= repl(i := 1 to *x,*x[i]) do con ||:= x[i] |