31 lines
805 B
Text
31 lines
805 B
Text
let tests = [
|
|
"Soundex", "S532";
|
|
"Example", "E251";
|
|
"Sownteks", "S532";
|
|
"Ekzampul", "E251";
|
|
"Euler", "E460";
|
|
"Gauss", "G200";
|
|
"Hilbert", "H416";
|
|
"Knuth", "K530";
|
|
"Lloyd", "L300";
|
|
"Lukasiewicz", "L222";
|
|
"Ellery", "E460";
|
|
"Ghosh", "G200";
|
|
"Heilbronn", "H416";
|
|
"Kant", "K530";
|
|
"Ladd", "L300";
|
|
"Lissajous", "L222";
|
|
"Wheaton", "W350";
|
|
"Ashcraft", "A226";
|
|
"Burroughs", "B622";
|
|
"Burrows", "B620";
|
|
"O'Hara", "O600";
|
|
]
|
|
|
|
let () =
|
|
print_endline " Word \t Code Found Status";
|
|
List.iter (fun (word, code1) ->
|
|
let code2 = soundex word in
|
|
let status = if code1 = code2 then "OK " else "Arg" in
|
|
Printf.printf " \"%s\" \t %s %s %s\n" word code1 code2 status
|
|
) tests
|