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>] have been incorporated in this REXX program. |
<br>[http://www.shyamsundergupta.com/rare.htm <u>webpage</u>] have been incorporated in this REXX program. |
||
< |
<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 $</ |
end /*while q>1*/; return $</syntaxhighlight> |
||
Still pretty sluggish, like molasses in March. |
Still pretty sluggish, like molasses in March. |
||