2 lines
79 B
Text
2 lines
79 B
Text
factors=: [: /:~@, */&>@{@((^ i.@>:)&.>/)@q:~&__
|
|
properDivisors=: factors -. ]
|
factors=: [: /:~@, */&>@{@((^ i.@>:)&.>/)@q:~&__
|
|
properDivisors=: factors -. ]
|