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

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