猫型エンジニアのブログ

プログラム/ネットワーク系の技術関連をまとめたページです 

問題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))))