Armed with our newly acquired knowledge how NUMERIC DIGITS works, let's
boldly go where no Rexx has gone before: calculate the largest Rexx whole
number ever created!
And best of all: each of you who runs this code will be their own record
holder - for a few seconds!
~~~
numeric digits 10 -- wave the magic wand
numeric digits 1000000000 -- one billion!
a = 9~copies(999999999) + 0
say "" a~left(9) "...( "a~length "total digits)..." a~right(15)
a = a + time('t') - time("o") % 1000000
say a~left(10) "...("a~length "total digits)..." a~right(15)
say "the largest whole number ever calculated in Rexx!"
~~~
Note that this requires both a 64-bit ooRexx interpreter and quite a bit of
memory.
Also, notice that not all operators work. A simple a = 1 / 7 gives
Error 42.902: Arithmetic underflow; exponent ("-1000000000") exceeds 9
digits.
_______________________________________________
Oorexx-devel mailing list
Oorexx-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-devel
