摘要:
(define (make-rat n d) (let ((g (gcd n d))) (cons (/ n g) (/ d g)))) (define (numer x) (car x)) (define (denom x) (cdr x)) (define (print-rat x) (newline) (cond ((= (denom x) 1) (display ... 阅读全文
posted @ 2018-01-31 21:43
R4mble
阅读(153)
评论(0)
推荐(0)
浙公网安备 33010602011771号