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