; educate-me+monk.lap (from educate-monkey, test-child, child-test,
; rule-learn, prior-learn driven-btest binary-test) 10 Feb 2001 --
; JJB.  Minor details -- keep track of real right answer for my sake,
; not just whether to reward.  Uses nested comps

(
 (C selective-reward (minutes 10) (goal ((rewarded)))
    (elements ((bad-red (trigger ((board-only 'red) (hand 'white))) buzzer))
	      ((bad-white (trigger ((board-only 'white)(hand 'blue))) buzzer))
	      ((bad-blue (trigger ((board-only 'blue)(hand 'green))) buzzer))
	      ((bad-green (trigger ((board-only 'green)(hand 'yellow))) buzzer))
	      ((ok-other (trigger ()) give-peanut))
              ))
 (C record-correctness (seconds 2) (goal ((rewarded)))
    (elements ((do-reward (trigger ((accounted))) selective-reward)) 
	      ((my-bad-red (trigger ((find-red) (hand 'white))) monkey-wrong))
	      ((my-bad-white (trigger ((find-white)(hand 'blue))) monkey-wrong))
	      ((my-bad-blue (trigger ((find-blue)(hand 'green))) monkey-wrong))
	      ((my-bad-green (trigger ((find-green)(hand 'yellow))) monkey-wrong))
	      ((my-ok-other (trigger ()) monkey-right))
              ))
 (C pick-test (minutes 10) (goal ((no-test nil)))
    (elements ((set-test (trigger ((criteria 3))) pick-ngram))
              ((set-pair (trigger ()) pick-pair))
              ))
 (C educated-grasp (minutes 10) (goal ((grasping)))
   (elements ((grasp-it (trigger ((target-chosen))) grasp-seen))
	     ((avoid-it (trigger ((focus-rule 'avoid))) pick-other))
	     ((select-it (trigger ((focus-rule 'select))) pick-this))
	     ((focus-it (trigger ()) priority-focus))
	     ))
 (AP end-of-test (minutes 10) (rules-from-reward save-rule-learning-results check-criteria finish-test))
 (DC life (goal (test-done hoot clean-up)) 
     (drives
      ((set-puzzle (trigger ((no-test))) pick-test))
      ((reward (trigger ((grasping)(rewarded nil))) record-correctness))
      ((get-reward (trigger ((rewarded))) end-of-test))
      ((choose (trigger ((grasping nil))) educated-grasp))
      ((complain (trigger nil) hoot)))
     )
 )