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