Aliquot sequence classifications: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed an array name, changed a comment.) |
m (→{{header|REXX}}: added the optional number for testing.) |
||
Line 591: | Line 591: | ||
parse arg low high L /*get optional arguments*/ |
parse arg low high L /*get optional arguments*/ |
||
high=word(high low 10,1); low=word(low 1,1) /*get the LOW and HIGH. */ |
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 |
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*/ |
big=2**47; NTlimit=16+1 /*limit: non-terminating*/ |
||
numeric digits max(9, 1+length(big)) /*be able to handle // */ |
numeric digits max(9, 1+length(big)) /*be able to handle // */ |
||
Line 688: | Line 688: | ||
1064 is cyclic 1336 1184 1210 1184 |
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 |
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> |
</pre> |
||