4 lines
95 B
Text
4 lines
95 B
Text
#import std
|
|
#import nat
|
|
|
|
is_perfect = ~&itB&& ^(~&,~&t+ iota); ^E/~&l sum:-0+ ~| not remainder
|