[极短]数字求和

题目

写一个函数求，返回s以内所有3或5的倍数的和。

参数

整数 s

思考

1. 遍历区间把所有数字加起来。
2. 容斥原理+数列求和

由于方法二数学味道较浓所以我们选择第一种书写代码。

代码

haskell（1行）

fn s = sum [ x | x <- [ 1..s-1 ] , mod x 3 == 0 || mod x 5 == 0 ]