Perfect numbers: Difference between revisions
Frink
(→{{header|AppleScript}}: →Idiomatic: Tidied. Added Euclid method.) |
(Frink) |
||
Line 1,698:
The first 5 perfect numbers are :
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>
|