(wat-aro)

無職から有職者にランクアップしました

[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))))