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