Best shuffle: Difference between revisions

m
→‎{{header|OCaml}}: more explicit function name
m (→‎{{header|AutoHotkey}}: lines too long warning)
m (→‎{{header|OCaml}}: more explicit function name)
Line 1,245:
 
let () =
let ftest s =
let s2 = best_shuffle s in
Printf.printf " '%s', '%s' -> %d\n" s s2 (count_same s s2);
in
ftest "tree";
ftest "abracadabra";
ftest "seesaw";
ftest "elk";
ftest "grrrrrr";
ftest "up";
ftest "a";
;;</lang>