05/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