lulzette/haskell-encodings
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

simpliest decoding

Browse Source
This commit is contained in:
lulzette 2021-05-19 11:57:14 +03:00
parent 3ef907f3e3
commit 2876af419e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Main.hs
View File

@ -32,12 +32,16 @@ simpliestEnc :: String -> String
simpliestEnc input = simpliestEnc input =
map (\x -> chr(ord(x) + 1)) input map (\x -> chr(ord(x) + 1)) input
simpliestDec :: String -> String
simpliestDec input =
map (\x -> chr(ord(x) - 1)) input
main :: IO () main :: IO ()
main = do main = do
putStrLn "Simpliest encoding, just +1 to each letter:" putStrLn "Simpliest encoding, just +1 to each letter:"
print (simpliestEnc "abcdefz") print (simpliestEnc "abcdefz")
putStrLn "atbash Encryption:" print . simpliestDec $ "bcdefg{"
putStrLn "atbash Encryption, changing 1 alphabet to another:"
print . atbashEnc $ "test" print . atbashEnc $ "test"
print . atbashDec $ ( atbashEnc "test" ) print . atbashDec $ ( atbashEnc "test" )