Ethiopian multiplication: Difference between revisions
Content added Content deleted
m (→{{header|Java}}: No need to loop twice, and the table is still saved in the map if you want to debug later) |
(Add header for GW-BASIC) |
||
Line 913: | Line 913: | ||
=={{header|Go}}== |
=={{header|Go}}== |
||
<lang Go>package main |
<lang Go>package main |
||
Line 937: | Line 936: | ||
} |
} |
||
</lang> |
</lang> |
||
=={{header|GW-BASIC}}== |
|||
<lang qbasic>10 X=17:Y=34:TOT=0 |
|||
20 WHILE X>=1 |
|||
30 PRINT X, |
|||
40 IF (X+1) MOD 2=0 THEN TOT=TOT+Y:PRINT Y ELSE PRINT |
|||
50 X=INT(X/2):Y=2*Y |
|||
60 WEND |
|||
70 PRINT "=", TOT</lang> |
|||
=={{header|Haskell}}== |
=={{header|Haskell}}== |