练习2.1
我们已经进入了新的一章,这本书还是蛮会循序渐进的嘛,第一题挺简单的。
(define(make-rat n d)
(let ((g (gcd n d)))
(if (< d 0)
(cons (- (/ n g)) (- (/ d g)))
(cons n d))))
时间: 2024-09-24 19:10:08
练习2.1
我们已经进入了新的一章,这本书还是蛮会循序渐进的嘛,第一题挺简单的。
(define(make-rat n d)
(let ((g (gcd n d)))
(if (< d 0)
(cons (- (/ n g)) (- (/ d g)))
(cons n d))))