Factors of an integer: Difference between revisions

Content added Content deleted
m (→‎optimized version: added text to a comment in the REXX section header. -- ~~~~)
Line 1,696: Line 1,696:


=={{header|Perl 6}}==
=={{header|Perl 6}}==
{{works with|Rakudo Star|2010-08}}
{{works with|Rakudo Star|2013-10}}
<lang perl6>sub factors (Int $n) {
<lang perl6>sub factors (Int $n) {
sort +*, keys hash
sort uniq
map { $^x => 1, $n div $^x => 1 },
map { $^x, $n div $^x },
grep { $n %% $^x },
grep { $n %% $^x },
1 .. ceiling sqrt $n;
1 .. sqrt $n;
}</lang>
}</lang>


Retrieved from "https://rosettacode.org/wiki/Factors_of_an_integer"