我知道我可以做到这一点...

isZero :: Int -> Bool
isZero x
  | x == 0      = True
  | otherwise   = False

但是我可以做这样的事情吗?
isPalindrome :: Int -> Bool
isPalindrome x
  let digitList = intToDigits x -- Decomposes the integer into
                                -- digits, i.e. 37 -> [3, 7]
  | digitList == reverse digitList                = True
  | otherwise                                     = False

这将导致编译错误,但我相信您知道我要做什么。

最佳答案

改用 where 子句

isPalindrome :: Int -> Bool
isPalindrome x
    | digitList == reverse digitList = True
    | otherwise                      = False
    where digitList = intToDigits x

当然,对于这个例子,我们可以跳过守卫并写
isPalindrome x = digitList == reverse digitList
    where digitList = intToDigits x

10-08 04:05