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