Perfect numbers: Difference between revisions
Content added Content deleted
(→{{header|AppleScript}}: →Idiomatic: Tidied. Added Euclid method.) |
(Frink) |
||
Line 1,698: | Line 1,698: | ||
The first 5 perfect numbers are : |
The first 5 perfect numbers are : |
||
6 28 496 8128 33550336 |
6 28 496 8128 33550336 |
||
</pre> |
|||
=={{header|Frink}}== |
|||
<lang frink>isPerfect = {|n| sum[allFactors[n, true, false]] == n} |
|||
select[1 to 1000, isPerfect]</lang> |
|||
{{out}} |
|||
<pre>[1, 6, 28, 496] |
|||
</pre> |
</pre> |
||