4 lines
95 B
Text
4 lines
95 B
Text
|
to perfect? :n
|
||
|
|
output equal? :n apply "sum filter [equal? 0 modulo :n ?] iseq 1 :n/2
|
||
|
|
end
|