Talk:Rare numbers: Difference between revisions
→the 1st REXX version
m (→Tweaks, C++: response to Nigel Galloway) |
|||
Line 76:
== the 1<sup>st</sup> REXX version ==
This is the 1<sup>st</sup> REXX version, before all the optimizations were added:
<syntaxhighlight lang="rexx">
numeric digits 20; w= digits() + digits() % 3 /*ensure enough decimal digs for calcs.*/
parse arg many start . /*obtain optional argument from the CL.*/
Line 103 ⟶ 104:
if _>=0 then do; x= _; $= $ + q
end
end /*while q>1*/; return $
</syntaxhighlight>
Pretty simple, but slow as molasses in January.
| |||