anchor.diff:         	 (rows (car dimensions)) ;numero de jobs igual ao numero de linhas
          	 (tempos-maquinas (state-job-schedule-machine-times state-job))
          	 (tarefas-a-atribuir (state-job-schedule-non-allocated-tasks state-job))
  -       	 (funcao-heuristica-estado (state-job-schedule-funcao-heuristica state-job))) 
  +       	 (funcao-heuristica-estado (state-job-schedule-funcao-heuristica state-job))
  +    	 (min-state-value most-positive-fixnum)
  +    	 (sucessor-list nil)) 
   
       (loop for job from 0 to (- rows 1) do
         (let* ((prox-task (proxima-tarefa estado job))
  
positive.code: ;;;;;;;;;;;;;
  ;Ref para ilds pseudo-codigo
  ;http://delivery.acm.org/10.1145/2020000/2019581/a1_6-prosser.pdf?ip=194.210.231.19&id=2019581&acc=ACTIVE%20SERVICE&key=2E5699D25B4FE09E%2EF7A57B2C5B227641%2E4D4702B0C3E38B35%2E4D4702B0C3E38B35&CFID=675816888&CFTOKEN=37766688&__acm__=1432052157_b9aa95a702e113482df3bdaed4e3b506
  ;FIXME - ordenar sucessores por f = g + h
  
  
  (defun ilds-sorter (heur)
    "Return a combiner function that sorts according to heuristic."
  
negative.code:   (let ((internal-problema nil)
  		(result nil))
      (cond ((string-equal procura-str "ILDS") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  					     (setf result (ilds internal-problema (state-job-schedule-number-tasks (problema-estado-inicial internal-problema)))))
  	  ((string-equal procura-str "sondagem.iterativa") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  							   (setf result (sondagem-iterativa internal-problema)))
  	  ((string-equal procura-str "abordagem.alternativa") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  							      (setf result (beam-search internal-problema #'is-better-solution-job-shop (job-shop-problem-n.jobs job-shop-problem) 
  							      																			(state-job-schedule-number-tasks (problema-estado-inicial internal-problema)))))
  	  ;FIXME
  	  ((string-equal procura-str "melhor.alternativa") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  							   (setf result (procura internal-problema "a*" :espaco-em-arvore? T)))
  
  	  ((string-equal procura-str "a*.melhor.heuristica") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  							     (setf result (procura internal-problema "a*" :espaco-em-arvore? T)))
  	  (t		;FIXME
  