ホーム - Project Euler

Problem 1¶

Multiples of $3$ or $5$¶

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$.

3と5の倍数¶

10未満の自然数のうち, 3 もしくは 5 の倍数になっているものは 3, 5, 6, 9 の4つがあり, これらの合計は 23 になる.
同じようにして, 1000 未満の 3 か 5 の倍数になっている数字の合計を求めよ.

#!r6rs
#!chezscheme

(import (chezscheme))

(define (3or5-multiple-numbers num)
  (filter
    (lambda (n)
      (or
        (zero? (mod n 3))
        (zero? (mod n 5))))
    (iota num)))

(define answer-1
  (apply + (3or5-multiple-numbers 1000)))

(printf "1: ~D~%" answer-1)