Discussion :

[hunty24]

Bonjour à tous,
Je dois réaliser une grille de sudoku en fortran (.f90) et malheureusement l'échéance du devoir arrive rapidement.
Le problème étant que je n'arrive pas coder la vérification des petites grilles de 3 lignes/3 colonnes.
Je suis arrivé à faire la vérification pour chaque ligne et pour chaque colonne de la grande grille (9X9).
Est ce que quelqu'un verrait comment faire svp ?
Voila ce que j ai déja réalisé :
sudoku.pdf

[Aotarie]

Je pense que cela devrait aller avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
integer,dimension(3,3)::Sous_tab
integer::check=0,i,j
do i=1,9,3
do k=1,9,3
sous_tab=Mon_grand_tableau(i:i+2,j:j+2)
do j=1,3
if(sum(sous_tab(:,i))/=9) then 
	chech=1
	exit
end if
if(sum(sous_tab(i,:))/=9)then 
	chech=1
	exit
end if
end do
end do
end do
!    check=1 si le sudoku est faux

[François L.]

La solution proposée présente un petit problème d'indices, je crois.

Puis, est-ce une vérification d'un sudoku?

L'idée est que, au sein de chaque sous tableau (défini par la ligne 5 du code proposé, en remplaçant tout de même j par k), on ait une seule occurence de chaque nombre.

C'est sans doute un peu brutal, mais à froid, je verrai bien quelque chose comme ça (remplace le code proposé à partir de la ligne 6):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
DO j=1,9
  n=COUNT(sous_tab==j)
  IF (n /= 1) THEN
    check=1
    EXIT
  ENDIF
ENDDO

Bien cordialement,