摘要：
(define (search f neg-point pos-point) (let ((midpoint (average neg-point pos-point))) (if (close-enough? neg-point pos-point) midpoint (let ((test-value (f midpoint))) ... 阅读全文
posted @ 2017-11-25 03:13
R4mble
阅读(274)
评论(0)
推荐(0)
摘要：
let赋值域变量不能从另一个获得 阅读全文
posted @ 2017-11-25 02:21
R4mble
阅读(152)
评论(0)
推荐(0)
摘要：
(define (filtered-accumulate filter? combiner null-value term a next b) (define (iter a result) (cond ((> a b) result) ((filter? a) (iter (next a) (combiner (... 阅读全文
posted @ 2017-11-25 01:57
R4mble
阅读(242)
评论(0)
推荐(0)
摘要：
(define (filtered-accumulate filter? combiner null-value term a next b) (define (iter a result) (cond ((> a b) result) ((filter? a) (iter (next a) (combiner (... 阅读全文
posted @ 2017-11-25 01:41
R4mble
阅读(357)
评论(0)
推荐(0)
摘要：
(define (accumulate combiner null-value term a next b) (define (iter a result) (if (> a b) result (iter (next a) (combiner (term a) result)))) (iter a null-value)) (def... 阅读全文
posted @ 2017-11-25 01:10
R4mble
阅读(283)
评论(0)
推荐(0)
摘要：
(define (product term a next b) (if (> a b) 1 (* (term a) (product term (next a) next b)))) (product (lambda (x) x) 1 (lambda (i) (+ i 1)) 5) ... 阅读全文
posted @ 2017-11-25 00:59
R4mble
阅读(233)
评论(0)
推荐(0)
浙公网安备 33010602011771号