Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Ben(Parabola/X220) Generic set! 25e932d 2 years ago 1035 Commits
nujel / benchmark / for / scheme.scm
Raw
application/vnd.lotus-screencam • 161 B • 8 lines 
(define (test-run)
  (let ((ret 0))
       (do ((i 0 (+ i 1)))
           ((>= i 10000000) ret)
         (set! ret (+ ret i)))))

(display (test-run))
(newline)