Talk:Rare numbers: Difference between revisions

Content added Content deleted
Line 114: Line 114:
of   ''rare''   numbers)   within Shyam Sunder Gupta's
of   ''rare''   numbers)   within Shyam Sunder Gupta's
<br>[http://www.shyamsundergupta.com/rare.htm <u>webpage</u>] &nbsp; have been incorporated in this REXX program.
<br>[http://www.shyamsundergupta.com/rare.htm <u>webpage</u>] &nbsp; have been incorporated in this REXX program.
<lang rexx>/*REXX program to calculate and display an specified amount of rare numbers. */
<syntaxhighlight lang="rexx">/*REXX program to calculate and display an specified amount of rare numbers. */
numeric digits 20; w= digits() + digits() % 3 /*ensure enough decimal digs for calcs.*/
numeric digits 20; w= digits() + digits() % 3 /*ensure enough decimal digs for calcs.*/
parse arg many start . /*obtain optional argument from the CL.*/
parse arg many start . /*obtain optional argument from the CL.*/
Line 221: Line 221:
if _>=0 then do; x= _; $= $ + q
if _>=0 then do; x= _; $= $ + q
end
end
end /*while q>1*/; return $</lang>
end /*while q>1*/; return $</syntaxhighlight>
Still pretty sluggish, &nbsp; like molasses in March.
Still pretty sluggish, &nbsp; like molasses in March.