`
weiliam
  • 浏览: 4019 次
  • 性别: Icon_minigender_1
  • 来自: 济南
最近访客 更多访客>>
文章分类
社区版块
存档分类
最新评论

练习2.30-2.32

    博客分类:
  • lisp
 
阅读更多
2.30
(define (square-tree l)
  (cond ((null? l) '())
        ((not (pair? l)) (square l))
        (else (cons (square-tree (car l))
                    (square-tree (cdr l))))))
(define (square-tree2 l)
  (map (lambda (sl)
         (if (pair? sl)
             (square-tree2 sl)
             (square sl)))
       l))

2.31
(define (tree-map f l)
  (map (lambda (sl)
         (if (pair? sl)
             (tree-map f sl)
             (f sl)))
       l))

2.32
(define (subsets s)
  (if (null? s)
      (list '())
      (let ((rest (subsets (cdr s))))
        (append rest (map 
                      (lambda (sub)
                        (cons (car s) sub))
                        rest)))))
0
0
分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics