08/03/15 05:17:07
>>88
上のほうだけど、
(define (s n) (if (= n 0) 0 (+ n (s (- n 1)))))
が正しいんだと思うんだけど、↑これだと正常に動くね。
(define (s n) (if (= n 1) 1 (+ n (s (- n 1)))))
にすると、(s 0) を評価したときに無限ループに入ってしまうので、
それが関係してるのかもしれない。
08/03/15 05:17:07
>>88
上のほうだけど、
(define (s n) (if (= n 0) 0 (+ n (s (- n 1)))))
が正しいんだと思うんだけど、↑これだと正常に動くね。
(define (s n) (if (= n 1) 1 (+ n (s (- n 1)))))
にすると、(s 0) を評価したときに無限ループに入ってしまうので、
それが関係してるのかもしれない。