Perfect numbers: Difference between revisions
Content added Content deleted
(→{{header|Go}}: added validation and output) |
(→{{header|Perl 6}}: slightly less stupid algorithm) |
||
Line 665: | Line 665: | ||
}</lang> |
}</lang> |
||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
<lang perl6>sub perf($n) { $n == [+] grep $n %% *, 1 .. |
<lang perl6>sub perf($n) { $n == [+] grep $n %% *, 1 .. floor $n/2 }</lang> |
||
=={{header|PHP}}== |
=={{header|PHP}}== |