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

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