2 lines
93 B
Text
2 lines
93 B
Text
isPerfect = {|n| sum[allFactors[n, true, false]] == n}
|
|
println[select[1 to 1000, isPerfect]]
|