RosettaCodeData/Task/Loops-While/PL-I/loops-while.pli

7 lines
97 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
declare i fixed binary initial (1024);
do while (i>0);
put skip list (i);
i = i / 2;
end;