RosettaCodeData/Task/Loops-Break/PostScript/loops-break.ps

7 lines
175 B
PostScript

realtime srand % init RNG
{
rand 20 mod % generate number between 0 and 19
dup = % print it
10 eq { exit } if % exit if 10
} loop