anchor.diff:     (setf *nr-random-moves-by-hmp* 0)
      (setf *nr-heuristic-moves-by-hmp* 0)
      (setf *nr-random-moves-wins-by-hmp* 0)
  -   (setf *nr-heuristic-moves-wins-by-hmp* 0)
  +   (setf *nr-heuristic-move-wins-by-hmp* 0)
      (setf x (make-instance 'heuristic-machine-player :name 'hm))
      (add-rules x nr-rules)
      (display x)
  
positive.code:    (mapcar #'list '(w l d) results)
  )
  
  (defmethod probability ((special integer) (total integer))
     ( / (float special) (float total))
  )
  
negative.code:       *nr-random-moves-by-hmp* *nr-heuristic-moves-by-hmp*
     )
     (format t "random move wins = ~A and heuristic move wins = ~A~%"
        *nr-random-moves-wins-by-hmp* *nr-heuristic-move-wins-by-hmp*
     )
     nil
  )
  