在 Haskell 中制作回文

Question

我正在尝试编写一个函数，该函数接受一个字符串并从中生成一个回文。

例如，ace 变为 aceeca。

Answer 1

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

palindrome s = s ++ reverse s

++ 是列表串联函数。

让我向您指出真实世界的 Haskell。如果您刚刚开始学习该语言，这是一本很好的书。

Answer 2

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