RosettaCodeData/Task/Loops-Break/PL-I/loops-break.pli

8 lines
130 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
do forever;
k = trunc(random()*20);
put (k);
if k = 10 then leave;
k = trunc(random()*20);
put skip list (k);
end;