7 lines
225 B
Text
7 lines
225 B
Text
let () =
|
|
let e = encode "aaaaahhhhhhmmmmmmmuiiiiiiiaaaaaa" in
|
|
List.iter (fun (c,n) ->
|
|
Printf.printf " (%c, %d);\n" c n;
|
|
) e;
|
|
print_endline (decode [('a', 5); ('h', 6); ('m', 7); ('u', 1); ('i', 7); ('a', 6)]);
|
|
;;
|