• <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, 評(píng)論 - 137, 引用 - 0
            數(shù)據(jù)加載中……

            我的SICP習(xí)題答案(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 閱讀(952) 評(píng)論(0)  編輯 收藏 引用 所屬分類: Lisp/Scheme我的SICP答案

            免费观看久久精彩视频| 久久久精品国产sm调教网站 | 久久丫精品国产亚洲av| 精品国产99久久久久久麻豆| 亚洲国产精品无码久久久蜜芽 | 久久亚洲AV成人无码国产| 久久国产免费观看精品| 久久一区二区三区免费| 亚洲中文字幕无码久久精品1| MM131亚洲国产美女久久| 欧美激情精品久久久久久久九九九| 亚洲另类欧美综合久久图片区| 波多野结衣AV无码久久一区| 欧美精品一本久久男人的天堂| 亚洲精品高清一二区久久| 色狠狠久久AV五月综合| 久久777国产线看观看精品| 国内精品人妻无码久久久影院导航 | 国产亚洲色婷婷久久99精品91 | 欧洲国产伦久久久久久久| 99久久国产主播综合精品| 亚洲国产成人精品女人久久久 | A级毛片无码久久精品免费| 国产一级持黄大片99久久| 亚洲αv久久久噜噜噜噜噜| 久久国产乱子伦精品免费午夜| 国产精品九九久久精品女同亚洲欧美日韩综合区| 久久99精品九九九久久婷婷| 亚洲国产小视频精品久久久三级 | 久久精品无码午夜福利理论片| 国产91色综合久久免费分享| 久久无码AV中文出轨人妻| 青青久久精品国产免费看| 99精品国产综合久久久久五月天| 国产精品福利一区二区久久| 国内精品欧美久久精品| 亚洲国产精品无码久久一区二区 | 久久精品国产99国产精品导航| 久久最新精品国产| 亚洲午夜久久久影院伊人| 久久人人超碰精品CAOPOREN|