对于Haskell，我喜欢
let s n = sum [0,n..999] in s 3 + s 5 - s 15
要么
sum $ filter ((>1).(gcd 15)) [0..999]
有趣的Rube-Goldberg版本：
import Data.Bits
sum $ zipWith (*) [1..999] $ zipWith (.|.) (cycle [0,0,1]) (cycle [0,0,0,0,1])
好的，解释时间。
第一个版本定义了一个小函数s，该函数将n的所有倍数加总为999。如果我们将3的所有倍数与5的所有倍数相加，则我们将15的所有倍数相加两次（每个列表一次），因此我们需要减去一次。
第二个版本使用3和5是质数这一事实。如果一个数字包含因子3和5中的一个或两个，则该数字和15的gcd将为3、5或15，因此在每种情况下，gcd都将大于1。对于没有公因数的其他数字15，gcd变为1。这是一步测试两个条件的好技巧。但是要小心，它不适用于任意数字，例如当我们有4和9时，测试gdc x 36 > 1将不起作用，因为gcd 6 36 == 6，但都不mod 6 4 == 0是mod 6 9 == 0。
第三个版本很有趣。cycle一遍又一遍地重复一个列表。cycle [0,0,1]将“除数模式”编码为3，cycle [0,0,0,0,1]然后对5进行编码。然后我们使用来“或”将两个列表一起使用zipWith，从而得出[0,0,1,0,1,1,0,0,1,1,0,1...]。现在，我们zipWith再次使用乘以实际数字，得出[0,0,3,0,5,6,0,0,9,10,0,12...]。然后我们将其加起来。
知道做同一件事的不同方法对于其他语言可能会很浪费，但是对于Haskell而言，这是必不可少的。您需要发现模式，掌握技巧和习惯用法，并进行大量练习，才能获得有效使用该语言的思维灵活性。诸如项目Euler问题之类的挑战是这样做的好机会。
602392714
清零编程群