Data update

2024-04-19 16:56:29 -07:00 · 2024-04-19 16:56:29 -07:00 · aec8ed51b6
commit aec8ed51b6
parent 0df55f9f24
1045 changed files with 18889 additions and 2777 deletions
--- a/Task/Pisano-period/EasyLang/pisano-period.easy
+++ b/Task/Pisano-period/EasyLang/pisano-period.easy
@ -51,13 +51,14 @@ proc getprims n . prims[] .
      m = n mod i
      if m = 0
         prims[] &= i
-         prims[] &= 0
+         cnt = 0
         while m = 0
-            prims[-1] += 1
+            cnt += 1
            n = d
            d = n div i
            m = n mod i
         .
+         prims[] &= cnt
      .
   .
 .