blob: c329de9dab3e36937886457aa73992f23c19c90d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
;;;;
;; Multiples of 3 or 5
;; Problem 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.
;;;;
(load "utils.scm")
(define +top+ 1000)
(define result
(sum
(filter
(lambda (x) (or (= 0 (modulo x 3)) (= 0 (modulo x 5))))
(range 1 +top+ 1))))
(display result)
|
