(make-thread :name common-lisp :part 5)

763 名前：579 mailto:sage [2008/10/03(金) 12:49:48 ] あれ？>>761さんの環境だと結構速いんですね。 とりあえず、私の書き方が悪いわけじゃなさそうだということが分かって良かったです。 ちなみに末尾再帰で書いてもあんまり改善しませんでした。というか、遅くなりました。 (defun speed-test (times sum) (if (zerop times) sum (speed-test (- times 1) (+ sum times)))) CL-USER> (compile 'speed-test) WARNING: SPEED-TEST is already compiled. SPEED-TEST NIL NIL CL-USER> (time (speed-test 10000000 0)) Real time: 6.84375 sec. Run time: 6.328125 sec. Space: 159999132 Bytes GC: 250, GC time: 2.25 sec. 50000005000000 CL-USER>

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef