竹内関数 再び CMUCLでやってみました ― 2011/08/15 17:17
macのバイナリーがCMUCLのサイトにあったので 落としてきてうごかしてみました。 マシンはmacbookAir(2011) 11inchです
(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))))
TAK
* (time (tak 12 6 0))
延々と;GC.....って途中がでますが とてもある意味不安になる
stack 叔母ーとか 起こるのではないかと
答えは 時間は そこそこかな?
; Evaluation took:
; 24.69 seconds of real time
; 23.955753 seconds of user run time
; 0.70183 seconds of system run time
; 44,431,703,642 CPU cycles
; [Run times include 0.96 seconds GC run time]
; 0 page faults and
; 1,689,646,832 bytes consed.
;
12
(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))))
TAK
* (time (tak 12 6 0))
延々と;GC.....って途中がでますが とてもある意味不安になる
stack 叔母ーとか 起こるのではないかと
答えは 時間は そこそこかな?
; Evaluation took:
; 24.69 seconds of real time
; 23.955753 seconds of user run time
; 0.70183 seconds of system run time
; 44,431,703,642 CPU cycles
; [Run times include 0.96 seconds GC run time]
; 0 page faults and
; 1,689,646,832 bytes consed.
;
12
コメントをどうぞ
※メールアドレスとURLの入力は必須ではありません。 入力されたメールアドレスは記事に反映されず、ブログの管理者のみが参照できます。
※なお、送られたコメントはブログの管理者が確認するまで公開されません。
※投稿には管理者が設定した質問に答える必要があります。