2007-10-31から1日間の記事一覧

リングに入っているのに、そういえば…

rubyのこともubuntuのことも書いてないかも。

(sicp16+)やっぱりもう1問した。

improver -> intervalに直した。 ;;m2.41 ;n>=k>j>iで総和がs ;今回は教科書に沿って,flatmapを使ってみよう ; ;;;;;;;;必要なもの(教科書);;;;;;;;;;;;;;;; (define (flatmap proc seq) (accumulate append '() (map proc seq))) (define (accumulate op in…

(sicp16)m2.40

今日はこれだけ enumerate-intervalがenumerate-improverになってる ;;m2.40 (define (enumerate-improver low high) (if (> low high) '() (cons low (enumerate-improver (+ low 1) high)))) (define (unique-pairs n) (define (iter result count) (if (=…