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

うまくいかない？私はあなたのつまずきがどこにあるのか理解していないと思います。