Anonymous user
Perfect numbers: Difference between revisions
Factor
No edit summary |
(Factor) |
||
Line 250:
45p;!." "28p;!. { 0 -1 }</lang>
=={{header|Factor}}==
<lang factor>USING: kernel math math.primes.factors sequences ;
IN: rosettacode.perfect-numbers
: perfect? ( n -- ? ) [ divisors sum ] [ 2 * ] bi = ;</lang>
=={{header|Forth}}==
<lang forth>: perfect? ( n -- ? )
| |||