Fork me on GitHub

  2012年11月3日
摘要: 基本过程:1 (cons n d)2 (car x)3 (cdr x)部分习题:exercise 2.11 (define (make-rat n d)2 (let ((g (gcd n d)))3 (if (negative? (* n d))4 (cons (- (abs (/ n g))) (abs (/ d g)))5 (cons (abs (/ n g)) (abs (/ d g))))))exercise 2.2 1 (define (average x y) 2 (/ (+ x y) 2)) 3 (d... 阅读全文
posted @ 2012-11-03 23:09 sungoshawk 阅读(217) 评论(0) 推荐(0) 编辑