Kurt Stephens

Nerd Up!

Scheme Implementation: tak Benchmarks: Ikarus wins!

Kurt on Mon, 2008-05-26 05:29.

Performance of running the following Scheme code:

(define (tak x y z)
  (if (not (< y x))
      z
      (tak (tak (- x 1) y z)
           (tak (- y 1) z x)
           (tak (- z 1) x y))))

Results:

(tak 18 12 6) (tak 30 15 9) 
(tak 33 15 9) (tak 40 15 9)

ikarus			 0.25 sec
chicken		 1.41 sec (precompiled)
oaklisp		 2.63 sec
mzscheme	    	 2.65 sec
scheme-r5rs	 	 5.89 sec
guile			 7.91 sec
larceny     		10.35 sec
LL  			12.93 sec

Ikarus is burning up; LL needs some heat. :)


links: Kurt's blog | add new comment | 1447 reads

Primary links

Syndicate

Syndicate content

Browse archives

« February 2012  
Mo Tu We Th Fr Sa Su
    1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29