-- Dada 1 lista devuelve true, si es palindromo (capicua) y false en caso contrario
palindrome :: [Int] -> Bool
palindrome [] = True
palindrome [x] = True
palindrome(x:xs) = reversa (x:xs) == (x:xs)
Comentarios sobre la versión: Versión 1 (2)