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