Anonymous user
Perfect numbers: Difference between revisions
add Perl 6 entry
No edit summary |
(add Perl 6 entry) |
||
Line 558:
$n == sum(0, grep {$n % $_ == 0} 1..$n-1);
}</lang>
=={{header|Perl 6}}==
<lang perl6>sub perf($n) { $n == [+] grep $n %% *, 1 ..^ $n }</lang>
=={{header|PicoLisp}}==
| |||