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( |
<syntaxhighlight lang="julia">function egyptian_divrem(dividend, divisor) |
||
answer = accumulator = 0 |
|||
function row( |
function row(powers_of2, doublings) |
||
if |
if dividend > doublings |
||
row( |
row(2powers_of2, 2doublings) |
||
if |
if accumulator + doublings ≤ dividend |
||
answer += powers_of2 |
|||
accumulator += doublings |
|||
end |
end |
||
end |
end |
||
end |
end |
||
row(1, |
row(1, divisor) |
||
answer, dividend - accumulator |
|||
end |
end |
||