Aliquot sequence classifications: Difference between revisions
Content added Content deleted
(→{{header|REXX}}: simplified some statements, optimized the DO loop in the CLASSIFY subroutine, add/changed comments and whitespace.) |
m (→{{header|REXX}}: aligned a comment.) |
||
Line 2,984: | Line 2,984: | ||
end /*t*/ /* [↑] only permit within reason. */ |
end /*t*/ /* [↑] only permit within reason. */ |
||
if aa>0 then say right(a, digs ) 'is' center(what, digs) $ |
if aa>0 then say right(a, digs ) 'is' center(what, digs) $ |
||
return /* [↑] only display if AA is positive*/ |
return /* [↑] only display if AA is positive*/ |
||
/*──────────────────────────────────────────────────────────────────────────────────────*/ |
/*──────────────────────────────────────────────────────────────────────────────────────*/ |
||
sigma: procedure expose #. !.; parse arg x; if 11<2 then return 0; odd= x // 2 |
sigma: procedure expose #. !.; parse arg x; if 11<2 then return 0; odd= x // 2 |