butcher blog

竹内関数を　SBCL、CLISP、CMUCLで動かしてみました
稼働マシンmacbookpro(i7-2.2Ghz)

こんなに差が出ると思ってなかった。
SBCLが速すぎ、CMUCLは　ガベージ観れるので良いのですが
延々と出ているので　スゴーーク不安

(defun tak (x y z)
(if (<= x y)　y
(tak (tak (1- x) y z)
(tak (1- y) z x)
(tak (1- z) x y))))

(time (tak 13 7 0 )

SBCLは　秒殺
* (time (tak 13 7 0 ))

Evaluation took:
0.767 seconds of real time
0.766800 seconds of total run time (0.766744 user, 0.000056 system)
100.00% CPU
1,683,116,911 processor cycles
0 bytes consed

13

Clisp　頑張っているかな？
2]> (time (tak 13 7 0))
Real time: 42.532593 sec.
Run time: 42.533115 sec.
Space: 0 Bytes
13

CMUCL ガベージが延々と表示され
; Evaluation took:
; 157.37 seconds of real time
; 151.20897 seconds of user run time
; 5.868899 seconds of system run time
; 345,433,495,698 CPU cycles
; [Run times include 9.26 seconds GC run time]
; 0 page faults and
; 12,387,725,496 bytes consed.
;
13