Kurt Stephens

Nerd Up!

Recent comments

Random image

Latest image

Syndicate

Syndicate content

Browse archives

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

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 | 344 reads