• <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í)題答案(2.27~2.32)

            2.27
            (define (deep-reverse lst)
              (define (iter lst-o lst-d)
                (cond ((null? lst-o) 
                       lst-d)
                      ((not (pair? (car lst-o))) 
                       (iter (cdr lst-o)
                             (cons (car lst-o) lst-d)))
                      (else 
                       (iter (cdr lst-o) 
                             (cons (deep-reverse (car lst-o))
                                   lst-d)))))
              (iter lst null))

            2.28
            (define (fringe x)
              (define (iter tree lst)
                (cond ((null? tree) lst)
                      ((not (pair? tree)) (cons tree lst))
                      (else (iter (car tree) (iter (cdr tree) lst)))))
              (iter x null))

            2.30
            (define (square-tree- x)
              (cond ((null? x) null)
                    ((not (pair? x)) (* x x))
                    (else (cons (square-tree- (car x))
                                (square-tree- (cdr x))))))
            (define (square-tree x)
              (map (lambda(subtree)
                     (if (pair? subtree)
                         (square-tree subtree)
                         (* subtree subtree)))
                   x))

            2.31
            (define (tree-map proc tree)
              (map (lambda(subtree)
                     (if (pair? subtree)
                         (tree-map proc subtree)
                         (proc subtree)))
                   tree))
            (define (square-tree+ tree)
              (tree-map (lambda(x) (* x x)) tree))

            2.32
            (define (subsets s)
              (if (null? s)
                  (list null)
                  (let ((rest (subsets (cdr s))))
                    (append rest (map (lambda(x) (cons (car s) x)) rest)))))

            和換零錢(qián)問(wèn)題的思路是一樣的,對(duì)于一個(gè)集合的所有子集的集合,可以分為兩部分,含有第一個(gè)元素和不含第一個(gè)元素的集合。而且含第一個(gè)元素的所有子集除去第一個(gè)元素,恰好正是所有不含第一個(gè)元素的子集。

            也可以換個(gè)思路,對(duì)于集合A,設(shè)它可以表示為 (a1)∪(a2,...,an) ,而 (a2,...,an) 的所有子集的集合是 B=(B1,...Bm),那么可以證明A的所有子集的集合 C=B∪((A1)∪B1,(A1)∪B2,...,(A1)∪Bm);
            證明:設(shè) X 是 A 的一個(gè)子集,那么如果 a1∈X,那么 X
            ((A1)∪B1,(A1)∪B2,...,(A1)∪Bm),否則X∈B,所以
               
            X∈C



            posted on 2008-06-17 23:48 cuigang 閱讀(1342) 評(píng)論(4)  編輯 收藏 引用 所屬分類: Lisp/Scheme我的SICP答案

            評(píng)論

            # re: 我的SICP習(xí)題答案(2.27~2.32)  回復(fù)  更多評(píng)論   

            2.27 2.28 想了好久都沒(méi)想出來(lái)。。。
            2011-08-24 18:26 | wangwangwar

            # re: 我的SICP習(xí)題答案(2.27~2.32)  回復(fù)  更多評(píng)論   

            2.32 確實(shí)太美妙了, 也知道和換零思路一樣但是沒(méi)有作出來(lái)。。。
            2011-09-01 10:50 | wangwangwar

            # re: 我的SICP習(xí)題答案(2.27~2.32)[未登錄](méi)  回復(fù)  更多評(píng)論   

            函數(shù)式編程的思維方式真是累死人啊
            2013-04-10 11:21 | wang

            # re: 我的SICP習(xí)題答案(2.27~2.32)[未登錄](méi)  回復(fù)  更多評(píng)論   

            (deep-reverse 1)運(yùn)行失敗
            2015-01-17 20:05 | raof01
            久久久无码精品午夜| 久久国产欧美日韩精品| 久久天天婷婷五月俺也去| 亚洲午夜久久久久久噜噜噜| 日本强好片久久久久久AAA| 国产高潮久久免费观看| 久久精品免费一区二区| 一本伊大人香蕉久久网手机| 久久精品无码一区二区WWW| 久久综合狠狠色综合伊人| 亚洲国产精品无码久久九九| 国内精品久久久久影院一蜜桃| 久久久久久久尹人综合网亚洲 | 久久综合亚洲色一区二区三区| 久久无码中文字幕东京热| 97精品依人久久久大香线蕉97| 久久精品国产影库免费看| 7777精品久久久大香线蕉| 日韩影院久久| 久久精品国产免费| 久久国产色AV免费看| 久久国产欧美日韩精品| 亚洲午夜精品久久久久久浪潮| 99精品伊人久久久大香线蕉| 久久精品国产亚洲AV电影| 久久亚洲AV无码精品色午夜| 日本欧美国产精品第一页久久| 很黄很污的网站久久mimi色| 日韩精品国产自在久久现线拍| 乱亲女H秽乱长久久久| 狼狼综合久久久久综合网| 东方aⅴ免费观看久久av| 久久免费看黄a级毛片| 免费精品国产日韩热久久| 久久免费观看视频| 一本久久a久久精品综合香蕉| 午夜精品久久久久成人| 久久国产免费直播| 欧美黑人激情性久久| 久久国产亚洲精品无码| 久久99精品国产麻豆宅宅|