Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
caesar_cipher : Int -> String -> String
caesar_cipher shift input =
let cipher = chr . (+ shift) . ord
in pack $ map cipher (unpack input)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment