如何清除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 '()))

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