Skip to content

Commit

Permalink
Fix up logic of p10
Browse files Browse the repository at this point in the history
LivInTheLookingGlass committed Oct 7, 2024
1 parent 6f35807 commit 215a877
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion fortran/src/p0010.f90
Original file line number Diff line number Diff line change
@@ -17,8 +17,8 @@ integer(i18t) function p0010() result(answer)
answer = 0
tmp = 0
do while (tmp < 2000000)
tmp = next_prime(tmp)
answer = answer + tmp
tmp = next_prime(tmp)
end do
end function p0010
end module Problem0010

0 comments on commit 215a877

Please sign in to comment.