>>88

の問題で、

(define (s n)
　(define (p q r)
　　(if (= q n)
　　　　r
　　　　(let ((t (+ q 1)))
　　　　　　　(p t (* r t)))))
　　(p 0 1))

と書いても正解にしてくれない・・・・・・(涙)。

「違うわ！やりなおし！」

と叱られてしまった。(´・ω・`)