Anonymous user
Ethiopian multiplication: Difference between revisions
Add header for GW-BASIC
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:
=={{header|Go}}==
<lang Go>package main
Line 937 ⟶ 936:
}
</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}}==
| |||