2009-06-11から1日間の記事一覧
問題2.36 さっぱりわからず、解答を見ることに。 define(accumulater-n op init seqs) (if (null? (car seqs)) '() (cons (accumulater op init (map car seqs)) (accumulater-n op init (map cdr seqs))))) gosh> (accumulater-n + 0 (list (list 1 2 3) (l…
問題2.36 さっぱりわからず、解答を見ることに。 define(accumulater-n op init seqs) (if (null? (car seqs)) '() (cons (accumulater op init (map car seqs)) (accumulater-n op init (map cdr seqs))))) gosh> (accumulater-n + 0 (list (list 1 2 3) (l…