bench mark result

result.txt

$ sash etc/tak-sash.scm
0.62803584

$ ./bin/picrin.exe etc/tak.scm
1.404000

$ gosh etc/tak-gosh.scm
;(time (f))
; real   0.734
; user   0.734
; sys    0.000
12

tak-sash.scm

(import (scheme time))
(define (time f)
  (let ((start (current-jiffy)))
    (f)
    (inexact (/ (- (current-jiffy) start)
		(jiffies-per-second)))))

(define (tak x y z)
  (if (> x y)
      (tak (tak (- x 1) y z)
	   (tak (- y 1) z x)
	   (tak (- z 1) x y))
      y))

(define (f)
  (tak 12 6 0))

(write (time f))
(newline)