Anonymous user
Aliquot sequence classifications: Difference between revisions
m
→{{header|REXX}}: aligned a comment.
(→{{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:
end /*t*/ /* [↑] only permit within reason. */
if aa>0 then say right(a, digs ) 'is' center(what, digs) $
return /* [↑] only display if AA is positive*/
/*──────────────────────────────────────────────────────────────────────────────────────*/
sigma: procedure expose #. !.; parse arg x; if 11<2 then return 0; odd= x // 2
| |||