Add Haskell Palindrome (#120)

strings/README.md

@@ -32,3 +32,7 @@
 
 1. [Palindrome Check](rust/palindrome/README.md)
 
+### Haskell
+
+1. [Palin Check](haskell/palindrome.hs)
+

strings/haskell/palindrome.hs

@@ -0,0 +1,10 @@
+import Control.Monad (ap)
+
+isPalindrome :: String -> Bool
+isPalindrome s = s == reverse s
+
+-- point-free style
+isPalindrome2 :: String -> Bool
+isPalindrome2 = ap (==) reverse
+
+main = traverse print $ isPalindrome <$> ["abba", "abbcccbba", "abbccbbba"]