08/03/16 18:34:06
>>92
ごめんなさいです。面倒くさいです。
letrecでも使ってくださしい。
>>93
積じゃなくて和を求める問題だったと思う。
だからこんな感じ。
(define (s n)
(define (p q r)
(if (= q n)
r
(let ((t (+ q 1)))
(p t (+ r t)))))
(p 0 0))
08/03/16 18:34:06
>>92
ごめんなさいです。面倒くさいです。
letrecでも使ってくださしい。
>>93
積じゃなくて和を求める問題だったと思う。
だからこんな感じ。
(define (s n)
(define (p q r)
(if (= q n)
r
(let ((t (+ q 1)))
(p t (+ r t)))))
(p 0 0))