ホーム - Project Euler

Problem 1¶

#!r6rs
#!chezscheme

(import (chezscheme))

(define answer-1
  (let loop ([n 3] [sum 0])
    (cond
      [(<= 1000 n) sum]
      [(or
         (zero? (mod n 3))
         (zero? (mod n 5)))
       (loop (add1 n) (+ sum n))]
      [else (loop (add1 n) sum)])))

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