Egyptian division: Difference between revisions
Added Quackery.
Drkameleon (talk | contribs) |
(Added Quackery.) |
||
Line 2,152:
{{Out}}
<pre>(17, 2)</pre>
=={{header|Quackery}}==
<lang Quackery> [ dup 0 = if
[ $ "Cannot divide by zero."
fail ]
[] unrot
[ 2dup < not while
rot over swap join
unrot 1 << again ]
drop swap
dup size
[] 1 rot times
[ tuck swap join
swap 1 << ]
drop
temp put
0 swap
witheach
[ over +
rot 2dup > iff
[ nip swap
0
temp take
i^ poke
temp put ]
else
[ swap rot drop ] ]
- 0 temp take
witheach +
swap ] is egyptian ( n n --> n n )
[ over echo
say " divided by "
dup echo
say " is "
egyptian
swap echo
say " remainder "
echo
say "." ] is task ( n n --> )
580 34 task</lang>
{{out}}
<pre>580 divided by 34 is 17 remainder 2.</pre>
=={{header|Racket}}==
| |||