Posted to tcl by evilotto at Tue Apr 06 23:00:58 GMT 2010view raw

  1. set location "Middle East"
  2. set plan {}
  3. while {[lsearch $plan "peace"] == -1} {
  4. set plan {*}[generate-new-plans $plan]
  5. }
  6. puts "Optimal plan is [lsearch $plan "peace"]"
  7.