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