Egyptian division: Difference between revisions

Content added Content deleted
Line 1,807: Line 1,807:
| until( .i < 0 or .accumulator == $dividend;
| until( .i < 0 or .accumulator == $dividend;
if (.accumulator + .doublings[.i] <= $dividend)
if (.accumulator + .doublings[.i] <= $dividend)
then .accumulator += .doublings[.i]
then .accumulator += .doublings[.i]
| .answer += .powersOfTwo[.i]
| .answer += .powersOfTwo[.i]
else .
else .
end
end
| .i += -1)
| .i += -1)
| [.answer, $dividend - .accumulator]
| [.answer, $dividend - .accumulator]
end;
end;