こんな感じでしょうか。 (define (sub a b co n) (if (= co n) a (begin (print a) (sub (+ a b) a (+ co 1) n)))) (define (fibonatti n) (print (sub 1 1 1 n))) (fibonatti 10) Scheme って while 文も for 文もないのですね。繰り返しは do 文でやるか、…