2015-04-02 問題2.1~問題2.3 問題2.1 (define (make-new-rat n d) (if ( < 0 (* n d)) (make-rat (abs n) (abs d)) (cons (* -1 (abs n)) (abs d))))