anchor.diff:  											 :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)))
  +	(cria-problema state-job operadores :objectivo? #'estado-objectivo :estado= #'estados-iguais :custo #'maquina-gastou-mais-tempo :heuristica #'heuristica-tempo-desperdicado)))
     
   
   (defun proxima-tarefa (estado job)
  
positive.code: 		heuristica-value))
  
  
  ; Função de Custo associado a um estado
  (defun maquina-gastou-mais-tempo (estado)
  	(let* ((tempos-maquinas (state-job-schedule-machine-times estado))
  		   (n-maquinas (car (array-dimensions tempos-maquinas)))
  		   (max-time-machine 0))
  		(dotimes (nr-maquina n-maquinas)
  			(let ((tempo-actual (aref tempos-maquinas nr-maquina 0))
  				  (last-task-duration (aref tempos-maquinas nr-maquina 1)))
  				(if (and (not (null tempo-actual)) (> (- tempo-actual last-task-duration) max-time-machine))
  					(setf max-time-machine tempo-actual))))
  		max-time-machine))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ; Struct aux functions
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code: (defun ilds (problema maxDepth) 
    (let ((*nos-gerados* 0)
  		(*nos-expandidos* 0)
  		(tempo-inicio (get-internal-real-time))
  		(max-runtime 300)
  		(objectivo? (problema-objectivo? problema))
          ;(estado= (problema-estado= problema))
          (numMaxDiscrepancia maxDepth)
  