将列表的平均值除以2

Question

halveEvens :: [Int] -> [Int] 
halveEvens xs = [if xs == even then 'div' 2 xs | x<-xs]

嘿，我试图在haskell中写下一些代码，这些代码将从列表中取出并将它们除以2。我真的很陌生，所以我遇到了一些麻烦。有没有人可以让我走上正轨？我想用列表理解来实现这个目标！

Answer 1

在您的函数中，xs是一个列表even is a function，用于检查Integral是否为偶数。

要使用类似运算符的函数，请将其括在后引号中，如下所示：x `div` 2。

halveEvens :: [Int] -> [Int]
halveEvens = map halveOneEven

halveOneEven :: Int -> Int
halveOneEven x = if (even x) then (x `div` 2) else x

Answer 2

在逗号后使用列表理解和后卫：

halveEvens xs = [x `div` 2 | x<-xs, even x]

您可以将其作为数学定义阅读：从x获取偶数的所有xs值，并收集将它们分成列表的结果。在ghci中，您可以使用:t检查类型并使其匹配（xs类型为[Int]，x为Int，并且even是(Integral a) => a -> Bool）。