Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Ben (X13/Arch) [closure/meta] -> [meta] and [closure/meta!] -> [meta!] db7b2d8 3 years ago 683 Commits
nujel / benchmark / euler1 / scheme.scm
Raw
application/vnd.lotus-screencam • 290 B • 12 lines 
(define (test-run i ret)
  (if (< i 10000000)
      (test-run (+ 1 i)
                (if (or (zero? (modulo i 3))
                        (zero? (modulo i 5)))
                    (+ ret i)
                    ret))
      ret))

(display "The sum is: ")
(display (test-run 0 0))
(newline)