anchor.diff:                          dbn
                           counters-and-measurers)
     (map 'list #'car counters-and-measurers))
  +
  +(defun ->percent (x)
  +  (* 100 (- 1 x)))
   
   (defmethod log-test-error ((trainer mnist-rbm-trainer) (rbm mnist-rbm))
     (let ((*print-level* nil))
  
positive.code:     (let ((counter (car counter-and-measurer)))
        (let ((n-inputs (n-inputs trainer)))
          (log-msg "TRAINING RECONSTRUCTION CLASSIFICATION ACCURACY: ~,2F (~D)~%"
                   (funcall (lambda (e)
                              (* 100 (- 1 e)))
                            (or (get-error counter) #.(flt 0)))
                   n-inputs)
          (reset-counter counter)))))
  
  
negative.code:              (or (get-error ce-counter) #.(flt 0))
               n-inputs)
      (log-msg "CLASSIFICATION ACCURACY: ~,2F% (~D)~%"
               (->percent (or (get-error counter) #.(flt 0)))
               n-inputs)
      (reset-counter ce-counter)
      (reset-counter counter)))
  