aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

44
Task/Ethiopian-multiplication/Craft-Basic/ethiopian-multiplication.basic
View file

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