Explorar o código

Implement main to call cesar

DricomDragon %!s(int64=5) %!d(string=hai) anos
pai
achega
1961f6327e
Modificáronse 1 ficheiros con 3 adicións e 0 borrados
  1. 3 0
      io_cesar.hs

+ 3 - 0
io_cesar.hs

@@ -5,3 +5,6 @@ import Data.Char
 cechar c = chr ((mod ((ord c) + 13 - ord 'a') ((ord 'z') - ord 'a'  + 1)) + ord 'a')
 
 cesar = map cechar
+
+main::IO ()
+main = getLine >>= putStrLn.cesar