Rosetta Code

Count in factors: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Walterpachl (talk | contribs)
2,301 edits
→‎version 2: corrected syntax for aged Rexxes and improved the meager performance
Walterpachl (talk | contribs)
2,301 edits
→‎version 2: remove incorrect version 2
Line 1,819:
40 = 2 x 2 x 2 x 5
</pre>
 
===version 2===
<lang rexx>/*----------------------------------------------------
-- 27.10.2013 Walter Pachl translated from PL/I
-- asap (as short as possible)
-- better upper limit for the inner loop
-- but 40 times slower than version 1 :-(
----------------------------------------------------*/
Do n = 1 To 40
ol=n '='
k=n
p=''
Do i = 2 To n/2
If k//i = 0 Then Do
k=k/i
p=p 'x' i
End
End
If p='' Then
p=n
Else
p=substr(p,4)
Say n '=' p
End</lang>
 
=={{header|Ruby}}==
Retrieved from "https://rosettacode.org/wiki/Count_in_factors"