【SICP练习】42 练习2.1

2015/09/08 21:48
阅读数 2


练习2.1

我们已经进入了新的一章,这本书还是蛮会循序渐进的嘛,第一题挺简单的。

(define(make-rat n d)

   (let ((g (gcd n d)))

      (if (< d 0)

        (cons (- (/ n g)) (- (/ d g)))

        (cons n d))))

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

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