【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柯于旺 原创文章，未经许可严禁转载！欢迎访问我的博客：http://blog.csdn.net/nomasp