Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Benjamin Vincent Schulenburg Minor optimization for [directory/read-recursive] b1665f8 3 years ago 891 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)