Talk:Rare numbers: Difference between revisions
→the 2nd REXX version
Line 114:
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.
<
numeric digits 20; w= digits() + digits() % 3 /*ensure enough decimal digs for calcs.*/
parse arg many start . /*obtain optional argument from the CL.*/
Line 221:
if _>=0 then do; x= _; $= $ + q
end
end /*while q>1*/; return $</
Still pretty sluggish, like molasses in March.
| |||