【SICP练习】69 练习2.40

2015/09/08 21:51
阅读数 0


练习2.40

这道题要我们写一个传入一个整数n然后返回一个序对(i, j)的过程unique-pairs,然后用于上一页的prime-sum-pairs的定义。此时我们要注意在prime-sum-pairs中哪一段代码表达的是这个意思。没错,是flatmap函数。因此我们将其写入到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中即可。

(define (prime-sum-pairs n)

   (map make-pair-sum

          (filter prime-sum? (unique-pairsn))))

版权声明:本文为 NoMasp柯于旺 原创文章,未经许可严禁转载!欢迎访问我的博客:http://blog.csdn.net/nomasp

展开阅读全文
打赏
0
0 收藏
分享
加载中
更多评论
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部