chickadee » aima » make-performance-measure

Make a performance measure that awards one point for every clean square.

(define (make-performance-measure world)
  (lambda () (vector-count (lambda (i square) (clean? square)) world)))