Proper divisors: Difference between revisions
→{{header|jq}}: sqrt version
(→{{header|jq}}: sqrt version) |
|||
Line 124:
<lang jq>def count(stream): reduce stream as $i (0; . + 1);
# unordered
def proper_divisors:
. as $n
|
(sqrt|floor as $s
| if ($n % $i) == 0 then $i else empty end;▼
| range(2; $s+1) as $i
(if $i * $i == $n then empty else ($n / $i) end)
else empty
end)
else empty
end;
# The first integer in 1 .. n inclusive
| |||