在haskell制作回文

Question

您好我正在尝试编写一个函数，它接受一个字符串并使其成为一个回文。 EX ace成为aceeca。

Answer 1

非常简单，只需将反转的字符串连接到自身上即可。

palindrome s = s ++ reverse s

++是列表连接函数。

让我指出Real World Haskell。如果你刚开始学习这本书，这本书是一本很好的书。

Answer 2

palindrome [] = []
palindrome (x:xs) = append (x:(palindrome xs)) x
  where append (x:xs) y = x:(append xs y)
        append [] y = [y]