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)

```