在列表中除以偶数

Question

我试图将列表中偶数的一半

halfEvens :: [Int] -> [Int]
halfEvens xs = [x `div` 2 | x -> xs, even x]

错误是错误：输入'->'上的解析错误

这是什么意思，以及如何解决？ 谢谢

Answer 1

如果要将奇数保留在列表中：

halfEvens :: [Int] -> [Int]
halfEvens = map (\x -> if (x `mod` 2) == 0 then x `div` 2 else x)

Answer 2

halfEvens :: [Int] -> [Int]
halfEvens xs = [x `div` 2 | x <- xs, even x]

x <- xs被读取，因为x 是从 xs 提取的 。

Answer 3

它与您的->的应用程序有关，基本上->是一个中缀类型运算符，也称为函数arrow（function builder），其目的是将左侧的参数应用于右侧，因此from -> to but列表comprehension与<-一起使用 ，这将执行IO操作并将其绑定到左参数，因此to <- from -from绑定到您的函数的一个小修正：

halfEvens :: [Int] -> [Int]
halfEvens xs = [x `div` 2 | x <- xs, even x]

[编辑：从这里忽略其他任何内容] ========================================= ================================

但是，如果您尝试将所有偶数除以2，那么您做错了，因为此函数将仅返回偶数，而丢弃所有其他数。

halfEvens :: [Int] -> [Int]
halfEvens [] = []
halfEvens (x:xs) = if even x then x `div` 2 : halfEvens else x : halfEvens

这将是正确的方法，@ AlexJ136答案也很明确，这似乎比我的要有效得多，所以我会去做。