本文共 212 字,大约阅读时间需要 1 分钟。
练习 2.1
(define (make-rat n d) (let ((g (gcd n d))) (if (and (< d 0) (> g 0)) (cons (/ (- n) g) (/ (- d) g)) (cons (/ n g) (/ d g))))) 1 ]=> (print-rat (make-rat 6 -7))-6/71 ]=> (print-rat (make-rat -6 -7))6/7
转载地址:http://lavbi.baihongyu.com/