Knight's tour: Difference between revisions
→{{header|Fortran}}
No edit summary |
|||
Line 3,587:
integer :: warnsdorff_numbers(1:8)
integer :: number_of_unpruned_squares
integer :: i
Line 3,606 ⟶ 3,605:
!
number_of_unpruned_squares = 0
unvisited_moves = unvisited_knight_moves (path)
do i = 1, unvisited_moves%number_of_squares
Line 3,619 ⟶ 3,617:
unpruned_squares(number_of_unpruned_squares) = unvisited_moves%squares(i)
warnsdorff_numbers(number_of_unpruned_squares) = next_moves%number_of_squares
end if
end do
Line 3,658 ⟶ 3,654:
character(2), intent(in) :: starting_square
type(path_t) :: path
|