HomeAboutCodePastes

Paste on 2021-04-10T19:34:05

(import miscmacros)

(time
 (let loop ((x (the fixnum 0)))
   (if (= x 10000000)
       x
       (begin
         (+ x x)
         (loop (+ x 1))))))

(time
 (let loop ((x 0))
   (if (= x 10000000)
       x
       (begin
         (+ x x)
         (loop (+ x 1))))))




plain