99-haskell-problems/Problems 1-10/problem_06.hs

2 lines
89 B
Haskell

isPalindrome :: (Eq a) => [a] -> Bool
isPalindrome = (==) <$> foldl (flip (:)) [] <*> id