31 lines
494 B
Rexx
31 lines
494 B
Rexx
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
|