• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>
    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>
            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>

            CG@CPPBLOG

            /*=========================================*/
            隨筆 - 76, 文章 - 39, 評論 - 137, 引用 - 0
            數據加載中……

            我的SICP習題答案(1.29~1.33)

            1.29

            (define (simpson f a b n)
              (define (get-h) (/ (- b a) n))
              (define (get-y k) (f (+ a (* k (get-h)))))
              (define (simpson-term k)
                (cond ((
            = k 0) (get-y k))
                      ((
            = k n) (get-y k))
                      ((
            = (remainder k 20) (* 2.0 (get-y k)))
                      (else (* 
            4.0 (get-y k)))))
              (define (simpson-next k) (+ k 
            1))
              (* (/ (get-h) 
            3.0) (sum simpson-term 0 simpson-next n))) 

            1.30

            (define (sum term a next b)
              (define (iter a result)
                (if (> a b)
                    result
                    (iter (next a) (+ (term a) result))))
              (iter a 
            0))

            1.31

            ;;遞歸
            (define (product-re term a next b)
              (if (> a b)
                  
            1
                  (* (term a)
                     (product-re term (next a) next b))))
            ;;迭代
            (define (product term a next b)
              (define (iter a result)
                (if (> a b)
                    result
                    (iter (next a) (* result (term a)))))
              (iter a 
            1))

            (define (pi-product b)
              (define (pi-term k) (/ (* (- k 
            1) (+ k 1)) k k))
              (define (pi-next k) (+ k 
            2))
              
            ;;(* 4.0 (product-re pi-term 3.0 pi-next b))) ;;遞歸
              (* 4.0 (product pi-term 3.0 pi-next b)))      ;;迭代


            1.32

            (define (sum term a next b)
              (accumulate + 
            0 term a next b))

            (define (product term a next b)
              (accumulate * 
            1 term a next b))

            ;;遞歸
            (define (accumulate-re combiner null-value term a next b)
              (if (> a b)
                  null-value
                  (combiner (term a)
                            (accumulate-re combiner null-value term (next a) next b))))

            ;;迭代
            (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))

            1.33

            (define (filtered-accumulate combiner null-value term a next b filter?)
              (define (iter a result)
                (if (> a b)
                    result
                    (if (filter? (term a))
                        (iter (next a) (combiner (term a) result))
                        (iter (next a) result))))
              (iter a null-value))

            (define (sum-prime a b)
              (define (sum-prime-term k) k)
              (define (sum-prime-next k) (+ k 
            1))
              (filtered-accumulate + 
            0 sum-prime-term a sum-prime-next b prime?))

            (define (relatively-prime-product n)
              (define (relatively-prime? k) (
            = (gcd k n) 1))
              (define (term k) k)
              (define (next k) (+ k 
            1))
              (filtered-accumulate * 
            1 term 2 next (- n 1) relatively-prime?))



            posted on 2008-04-06 16:12 cuigang 閱讀(951) 評論(0)  編輯 收藏 引用 所屬分類: Lisp/Scheme我的SICP答案

            久久国产精品无| 欧美久久亚洲精品| 国内精品久久久久影院薰衣草| 一本一道久久a久久精品综合| 中文字幕无码久久人妻| 一本一本久久A久久综合精品| 久久精品午夜一区二区福利| 国产精品内射久久久久欢欢| 久久精品国产免费观看| Xx性欧美肥妇精品久久久久久 | 久久影视综合亚洲| 国产美女久久精品香蕉69| 久久久久亚洲av毛片大| 一本久久a久久精品亚洲| 91久久九九无码成人网站| 久久国产精品一国产精品金尊| 久久不射电影网| 国产亚洲综合久久系列| 亚洲国产精品无码久久久久久曰| 国产69精品久久久久久人妻精品| 国产精品99久久久久久猫咪| 久久夜色精品国产欧美乱| 久久久久久久久无码精品亚洲日韩 | AAA级久久久精品无码区| 欧美性猛交xxxx免费看久久久| 亚洲中文字幕无码久久2017| 无码伊人66久久大杳蕉网站谷歌 | 日韩AV毛片精品久久久| 99久久婷婷国产一区二区| 婷婷久久综合九色综合98| 亚洲日本va中文字幕久久| 久久久久久A亚洲欧洲AV冫| 人妻无码αv中文字幕久久琪琪布 人妻无码精品久久亚瑟影视 | 婷婷国产天堂久久综合五月| 亚洲午夜精品久久久久久浪潮 | 国产美女亚洲精品久久久综合| 成人a毛片久久免费播放| 国内精品人妻无码久久久影院 | 国产亚洲精久久久久久无码AV| 久久一本综合| 欧美久久亚洲精品|