4 lines
139 B
Factor
4 lines
139 B
Factor
USING: kernel math math.primes.factors sequences ;
|
|
IN: rosettacode.perfect-numbers
|
|
|
|
: perfect? ( n -- ? ) [ divisors sum ] [ 2 * ] bi = ;
|