Data update

Task/M-bius-function/REXX/m-bius-function.rexx

@@ -0,0 +1,30 @@
+include Settings
+
+say 'MOEBIUS FUNCTION - 4 Mar 2025'
+say version
+say
+numeric digits 100
+call sequence 1,200
+call sequence 100001,100200
+call sequence 1000000001,1000000200
+call sequence 10000000000001,10000000000200
+exit
+
+Sequence:
+arg x,y
+say 'Moebius sequence from' x 'to' y
+n = 0
+do i = x to y
+   n = n+1
+   call charout ,right(Moebius(i),3)
+   if n//20 = 0 then
+      say
+end
+say Format(Time('e'),,3) 'seconds'
+say
+return
+
+include Functions
+include Numbers
+include Sequences
+include Abend