摘要：
(define (fast-expt b n) (expt-iter b n 1)) (define (expt-iter b n a) (cond ((= n 0) a) ((even? n) (expt-iter (square b) (/ n 2) ... 阅读全文
摘要：
(define (expte b n) (if (= n 0) 1 (* b (expte b (- n 1))))) ;(expte 2 200000);(expt 2 200000) (define (expta b n) (expta-iter b n 1)) (define (expta-i 阅读全文
摘要：
define-values: assignment disallowed; cannot change constant constant: expt 你动了语言内置的函数了. 改个名字吧. 阅读全文
摘要：
(define (pascal row col) (cond ((or (< col 0) (< row 0)) (display"behave yourself!")) ((> col row) (display"behave yourself!")) ((or (= col 0) (= col 阅读全文
摘要：
递归: (define (f n) (if (< n 3) n (+ (f (- n 1)) (* 2 (f (- n 2))) (* 3 (f (- n 3)))))) (f 3) 迭代: (define (f n) (if (< n 3) n (f-iter 0 1 2 n) )) (defin 阅读全文