如何解决 Haskell 输入 'otherwise' 的解析错误

Question

我有一个函数 returns 从输入列表中找到的回文的一半列表。如果我在一行中使用 if 语句，它会起作用，但我想使用警卫。警卫给我一个解析错误。我读了很多给出这种错误的案例，但我没有弄清楚我的案例。这是代码：

palindromeHalfs :: [String] -> [String]
palindromeHalfs xs = map firstHalf (filter palindrome xs)
    where
    firstHalf :: String -> String
    firstHalf ys | (length ys) `rem` 2 == 0 = take ((div (length ys 2)) ys
                 | otherwise                = take ((div (length ys 2) + 1) ys
    palindrome :: String -> Bool
    palindrome str | str == reverse str = True
                   | otherwise          = False

错误：

palindromeHalfs.hs:6:20: error: parse error on input `otherwise'
  |
6 |                  | otherwise                = take ((div (length ys 2) + 1) ys
  |                    ^^^^^^^^^

如果我替换

，该功能有效

firstHalf ys | (length ys) `rem` 2 == 0 = take ((div (length ys 2)) ys
             | otherwise                = take ((div (length ys 2) + 1) ys

和

firstHalf ys = if (length (ys !! 0)) `rem` 2 == 0 then take ((div (length (ys !! 0)) 2)) ys 
                                                  else take ((div (length (ys !! 0)) 2) + 1) ys

在我的代码中，if 语句是一行，这里放不下。如果有人能告诉我哪个是首选，if 或 guards，我将不胜感激。当然，为什么我的守卫不起作用。

Answer 1

括号不平衡

take ((div (length ys 2)) ys

至于样式，在可以使用任何一种的情况下，守卫比 if/else 更受青睐。还要注意 even :: Integral a => a -> Bool 是一个存在的函数；你不必用 rem.

发明它

如何解决 Haskell 输入 'otherwise' 的解析错误

How to solve Haskell parse error on input 'otherwise'

haskell

parse-error

guard-clause