ホーム - Project Euler

Problem 5¶

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