- 182 名前：デフォルトの名無しさん mailto:sage [2005/06/01(水) 13:58:05 ]
- >>178
CLispで試してみた。>>180氏の言うとおりだった。
[1]> (defun tail-rec (x y)
(if (<= x 0)
y
(tail-rec (- x 1) (+ y 1))))
TAIL-REC
[2]> (tail-rec 40000 0)
*** - Program stack overflow. RESET
[3]> (compile 'tail-rec)
TAIL-REC ;
NIL ;
NIL
[4]> (tail-rec 40000 0)
40000
[5]> (tail-rec 10000000 0)
10000000
