【SICP练习】42 练习2.1

简介:


练习2.1

我们已经进入了新的一章,这本书还是蛮会循序渐进的嘛,第一题挺简单的。

(define(make-rat n d)

   (let ((g (gcd n d)))

      (if (< d 0)

        (cons (- (/ n g)) (- (/ d g)))

        (cons n d))))

目录
相关文章
|
关系型数据库 vr&ar