RosettaCodeData/Task/Loops-While/Lisaac/loops-while.lisaac

8 lines
78 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
+ i : INTEGER;
i := 1024;
{ i > 0 }.while_do {
i.println;
i := i / 2;
};