-- Exercise 5 in chapter 3 of "Real World Haskell"
isPalindrome :: (Eq a) => [a] -> Bool
isPalindrome []                              = True
isPalindrome ys@(x:xs) | odd (length ys)     = False
isPalindrome ys@(x:xs) | ys == (reverse ys)  = True
isPalindrome (x:xs)                          = False
