Egyptian division: Difference between revisions
Content added Content deleted
(Added Run BASIC, Just BASIC ans XBasic) |
m (→{{header|Wren}}: Changed to Wren S/H) |
||
Line 3,260: | Line 3,260: | ||
=={{header|Wren}}== |
=={{header|Wren}}== |
||
{{trans|Go}} |
{{trans|Go}} |
||
<syntaxhighlight lang=" |
<syntaxhighlight lang="wren">var egyptianDivide = Fn.new { |dividend, divisor| |
||
if (dividend < 0 || divisor <= 0) Fiber.abort("Invalid argument(s).") |
if (dividend < 0 || divisor <= 0) Fiber.abort("Invalid argument(s).") |
||
if (dividend < divisor) return [0, dividend] |
if (dividend < divisor) return [0, dividend] |