Haskell程序计算所有偶数之和

本教程将帮助我们计算所有偶数之和。Haskell使用函数式编程范式，这意味着它使用函数来转换数据，而不是使用循环和变量来跟踪状态变化。在Haskell中，有不同的方法来计算1到100之间所有偶数的总和。

算法

第1步 – 程序的执行将从主函数开始。main()函数拥有程序的全部控制权。它被写成main = do。
第2步–列表理解[x | x <- [1…100], x mod 2 == 0]是生成一个1到100之间的偶数列表。x <- [1…100]部分定义了要迭代的数字范围，而x mod 2 == 0是过滤掉偶数的谓词。这个内置的函数将这个列表作为输入，并返回列表中所有数字的总和。
第3步 – 使用打印函数将结果显示在控制台。

例子1：使用列表理解法

在这个方法中，列表理解被用来生成一个1到100（包括）之间所有偶数的列表，然后使用sum函数来计算这些数字的总和。然后使用print将结果打印到控制台。

main :: IO()
main = print (sum [x | x <- [1..100], x `mod` 2 == 0])

输出

例2：使用foldl函数

在这个例子中，二进制函数是(+)，它接收当前累加器和列表中的当前元素，并返回两者之和。初始累加器的值是0，而列表中的值是1到100之间的偶数列表。foldl函数从初始累加器值开始，对其和列表中的第一个元素应用二进制函数，然后它取其结果并对其和列表中的第二个元素应用该函数，以此类推，直到处理完整个列表。

main :: IO()
main = print (foldl (+) 0 [x | x <- [1..100], x `mod` 2 == 0])

输出

例3：使用递归

这个例子使用递归来遍历1到100之间的数字列表，并将偶数加在一起。sumEven函数被定义为一个递归函数，它接收一个整数列表作为输入并返回一个整数。

sumEven :: [Integer] -> Integer
sumEven [] = 0
sumEven (x:xs) = if even x then x + sumEven xs else sumEven xs
main :: IO()
main = print (sumEven [1..100])