08/03/16 12:07:37
>>88
の問題で、
(define (s n)
(define (p q r)
(if (= q n)
r
(let ((t (+ q 1)))
(p t (* r t)))))
(p 0 1))
と書いても正解にしてくれない・・・・・・(涙)。
「違うわ！やりなおし！」
と叱られてしまった。(´・ω・`)
08/03/16 12:07:37
>>88
の問題で、
(define (s n)
(define (p q r)
(if (= q n)
r
(let ((t (+ q 1)))
(p t (* r t)))))
(p 0 1))
と書いても正解にしてくれない・・・・・・(涙)。
「違うわ！やりなおし！」
と叱られてしまった。(´・ω・`)