也没什么

迷失了方向

练习2.24 2.26

#|
(define x (cons (list 1 2) (list 3 4)))
(length x)

(define (count-leaves tree)
  (cond ((null? tree) 0)
        ((not (pair? tree)) 1) ;: 叶子
        (else (+ (count-leaves (car tree))
                 (count-leaves (cdr tree))))))

(count-leaves x)

|#
;: 练习 2.24
(list 1 (list 2 (list 3 4))) ;: '(1 (2 ( 3 4)))

#|
;: 盒子

(list a b) => (cons a (cons b nil))
;: 图为
[.][.]-->[.][.]-->nil
 |        |
 |        |
 V        V
 a        b



(list 1 (list 2 (list 3 4))) ;:  
[.][.]--------------->[.][.]-->nil
|                      |
|                      |
V                      V        
1  (list 2 (list 3 4))[.][.]--->[.][.]-->nil 
                       |         |
                       |         |
                       V         |
                       2         V
                      (list 3 4)[.][.]-->[.][.]-->nil
                                 |        |           
                                 |        |              
                                 V        V                 
                                 3        4                 


;: 树

(1 (2 (3 4)))
    .
   / \
  1   . (2 (3 4))
     / \
    2   .( 3 4)
       / \
      3  4
|#



;:  练习 2.25
(car ;:7
 (cdr ;: '(7)
  (car ;: '(5 7)
   (cdr ;: '((5 7) 9) 
    (cdr '(1 2 (5 7) 9)) ;: '(2 (5 7) 9)
    ))))

(car (car '((7))))


(car ;: 7
 (cdr ;: '(7)
  (cdr
   (cdr
    (cdr
     (cdr
      (cdr '(1 2 3 4 5 6 7) ;:'(2 3 4 5 6 7)
           )))))))


#|
;: 练习 2.6
(define x (list 1 2 3))
(define y (list 4 5 6))
(cons x y) ;: '((1 2 3) 4 5 6)
(list x y) ;: '((1 2 3) (4 5 6))
|#
阅读更多
版权声明:知行合一 https://blog.csdn.net/yemeishenme/article/details/51558025
上一篇练习2.21 2.23
下一篇框架 练习 2.46 2.47
想对作者说点什么? 我来说一句

最新版XMOS驱动(包含2.262.24)

2016年07月22日 2.65MB 下载

GetData2.26

2013年12月11日 1.52MB 下载

IEDriverServer_x64_2.25.2.zip

2012年07月29日 854KB 下载

chromedriver v2.24

2017年07月12日 6.6MB 下载

GetDataW_2.26.rar汉化破解版

2018年01月19日 486KB 下载

ultra pdf 虚拟打印机 2.26

2013年10月24日 3.72MB 下载

Divelements.SandGrid 2.24

2012年08月22日 74KB 下载

Ultra PDF 2.26破解版

2012年12月05日 2.66MB 下载

ssn 2.24破解版

2016年12月16日 644KB 下载

Ultra PDF 2.26(注册版).

2012年02月02日 2.66MB 下载

没有更多推荐了,返回首页

关闭
关闭