anchor.diff:  		 (*nos-expandidos* 0)
   		 (tempo-inicio (get-internal-run-time))
   		 (objectivo? (problema-objectivo? problema))
  -		 (heur (problema-heuristica problema))
   		 ;(estado= (problema-estado= problema))
   		 (solucao nil))
   
       (labels ((lanca-sonda (estado)
  -              (cond ((funcall objectivo? (state-job-schedule-jobs-tasks-space estado)) (list estado))
  +              (cond ((funcall objectivo? estado) (list estado))
                       ((null estado) nil)
                       (t 
                        (let* ((sucessores (problema-gera-sucessores problema estado))
  
positive.code: 											 :number-tasks n-total-tasks
  											 :jobs-tasks-space estado-inicial))
  
  	(cria-problema state-job operadores :objectivo? #'estado-objectivo)))
    
  
  (defun proxima-tarefa (estado job)
  
negative.code: 		(result nil))
      (cond ((string-equal procura-str "ILDS") (setf result (ilds internal-problema 100)))
  	  	  ((string-equal procura-str "Iterative-Sampling") (setf result (sondagem-iterativa internal-problema)))
  	  	  ((string-equal procura-str "Local-Beam") (setf result (beam-search internal-problema 10)))
  	  	  (t
  	    	(setf result (procura internal-problema procura-str))))
      (if (not (null result))
      	(converte-para-visualizacao (car result))
      	nil)))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  