Perfect numbers: Difference between revisions
Content added Content deleted
No edit summary |
(Factor) |
||
| Line 250: | Line 250: | ||
45p;!." "28p;!. { 0 -1 }</lang> |
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}}== |
=={{header|Forth}}== |
||
<lang forth>: perfect? ( n -- ? ) |
<lang forth>: perfect? ( n -- ? ) |
||