輸入時Haskell-解析錯誤

Question

我有以下代碼，它將列表中的每個偶數減半：

halfEvens :: [Int] -> [Int]
halfEvens [xs]  
   | x `mod` 2 == 0 = x `div` 2
   | otherwise      = x
   where x <- xs

我收到以下錯誤：

parse error on input '<-'

我很小心所以我尊重縮進......任何其他想法我做錯了什么？

Answer 1

您的代碼中有兩個主要問題：

1. where block定義了函數，因此，你應該使用=而不是<-
2. 您的函數接受內部只有一個元素的列表

而不是它我建議你寫單獨的函數halfIfEven ：

Prelude> let halfIfEven x = if even x then x `div` 2 else x

然后使用map定義halfEvens ：

Prelude> let halfEvens = map halfIfEven
Prelude> halfEvens [1..10]
[1,1,3,2,5,3,7,4,9,5]

但是，當然，您可以使用模式匹配來編寫它，盡管它不太可讀：

halfIfEven :: Int -> Int
halfIfEven x | even x    = x `div` 2
             | otherwise = x

halfEvens :: [Int] -> [Int]
halfEvens []     = []
halfEvens (x:xs) = (halfIfEven x):(halfEvens xs)