Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Program help
this is what it looks like now... issolved= .false. do while (.not. issolved) issolved= .true. do x=1,9 do y=1,9 if( A(x,y)>10) then issolved= .true. do j=1,9 if (A(x,j)<10) then A(x,y)= vanish( A(x,y),A(x,j)) end if end do do i=1,9... -
-
Program help
thanks for the help. I managed to fix my code but it is still not solving the sudoku puzzle the output of the puzzle is supposed to be something like this: 5 3 4 6 7 8 9 1 2 6 7 2 1 9 5 3 4 8 1 9 8 3 4 2 5 6 7 8 5 9 7 6 1 4 2 3 4 2 6 8 5 3 7 9 1 7 1 3 9 2 4 8 5 6 9 6 1 5 3 7 2 8 4 2 8 7 4... -
Program help
hi i am trying to write a program to solve a sudoku puzzle. I have some problems when compiling the program can anyone help me pls. the program is Program Assignment3 implicit none integer :: A(9,9), vanish, g,h,i,j,xs,ys,k,m logical :: issolved open(unit=20,file="sudoku.txt") do g=1,9...
