anchor.diff:  		(dolist (task tarefas-nao-alocadas)
   			(setf heuristica-value (+ heuristica-value (task-info-task-duration task))))
   		heuristica-value)) 		
  +
   
   ;heuristica que faz um peso entre o racio da paralelizacao e o tempo que falta para terminar a atribuicao
   (defun heuristica-tempo-final-v2 (job-state)
  
positive.code:                          (lanca-sonda (nth (random num-elem) sucessores))))))))
               (loop while (null result) do
                 (setf result (lanca-sonda (problema-estado-inicial problema))))
               (return-from sondagem-iterativa result))))
  
negative.code: 					 	(setf result aux-result)))
  				  (if (< beam-width max-beam-width)
  					(incf beam-width)
  				      (return-from beam-search (list result (round (/ (- (get-internal-run-time) tempo-inicio) internal-time-units-per-second)) *nos-expandidos* *nos-gerados*)))
  				  (when (<= (- tempo (/ (- (get-internal-real-time) tempo-inicio) internal-time-units-per-second)) 0.2)
  				      (return-from beam-search (list result (round (/ (- (get-internal-run-time) tempo-inicio) internal-time-units-per-second)) *nos-expandidos* *nos-gerados*))))))))
  
  ;;;;;;;;;;;;;
  ;ILDS
  