newLISP练习 - 001 (Multiples of 3 and 5)

原题：欧拉计划 问题 1

If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.

Find the sum of all the multiples of 3 or 5 below 1000.

如果我们列出10以内所有3或5的倍数，我们将得到3、5、6和9，这些数的和是23。

求1000以内所有3或5的倍数的和。

------------------------------------------思考线---------------------------------------------------------------

最容易想到的是循环，从 1 算到 999，累加所有符合要求的数

;; 循环版本

(define (foo up-bound)
    (let ((result 0))
        (dotimes (i up-bound)
            (if (or (zero? (% i 3)) (zero? (% i 5)))
                (inc result i)))))

(println (foo 1000))          ; 注意 dotimes 循环 1000 次， 也就是从 0 到 999
(exit)

更“lisp“的版本：

;; 运用 apply, filter 等元函数

(define (factor-3-or-5? num)
    (or (zero? (% num 3)) (zero? (% num 5))))

(define (foo up-bound)
    (apply + (filter factor-3-or-5? (sequence 1 up-bound))))

(println (foo 999))        ; sequence 从 1 到 999
(exit)