CommonLisp Scheme Part13 - 暇つぶし2ch

CommonLisp Scheme Part13 at TECH

182:デフォルトの名無しさん
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

次ページ

続きを表示

1を表示