RosettaCodeData/Task/Ethiopian-multiplication/Craft-Basic/ethiopian-multiplication.basic
2026-02-01 16:33:20 -08:00

46 lines
435 B
Text

let x = 17
let y = 34
let s = 0
do
if x < 1 then
break
endif
if s = 1 then
print x
endif
if s = 0 then
let s = 1
endif
let a = x
let e = a % 2
let e = 1 - e
if e = 0 then
let t = t + y
print x, " ", y
endif
let a = x
let a = int(a / 2)
let x = a
let a = y
let a = 2 * a
let y = a
loop x >= 1
print "="
print t