ホーム - 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 answer-1
  (fold-left
    (lambda (sum current)
      (if (or
            (zero? (mod current 3))
            (zero? (mod current 5)))
        (+ sum current)
        sum))
    0
    (iota 1000)))

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