Ethiopian multiplication: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,224: / Line 1,224: @@
 =={{header|Locomotive Basic}}==
-{{incorrect|Locomotive Basic|Task asks for three functions to be defined and used in the solution.}}
-<lang locobasic>10 x=17:y=34:tot=0
+<lang locobasic>10 DEF FNiseven(a)=(a+1) MOD 2
+DEF FNhalf(a)=INT(a/2)
-WHILE x>=1
+DEF FNdouble(a)=2*a
-PRINT x,
+x=17:y=34:tot=0
-IF x MOD 2 THEN tot=tot+y:PRINT y ELSE PRINT
+WHILE x>=1
-x=INT(x/2):y=2*y
-WEND
+PRINT x,
+IF FNiseven(x)=0 THEN tot=tot+y:PRINT y ELSE PRINT
-PRINT "=", tot</lang>
+x=FNhalf(x):y=FNdouble(y)
+WEND
+PRINT "=", tot</lang>
 Output: