SICP 练习1.31 product过程

最新推荐文章于 2016-07-01 00:24:58 发布

_NMfloat_

最新推荐文章于 2016-07-01 00:24:58 发布

阅读量470

点赞数

分类专栏： SICP 文章标签：迭代递归

本文链接：https://blog.csdn.net/NMfloat/article/details/51582224

版权

SICP 专栏收录该内容

77 篇文章 2 订阅

订阅专栏

product是递归

product1是迭代

(define (product term a next b)
  (if (> a b)
    1
    (* (term a) (product term (next a) next b))))

(define (product_1 term a next b)
  (define (iter a result)
    (if (> a b) 
      result
      (iter (next a) (* (term a) result))))
  (iter a 1))

(define (calc-pi n)
  (define (even? n)
    (= (remainder n 2) 0))
  (define (f n)
    (if (even? n) (/ n (+ n 1)) (/ (+ n 1) n)))
  (define (inc n) (+ n 1))
  (* 4.0 (product f 2 inc n)))

(define (calc-pi_1 n)
  (define (even? n)
    (= (remainder n 2) 0))
  (define (f n)
    (if (even? n) (/ n (+ n 1)) (/ (+ n 1) n)))
  (define (inc n) (+ n 1))
  (* 4.0 (product_1 f 2 inc n)))

(newline)
(display (calc-pi 1000))

(newline)
(display (calc-pi_1 1000))