练习2.1

1.练习2.1

(define (check-pos-neg a b)
  (or (and (not (< a 0)) (> b 0))
      (and (not (> a 0)) (< b 0))))

(define (make-rat n d)
  (let ((g (gcd (abs n) (abs d)))
	(posi (check-pos-neg n d)))
    (cons (/ (if posi
		 (abs n)
		 (- (abs n)))
	     g)
	  (/ (abs d) g))))