Project Euler

[ホーム](https://redmine.noppi.jp) - [[Wiki|Project Euler]]

# [[Problem 5]]

```scheme

#!r6rs

#!chezscheme

(import (chezscheme))

(define answer-5

  (let ([n (* 11 13 15 16 17 19)])

    (let loop ([i n])

      (if (and

            (zero? (mod i 12))

            (zero? (mod i 14))

            (zero? (mod i 18))

            (zero? (mod i 20)))

        i

        (loop (+ i n))))))

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

```