7 lines
178 B
Tcl
7 lines
178 B
Tcl
|
package require soundex
|
||
|
|
|
||
|
|
foreach string {"Soundex" "Example" "Sownteks" "Ekzampul"} {
|
||
|
|
set soundexCode [soundex::knuth $string]
|
||
|
|
puts "\"$string\" has code $soundexCode"
|
||
|
|
}
|