练习2.1

1.练习2.1

(define (check-pos-neg a b)
  (or (and (not (< a 0)) (> b 0))
      (and (not (> a 0)) (< b 0))))

(define (make-rat n d)
  (let ((g (gcd (abs n) (abs d)))
	(posi (check-pos-neg n d)))
    (cons (/ (if posi
		 (abs n)
		 (- (abs n)))
	     g)
	  (/ (abs d) g))))


发布了179 篇原创文章 · 获赞 1 · 访问量 13万+
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览