Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (7 sloc) 231 Bytes
isPalindrome :: (Eq a) => [a] -> Bool
isPalindrome x = x == reverse x
main = do
print $ isPalindrome "abcd"
print $ isPalindrome "abba"
print $ isPalindrome "aba"
print $ isPalindrome ""