合計がsになる正の整数三つの組み合わせ（整数上限がn）という解釈でよろしいか。 unique-pairsを利用するならペアの後ろの数字未満の連番をくっつければいいきがする。あとは合計がSか判定。 まずはunique-triples。 (define (unique-triples n) (flatmap (…

prime-sum-pairsをシンプルにするためにunique-pairsって関数つくれって切り出すだけでない (define (unique-pairs n) (flatmap (lambda (i)(map (lambda (j) (list i j)) (enumerate-interval 1 (- i 1)))) (enumerate-interval 1 n)))

matrix algebraてなんだ……線形代数？ テライミフｗ シグマとかやめてよもー というわけで問題で何をさせたいかよーわからん（なんとなくはわかるが） ので問題意図だけチート。 http:/www.csus4.net/hiki/SICPReading/?FujimotoHisa#l38 よりテストケースを…

(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)) (…

完了？