HuTcHx

sudoku backtracking

Apr 30th, 2012
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.94 KB | None | 0 0
  1. EXERCICES 3
  2. -----------
  3.  
  4. SUDOKU
  5.  
  6. MODULE backtracking (grille : tableau[1àn,1àn] d'entier, verifNbr : tableau de booleen [1àn],ligne colonne,nbCarreATraité : entier) -> booleen
  7.  
  8. réussite : booleen <- FAUX
  9. indVerifNbr : entier <- 0
  10. cptCarré : entier <- 1
  11.  
  12. FAIRE
  13. indVerifNbr <- indVerifNbr + 1
  14.  
  15. SI estAcceptable(grille,ligne,colonne,verifNbr,indVerifNbr) ALORS
  16. grille[ligne,colonne] <- indVerifNbr
  17. verifNbr[indVerifNbr] <- VRAI
  18.  
  19. SI ligne mod 3 = 0 et colonne mod 3 = 0 ALORS
  20. cptCarré <- cptCarré + 1
  21. FIN SI
  22.  
  23. SI nbCarréATraité > cptCarré ALORS
  24. majLignCol(ligne,colonne)
  25. réussite <- backtracking (grille,verifNbr,ligne,colonne,nbCarreATraité)
  26. SI NON réussite ALORS
  27. grille[ligne,colonne] <- 0
  28. verifNbr[indVerifNbr] <- FAUX
  29. FIN SI
  30. SINON
  31. affiche(grille)
  32. réussite <- VRAI
  33. FIN SI
  34. FIN SI
  35. JUSQU A CE QUE réussite OU indVerifNbr > 9
  36.  
  37. FIN MODULE
Advertisement
Add Comment
Please, Sign In to add comment