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