ホーム - 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)