sniperHW

摘要： (begin (load "ex1.scm") ;(define (make-rat n d) (cons n d)) (define (numer x) (car x)) (define (denom x) (cdr x)) (define (print-rat x) (display (numer x)) (display "/") (display (denom x)) (newline)) ;ex 2.1 (define (positive? x) (> x 0)) (define ... 阅读全文

摘要： (begin (load "util.scm") ;ex 1.16 计算b的幂 (define (_expt product b n maxn) (if (= n maxn) product (if (<= (* n n) maxn) (_expt (* product product) b (+ n n) maxn) (_expt (* product b) b (+ n 1) maxn)))) (define (fast-expt b n) (if (<= n 0) 1 (_expt... 阅读全文