![]() |
|< 1 2 3 4 5 >| | ![]() |
44 Einträge, 5 Seiten |
1
2
3
4
5
6
7
8
my $max=15;
my $n=10;
my @numbers = 0..$max-1;
for (1..$n) {
my $i = rand @numbers;
print $numbers[$i];
splice @numbers, $i, 1;
}
my @numbers = 0..$max-1;
my @numbers = 0..$max-1;
![]() |
|< 1 2 3 4 5 >| | ![]() |
44 Einträge, 5 Seiten |