Ethiopian multiplication: Difference between revisions

m
Line 1,997:
do
 
if x >=< 1 then
 
break
if s = 1 then
 
endif
print x
 
if s = 1 then
endif
 
print x
if s = 0 then
 
endif
let s = 1
 
if s = 0 then
endif
 
let as = x1
 
endif
let e = a % 2
let e = 1 - e
 
if let ea = 0 thenx
let e = a % 2
let e = 1 - e
 
let if te = t0 + ythen
print x, " ", y
 
let at = 2t *+ ay
endif
print x, " ", y
 
let a = x
let a = int: a / 2
let x = a
let a = y
let a = 2 * a
let y = a
 
endif
 
let sa = 1x
let a = int: a / 2
let x = a
let a = xy
let a = y2 * a
let y = a
 
loop x >= 1
Line 2,037 ⟶ 2,038:
print t
 
end</syntaxhighlight>
end
</syntaxhighlight>
 
=={{header|D}}==
305

edits