SICP 2.40
面倒なのでsrfiを使うことにした。
(use srfi-1) (define (unique-pairs n) (define (flatmap proc lis) (fold-right append '() (map proc lis))) (flatmap (lambda (i) (map (lambda (j) (list i j)) (iota (- i 1) 1))) (iota n 1))) (unique-pairs 5) (define (prime-sum-pairs n) (map make-pair-sum (filter prime-sum? (unique-pairs n))))