作者 Anonymous [scheme] 2012-03-13 14:39 (点击下载)

  1. (define (length lst)
  2.   (let ((counter
  3.           (let ((count 0))
  4.             (lambda (m)
  5.               (if (eq? m 'count)
  6.                 count
  7.                 (begin
  8.                   (set! count (+ count 1))
  9.                   #t)))))) 
  10.     (for-each counter lst)
  11.     (counter 'count)))

提交下面的校正或者修改. (点击这里开始一个新的帖子)
姓名: 在 cookie 中记住我的名字

屏幕抓图:(jpeg 或 png)