RosettaCodeData/Task/Caesar-cipher/OCaml/caesar-cipher-2.ml

10 lines
270 B
OCaml
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
let () =
let key = 3 in
let orig = "The five boxing wizards jump quickly" in
let enciphered = rot key orig in
print_endline enciphered;
let deciphered = rot (- key) enciphered in
print_endline deciphered;
Printf.printf "equal: %b\n" (orig = deciphered)
;;