Exercise 2.40
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)))
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)))