Project Euler

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

# [[Problem 1]]

```scheme

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

```