RosettaCodeData/Task/Loops-While/Lisaac/loops-while.lisaac
2023-07-01 13:44:08 -04:00

7 lines
78 B
Text

+ i : INTEGER;
i := 1024;
{ i > 0 }.while_do {
i.println;
i := i / 2;
};