Add remaining haskell book exercises

1 files changed, 20 insertions, 0 deletions

diff --git a/Haskell-book/13/Palindrome.hs b/Haskell-book/13/Palindrome.hs
new file mode 100644
index 0000000..439c980
--- /dev/null
+++ b/Haskell-book/13/Palindrome.hs
@@ -0,0 +1,20 @@
+module Palindrome where
+
+import Control.Monad
+import Data.Char
+import System.Exit
+
+format :: String -> String
+format s = filter (\x -> x >= 'a' && x <= 'z') (map toLower s)
+
+palindrome :: IO ()
+palindrome = forever $ do
+    line1 <- getLine
+    case ((format line1) == (format $ reverse line1)) of
+      True -> putStrLn "It's a palindrome!"
+      False -> do
+          putStrLn "Nope!"
+          exitSuccess
+
+main :: IO ()
+main = palindrome