10 lines
144 B
Perl
10 lines
144 B
Perl
|
while (1) {
|
||
|
|
my $a = int(rand(20));
|
||
|
|
print "$a\n";
|
||
|
|
if ($a == 10) {
|
||
|
|
last;
|
||
|
|
}
|
||
|
|
my $b = int(rand(20));
|
||
|
|
print "$b\n";
|
||
|
|
}
|