您的位置：首页 > 其它

SICP学习笔记 2.1.1 实例: 有理数的算术运算

2012-08-18 21:44 92 查看

    练习 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/7

1 ]=> (print-rat (make-rat -6 -7))
6/7
  阅读更多
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签： 
相关文章推荐
新的分享
章节导航