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