如何清除 Scheme 中的内部列表？

Question

我有以下代码，并想添加一条“清除消息”，从内部列表中删除所有存储的数字。我该怎么做？

     (define (make-stat)
      (let ((values (list)))
        (lambda (op . args)
          (cond ((eq? op 'add)            
                 (set! values (cons (car args) values)))
                ((eq? op 'mean)
                 (if (null? values) 
                     (error "can't take mean of empty data set")
                     (mean values)))
                ((eq? op 'variance)
                 (if (null? values)
                     (error "can't take variance of empty data set")
                     (variance values)))
                (else (error "unknown op" op))))))

Answer 1

会

((eq? op 'clear)
 (set! values '()))

不工作？我想我不明白你的绊脚石在哪里。