[SICP]SICP 問題 2.1
負の引数に対応したmake-rat
(define (make-rat n d) (let* ((g (gcd n d)) (n1 (/ n g)) (d1 (/ d g))) (if (< d1 0) (cons (* -1 n1) (* -1 d1)) (cons n1 d1))))
負の引数に対応したmake-rat
(define (make-rat n d) (let* ((g (gcd n d)) (n1 (/ n g)) (d1 (/ d g))) (if (< d1 0) (cons (* -1 n1) (* -1 d1)) (cons n1 d1))))