Rosetta Code

Ethiopian multiplication: Difference between revisions

Page Discussion

Ethiopian multiplication (view source)

Revision as of 18:35, 13 November 2023

83 bytes removed ,  6 months ago
m
→‎{{header|EasyLang}}
imported>Maxima enthusiast
No edit summary
Line 2,489:
 
=={{header|EasyLang}}==
func mult x y .
{{trans|Microsoft Small Basic}}
x =while x div>= 21▼
<syntaxhighlight lang="text">
if (x + 1) if x mod 2 =<> 0▼
x = 17
tot += y
y = 34
y = 2 * y.▼
tot = 0
while x >= 1x div 2
write x & "\t" y *= 2
.▼
▲ if (x + 1) mod 2 = 0
return tot += y
print y
else
print ""
▲ .
▲ x = x div 2
▲ y = 2 * y
.
print "=\t"mult &17 tot34
</syntaxhighlight>
 
Chkas
2,049

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/349804"