Aliquot sequence classifications: Difference between revisions

m
→‎{{header|REXX}}: adjusted for correct case for sequence type.
m (→‎{{header|REXX}}: added the optional number for testing.)
m (→‎{{header|REXX}}: adjusted for correct case for sequence type.)
Line 605:
do q=1 until b.sociable \== 0 /*only one that has to be counted*/
call classify_aliquot -q /*the minus sign indicates ¬tell.*/
_=what; upper what_; b.what_=b.what_+1 /*bump the counter for this class*/
if b.what_==1 then call show_class q,$ /*show 1st occurrence only.*/
end /*q*/ /* [↑] until all classes found. */
say