summaryrefslogblamecommitdiff
path: root/1-10/6.hs
blob: 24f4d8ca055216d5c002ab56a16d5d57a4a21f23 (plain) (tree)
1
2
3


                                                                                 
import Data.List
isPalindrome :: Eq a => [a] -> Bool
isPalindrome l = foldl' (\flag (a, b) -> flag && a == b) True (zip l (reverse l))