anchor.diff:  	  	  (t
   	    	(setf result (procura internal-problema procura-str))))
       (if (not (null result))
  -    	(converte-para-visualizacao (car result))
  +    	(car result)
  +    	;(converte-para-visualizacao (car result))
       	nil)))
   
   
  
positive.code: 		(setf heuristica-value (* (/ n-tarefas-nao-alocadas (* n-maquinas total-number-tasks)) (+ max-time-machine remaining-task-durations)))
  		heuristica-value))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ; Struct aux functions
  
negative.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)
  