7 lines
215 B
Text
7 lines
215 B
Text
[ 0 swap witheach + ] is sum ( [ --> n )
|
|
|
|
[ factors -1 pluck dip sum = ] is perfect ( n --> n )
|
|
|
|
say "Perfect numbers less than 10000:" cr
|
|
10000 times
|
|
[ i^ 1+ perfect if [ i^ 1+ echo cr ] ]
|