RosettaCodeData/Task/Loops-Do-while/Pop11/loops-do-while.pop11

7 lines
108 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
lvars val = 0;
while true do
val + 1 -> val;
printf(val, '%p\n');
quitif(val rem 6 = 0);
endwhile;