sicp习题2.2节尝试解答

阅读更多

习题2.17,直接利用list-ref和length过程

(define (last - pair items)
  (list (list - ref items ( -  (length items)  1 ))))

习题2.18,采用迭代法

(define (reverse - list items)
  (define (reverse - iter i k)
    ( if  ( null ?  i) k (reverse - iter (cdr i) (cons (car i) k))))
  (reverse - iter items ()))

习题2.20，如果两个数的奇偶相同，那么他们的差模2等于0，根据这一点可以写出：

(define (same - parity a . b)
  (define (same - parity - temp x y)
  (cond (( null ?  y) y)
        (( =  (remainder ( -  (car y) x)  2 )  0 )
         (cons (car y) (same - parity - temp x (cdr y))))
        ( else
           (same - parity - temp x (cdr y)))))
  (cons a (same - parity - temp a b)))

利用了基本过程remainder取模

习题2.21，递归方式：

(define (square - list items)
  ( if  ( null ?  items)
      items 
      (cons (square (car items)) (square - list (cdr items)))))

利用map过程：

(define (square - list items)
  (map square items))

习题2.23，这与ruby中的each是一样的意思，将操作应用于集合的每个元素：

(define ( for - each proc items)
  (define ( for - each - temp proc temp items)
  ( if  ( null ?  items)
      #t
      ( for - each - temp proc (proc (car items)) (cdr items))))
  ( for - each - temp proc  0  items))

最后返回true

习题2.24，盒子图就不画了，麻烦，解释器输出：

Welcome to DrScheme, version  360 .
Language: Standard (R5RS).
>  (list  1  (list  2  (list  3   4 )))
( 1  ( 2  ( 3   4 )))

树形状应当是这样

               . 
              /\
             /  \
            1    .
                 /\
                /  \
               2    .
                    /\
                   /  \
                  3    4

习题2.25，
第一个list可以表示为(list 1 3 (list 5 7) 9)
因此取7的操作应当是：

(car (cdr (car (cdr (cdr (list  1   3  (list  5   7 )  9 ))))))

第二个list表示为:(list (list 7))
因此取7操作为：

(car (car (list (list  7 ))))

第三个list可以表示为：

(list  1  (list  2  (list  3  (list  4  (list  5  (list  6   7 ))))))

因此取7的操作为：

(define x (list  1  (list  2  (list  3  (list  4  (list  5  (list  6   7 )))))))
(car (cdr (car (cdr (car (cdr (car (cdr (car (cdr (car (cdr x))))))))))))

够恐怖！-_-

习题2.26，纯粹的动手题，就不说了
习题2.27，在reverse的基础上进行修改，同样采用迭代，比较难理解：

(define (deep - reverse x)
  (define (reverse - iter rest result)
    (cond ((null? rest) result)
          (( not  (pair? (car rest)))
           (reverse - iter (cdr rest)
                 (cons (car rest) result)))
          ( else
           (reverse - iter (cdr rest)
                 (cons (deep - reverse (car rest)) result)))
           ))
  (reverse - iter x ()))

习题2.28，递归，利用append过程就容易了：

(define (finge x)
  (cond ((pair? x) (append (finge (car x)) (finge (cdr x))))
        ((null? x) ())
        ( else  (list x))))

dennis 2007-06-12 09:55 发表评论