Solution for Exercise 2.1 Modify the make-rat

Code Review

Compare your solutions

    (define (make-rat a b)
  (let ((g (gcd a b)))
       (cond ((and (not (< a 0)) (< b 0))
              (cons (/ (- a) g) (/ (- b) g)))
             ((and (< a 0) (< b 0))
              (cons (/ (- a) g) (/ (- b) g)))
             (else (cons (/ a g) (/ b g))))))