Anonymous user
Aliquot sequence classifications: Difference between revisions
m
→{{header|REXX}}: added the optional number for testing.
m (→{{header|REXX}}: changed an array name, changed a comment.) |
m (→{{header|REXX}}: added the optional number for testing.) |
||
Line 591:
parse arg low high L /*get optional arguments*/
high=word(high low 10,1); low=word(low 1,1) /*get the LOW and HIGH. */
if L='' then L=11 12 28 496 220 1184 12496 1264460 790 909 562 1064 1488 15355717786080
big=2**47; NTlimit=16+1 /*limit: non-terminating*/
numeric digits max(9, 1+length(big)) /*be able to handle // */
Line 688:
1064 is cyclic 1336 1184 1210 1184
1488 is non-terminating 2480 3472 4464 8432 9424 10416 21328 22320 55056 95728 96720 236592 459792 881392 882384 1474608 2461648 3172912 3173904
15355717786080 is NON-TERMINATING 44534663601120 144940087464480
</pre>
| |||