Factors of an integer: Difference between revisions
Content added Content deleted
(Added an Algol W sample) |
|||
| Line 2,390: | Line 2,390: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
{{works with|Rakudo|2015.12}} |
|||
<lang perl6>sub factors (Int $n) { squish sort ($_, $n div $_ if $n %% $_ for 1 .. sqrt $n) }</lang> |
<lang perl6>sub factors (Int $n) { squish sort ($_, $n div $_ if $n %% $_ for 1 .. sqrt $n) }</lang> |
||