Ethiopian multiplication: Difference between revisions

Content added Content deleted

Inline

@@ Line 936: / Line 936: @@
 =={{header|GW-BASIC}}==
+<lang qbasic>10 DEF FNE(A)=(A+1) MOD 2
-{{incorrect|GW-BASIC|You are asked first to define three named functions...}}
+DEF FNH(A)=INT(A/2)
-<lang qbasic>10 X=17:Y=34:TOT=0
+DEF FND(A)=2*A
-WHILE X>=1
+X=17:Y=34:TOT=0
-PRINT X,
+WHILE X>=1
-IF (X+1) MOD 2=0 THEN TOT=TOT+Y:PRINT Y ELSE PRINT
+PRINT X,
-X=INT(X/2):Y=2*Y
+IF FNE(X)=0 THEN TOT=TOT+Y:PRINT Y ELSE PRINT
-WEND
+X=FNH(X):Y=FND(Y)
-PRINT "=", TOT</lang>
+WEND
+PRINT "=", TOT</lang>
 =={{header|Haskell}}==