Factors of an integer: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added output.) |
(→Raku: fix to get expected results e.g. 4 -> (1, 2, 4) instead of ((1, 4), (2, 2))) |
||
Line 5,192: | Line 5,192: | ||
(formerly Perl 6) |
(formerly Perl 6) |
||
{{works with|Rakudo|2015.12}} |
{{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 flat ($_, $n div $_ if $n %% $_ for 1 .. sqrt $n) }</lang> |
||
=={{header|REALbasic}}== |
=={{header|REALbasic}}== |