xenop https://blog.hatena.ne.jp/xenop/ 帰ってきたYet Another わっほい https://xenop.hateblo.jp/ SICP (define s (list (list 1 2 3) (list 4 5 6) (list 7 8 9) (list 10 11 12))) (accumulate-n + 0 s) (22 26 30) になりゃいーのね。 こうだッ (define (accumulate-n op init seqs) (if (null? (car seqs)) '() (cons (accumulate op init (map car seqs)) (accumulate-n op init (map cdr seqs))))) 簡単ですね^o^ nilの部分を'()にしないと（サンプルプログラム… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fxenop.hateblo.jp%2Fentry%2F20080805%2F1218467197" title="Exercies 2.36 - 帰ってきたYet Another わっほい" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-08-05 00:06:37 rich https://xenop.hateblo.jp/entry/20080805/1218467197 1.0 100%