Project Euler

[ホーム](https://redmine.noppi.jp) - [[Wiki|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 の倍数になっている数字の合計を求めよ.

```scheme

#!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)

```