11 lines
252 B
Haskell
11 lines
252 B
Haskell
|
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"]
|