5 lines
125 B
Text
5 lines
125 B
Text
n@(Integer traits) isPerfect
|
|
[
|
|
(((2 to: n // 2 + 1) select: [| :m | (n rem: m) isZero])
|
|
inject: 1 into: #+ `er) = n
|
|
].
|