Prime reciprocal sum: Difference between revisions

# rtrunc is like trunc but for Rational numbers, though the input may be

# either a number or a Rational.

def rtrunc:

if type == "number" then r(itrunc;1)

elif 0 == .n or (0 < .n and .n < .d) then r(0;1)

elif 0 < .n or (.n % .d == 0) then .d as $d | r(.n | idivide($d); 1)

else rminus( r( - .n; .d) | rtrunc | rminus; 1)

end;