Egyptian division: Difference between revisions

Content added Content deleted
Line 1,828: Line 1,828:
=={{header|Julia}}==
=={{header|Julia}}==
{{works with|Julia|0.6}}
{{works with|Julia|0.6}}
<syntaxhighlight lang="julia">function egyptian_divrem(num, den)
<syntaxhighlight lang="julia">function egyptian_divrem(dividend, divisor)
ans = acc = 0
answer = accumulator = 0
function row(pow2, dbl)
function row(powers_of2, doublings)
if num > dbl
if dividend > doublings
row(2pow2, 2dbl)
row(2powers_of2, 2doublings)
if acc + dblnum
if accumulator + doublingsdividend
ans += pow2
answer += powers_of2
acc += dbl
accumulator += doublings
end
end
end
end
end
end
row(1, den)
row(1, divisor)
ans, num - acc
answer, dividend - accumulator
end
end