おとなり日記からのぞいてみた記事*1に触発されて作ってみました。 （PubMedもシンプソン数も何に使うのかよくわかってないです。＞＜） 追記 map_countの定義のところで無駄がありました＞＜ lambda/procを関数内関数のように使うと遅くなる それ以前に、ma…

;;復習 accumulateとaccumulate-nを作る。 (define (accumulate op init seq) (if (null? seq) init (op (car seq) (accumulate op init (cdr seq))))) (define (accumulate-n op init seq) (if (null? (car seq)) '() (cons (accumulate op init (map car s…