Solve p14 in fortran (4)

LivInTheLookingGlass · Oct 9, 2024 · 5a69815 · 5a69815
1 parent 4b00524
commit 5a69815
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/fortran/src/p0014.f90 b/fortran/src/p0014.f90
@@ -40,12 +40,13 @@ end function p0014
 
     recursive subroutine collatz_len(answer, n, collatz_len_cache)
         integer(i18t), intent(in) :: n
-        integer, intent(out) :: answer = 0
+        integer, intent(out) :: answer
         integer, intent(inout), dimension(:) :: collatz_len_cache
         if (n < collatz_cache_size .and. collatz_len_cache(int(n)) /= 0) then
             answer = collatz_len_cache(int(n))
             return
         end if
+        answer = 0
         if (mod(n, 2) == 1) then
             call collatz_len(answer, (3 * n + 1) / 2, collatz_len_cache)
             answer = answer + 2