素人がプログラミングを勉強していたブログ

プログラミング、セキュリティ、英語、Webなどのブログ since 2008

連絡先: すかいぷ:javascripter_  か javascripter あっと tsukkun.net skypeのほうがいいです

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))
      )
    )
  )


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