あくまで自分でこう答えるという話。 (問1) (define fold-left (lambda (func obj lst) (cond ((null? lst) obj) (else (fold-left func (func obj (car lst)) (cdr lst)))))) (define my-sum (lambda (lst) (fold-left + (car lst) (cdr lst)))) ・例 (my-sum '(1 2 3 4 5 6 7 8 9 10)) (問2) (define fold-left (lambda (func obj lst) (cond ((null? lst) obj) (else (fold-left func (func obj (car lst)) (cdr lst)))))) (define large (lambda (x
![Schemeによる解答](https://cdn-ak-scissors.b.st-hatena.com/image/square/b1638cdb5807a4788e4ba3c1109a984166e095fc/height=288;version=1;width=512/https%3A%2F%2Fanond.hatelabo.jp%2Fimages%2Fog-image-1500.gif)