haskell 如果错误

Question

我正在 Haskell 中开发回文检查器，但我们必须使用 head 和 last。我的错误与 if 语句有关，但我尝试了许多变体，但我无法弄清楚为什么 if 是一个问题。请帮忙!谢谢!

palindrome2::String->Bool
palindrome2 xs = while xs==notEmpty if head xs == last xs then True else False

Answer 1

检查字符串是否为回文的最简单方法可能是检查它是否等于其自身的反转版本:

isPalindrome :: String -> Bool
isPalindrome str = str == reverse str

但是既然您说必须使用 head 和 tail，我将演示使用这些函数的实现:

palindrome2::String -> Bool
palindrome2 [] = True
palindrome2 xs = head xs == last xs && palindrome2 (take (length xs - 2) (tail xs))

我不确定你想用 while 做什么。也许命令式语言会带来某种困惑？此实现以递归方式工作，检查列表的头部是否等于最后一项，如果相等则嵌套到列表中。如果第一项和最后一项不相等(字符串不是回文)，或者达到基本情况(字符串是回文)，则计算终止。

请注意，第一个实现效率更高。