-
Notifications
You must be signed in to change notification settings - Fork 0
/
ex1.31.B
49 lines (41 loc) · 1.06 KB
/
ex1.31.B
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
(define (inc n) (+ n 1))
;; (define (product-integers a b)
;; (define (iter a result)
;; (if (> a b)
;; result
;; (iter (inc a) (* result a))))
;; (iter a 1))
;;
;; (define (product-sqr a b)
;; (define (iter a result)
;; (if (> a b)
;; result
;; (iter (inc a) (* result (square a)))))
;; (iter a 1))
;;
;; (define (pi-product a b)
;; (define (iter a result)
;; (if (> a b)
;; result
;; (if (even? a)
;; (iter (inc a) (* result (/ (+ a 2) (+ a 1))))
;; (iter (inc a) (* result (/ (+ a 1) (+ a 2)))))))
;; (iter a 1))
(define (product term a next b)
(define (iter a result)
(if (> a b)
result
(iter (next a) (* result (term a)))))
(iter a 1))
(define (identity x) x)
(define (product-integers a b)
(product identity a inc b))
(define (product-sqr a b)
(product square a inc b))
(define (pi-term x)
(if (even? x)
(/ (+ x 2) (+ x 1))
(/ (+ x 1) (+ x 2))))
(define (pi-product a b)
(product pi-term a inc b))
;; Above recursive procedure generate iterative processs