問題2.40 – SICP（計算機プログラムの構造と解釈）その55
問題2.40 (define (unique-pairs n) (flatmap (lambda (i) (map (lambda (j) (list i j)) (enumerate-interval 1 (- i 1 [...]…続きを読む
2.2.3 写像の入れ子 – SICP（計算機プログラムの構造と解釈）その54
2.2.3 写像の入れ子 正の整数 n があり、1<=j<i<=n である異なる正の整数 i と j の順序対で、i+j が素数になるものをすべて見つける。 n = 6 の場合 i<=n の各整数 [...]…続きを読む
問題2.39 – SICP（計算機プログラムの構造と解釈）その53
問題2.39 (define (reverse sequence) (fold-right (lambda (x y) (append y (list x))) () sequence)) (reverse (list [...]…続きを読む
問題2.38 – SICP（計算機プログラムの構造と解釈）その52
問題2.38 fold-right と fold-left 手続き (define (fold-right op initial sequence) (if (null? sequence) initial (op (c [...]…続きを読む
問題2.37 – SICP（計算機プログラムの構造と解釈）その51
問題2.37 accumulate 手続きと accumulate-n 手続き (define (accumulate op initial sequence) (if (null? sequence) initial [...]…続きを読む
問題2.36 – SICP（計算機プログラムの構造と解釈）その50
問題2.36 (define (accumulate-n op init seqs) (if (null? (car seqs)) () (cons (accumulate op init (map car seqs)) [...]…続きを読む
問題2.35 – SICP（計算機プログラムの構造と解釈）その49
問題2.35 (map <??> <??>) 部分でリストの葉の数を数える。（葉の数を表す数のリストを返す） そのリストの各値を足す。 (define (count-leaves t) (accu [...]…続きを読む
問題2.34 – SICP（計算機プログラムの構造と解釈）その48
問題2.34 (define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op [...]…続きを読む
問題2.33 – SICP（計算機プログラムの構造と解釈）その47
問題2.33 アキュムレータ手続き (define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (ac [...]…続きを読む
問題2.32 – SICP（計算機プログラムの構造と解釈）その46
問題2.32 subsets が 引数s の全ての部分集合のリストを返すとすると、rest は s の先頭要素を除いた集合の全ての部分集合のリスト。 s の全ての部分集合のリストは、rest と rest の各要素に s [...]…続きを読む
