Egyptian division: Difference between revisions
Added Easylang
Thundergnat (talk | contribs) m (→More "Egyptian" version: Update font link) |
(Added Easylang) |
||
Line 1,537:
Press any key to continue . . .</pre>
=={{header|EasyLang}}==
{{trans|Phix}}
<syntaxhighlight>
proc egyptdiv a b . .
p2 = 1
dbl = b
while dbl <= a
p2s[] &= p2
dbls[] &= dbl
dbl *= 2
p2 *= 2
.
for i = len p2s[] downto 1
if acc + dbls[i] <= a
acc += dbls[i]
ans += p2s[i]
.
.
print a & " / " & b & " = " & ans & " R " & abs (acc - a)
.
egyptdiv 580 34
</syntaxhighlight>
=={{header|Erlang}}==
<syntaxhighlight lang="erlang">-module(egypt).
| |||