Attempt p76 in fortran (6)

LivInTheLookingGlass · Oct 3, 2024 · dcf9ef6 · dcf9ef6
1 parent a966f48
commit dcf9ef6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/src/p0076.f90 b/fortran/src/p0076.f90
@@ -62,7 +62,7 @@ integer function p0076() result(answer)
                     do i = 3, 99
                         sum = sum + counts(i)
                     end do
-                    if (sum > 100) then
+                    if (sum <= 100) then
                         exit
                     end if
                 end do