1 665c255d 2023-08-04 jrmu (define (make-rat n d)
2 665c255d 2023-08-04 jrmu   (cons n d))
3 665c255d 2023-08-04 jrmu (define (numer x)
4 665c255d 2023-08-04 jrmu   (let ((g (gcd (car x) (cdr x))))
5 665c255d 2023-08-04 jrmu     (/ (car x) g)))
6 665c255d 2023-08-04 jrmu (define (denom x)
7 665c255d 2023-08-04 jrmu   (let ((g (gcd (car x) (cdr x))))
8 665c255d 2023-08-04 jrmu     (/ (cdr x) g)))
9 665c255d 2023-08-04 jrmu