anchor.diff:  
   			  ;actualizar tempos gastos nas maquinas
   			  (setf tempos-maquinas-actual (copy-array tempos-maquinas))
  -			  (setf tempo-maquina-actual (aref tempos-maquinas-actual nr.maquina 0))
  +			  (setf tempo-maquina-actual (aref tempos-maquinas-actual 0 nr.maquina))
   			  (if (null tempo-maquina-actual)
   			  	(setf tempo-maquina-actual task-duration)
   			  	(setf tempo-maquina-actual (+ tempo-maquina-actual task-duration)))
  -			  (setf (aref tempos-maquinas-actual nr.maquina 0) tempo-maquina-actual)
  -			  (setf (aref tempos-maquinas-actual nr.maquina 1) task-duration)
  +			  (setf (aref tempos-maquinas-actual 0 nr.maquina) tempo-maquina-actual)
  +			  (setf (aref tempos-maquinas-actual 1 nr.maquina) task-duration)
   
   			  ;actualizar lista de tasks por atribuir
   			  (dolist (task tarefas-a-atribuir)
  
positive.code: 											 :number-tasks n-total-tasks
  											 :jobs-tasks-space estado-inicial))
  
  	(cria-problema state-job operadores :objectivo? #'estado-objectivo :heuristica #'heuristica-tempo-desperdicado :custo #'maquina-gastou-mais-tempo)))
    
  
  (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 25)))
  	  	  (t
  	    	(setf result (procura internal-problema procura-str :espaco-em-arvore? T))))
      (if (not (null result))
      	(if (not (listp (car result)))
      		(converte-para-visualizacao (car result))
  