Proper divisors: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
m (J - bugfix) |
||
| Line 38: | Line 38: | ||
<lang J>factors=: [: /:~@, */&>@{@((^ i.@>:)&.>/)@q:~&__ |
<lang J>factors=: [: /:~@, */&>@{@((^ i.@>:)&.>/)@q:~&__ |
||
properDivisors=: factors -. |
properDivisors=: factors -. ]</lang> |
||
Proper divisors of numbers 1 through 10: |
Proper divisors of numbers 1 through 10: |
||