【SICP练习】42 练习2.1



练习2.1

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

(define(make-rat n d)

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

      (if (< d 0)

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

        (cons n d))))

版权声明:本文为 NoMasp柯于旺 原创文章,如需转载请联系本人。

posted @ 2015-02-17 20:08  nomasp  阅读(72)  评论(0编辑  收藏  举报