anchor.diff:    a-volta
     relacionados
     natribuidos
  -  solucionavel)
  +  solucionavel
  +  dominio-len)
   
   
   (defun cria-restricao-fapix (ipixs pix a-volta-len)
  
positive.code: 		 (a-volta-len (length a-volta)))
  
  	    (setf (aref pix-a-volta ipix) a-volta)
  	    
  	    (when (numberp pix)
  	      (when (> pix a-volta-len) (setf pix-solucionavel nil) (return-from ciclos))
  	    
  	      (let* ((restricao (cria-restricao-fapix a-volta pix a-volta-len))
  		     (dominio (if (= pix 0) (list 0) (if (= pix 9) (list 1) nil))))
  		
  		(dolist (ipix-av a-volta)
  		  (push restricao (aref pix-restricoes ipix-av))
  
  		  (setf (aref pix-relacionados ipix-av) (merge 'list
  
negative.code: 
  (defun pix-a-volta (ipix colunas max-ipix)
    "Devolve uma lista com os indices dos pix a volta do pix cujo o indice fornecido."
    (loop for l from (- ipix colunas) to (+ ipix colunas) by colunas when (< -1 l max-ipix)
      append (loop for c from (- l 1) to (+ l 1) when (= (linha c colunas) (linha l colunas))
        collect c)))
  
  