Data update

Task/Pisano-period/Agena/pisano-period.agena

@@ -1,6 +1,6 @@
 scope # find the Pisano period of some primes and composites
 
-    local procedure pisano( m :: number ) :: number # returns the Pisano period of m
+    local proc pisano( m :: number ) :: number # returns the Pisano period of m
         local p, c := 0, 1;
         for i from 0 to ( m * m ) - 1 do
             p, c := c, ( p + c ) mod m;
@@ -10,7 +10,7 @@ scope # find the Pisano period of some primes and composites
     end;
 
     # returns the Pisano period of p^k or 0 if p is not prime or k < 1
-    local procedure pisanoPrime( p :: number, k :: number ) :: number
+    local proc pisanoPrime( p :: number, k :: number ) :: number
          return if not numtheory.isprime( p ) or k < 1 then 0 else entier ( p ^ ( k - 1 ) * pisano( p ) ) fi
     end;
 

Task/Pisano-period/REXX/pisano-period.rexx

@@ -1,5 +1,5 @@
--- 26 Mar 2025
-include Settings
+-- 24 Aug 2025
+include Setting
 call Time('r')
 numeric digits 500
 
@@ -17,7 +17,7 @@ GetFibo:
 procedure expose fibo.
 arg xx
 say 'Get first' xx 'Fibonacci numbers...'
-call Fibonaccis -xx
+call fibonaccis -xx
 say fibo.0 'numbers found'
 say
 return
@@ -63,8 +63,4 @@ do i = 1
 end
 return i
 
-include Sequences
-include Numbers
-include Functions
-include Constants
-include Abend
+include Math