p56 練習問題

(define (length lis)
  (if (pair? lis)
    (+ (length (cdr lis)) 1)
    0
    )
  )

(define (filter proc lis)
  (if (proc(car lis))
    (car lis)
    (filter(proc (cdr lis))
      )
    )
  )

あれこれじゃぜんぜん駄目だ。もう少し読んでから解く。