From 98329e0a3dd4f78b5d815ac3896272ec70904901 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Thu, 11 Dec 2025 10:28:11 +0100 Subject: Add remaining haskell book exercises --- Haskell-book/13/Palindrome.hs | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 Haskell-book/13/Palindrome.hs (limited to 'Haskell-book/13/Palindrome.hs') 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 -- cgit v1.2.3