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)

```