#!/usr/bin/perl
$max=20;
for $i (1..$max) {
$arr[$i-1]=$i;
}
for ($i=$max;$i>0;$i--) {
$randx=int( rand() * $i );
print "$arr[$randx]\n";
$arr[$randx]=$arr[$i-1];
}
随机不同的数
最新推荐文章于 2021-07-28 01:18:34 发布
#!/usr/bin/perl
$max=20;
for $i (1..$max) {
$arr[$i-1]=$i;
}
for ($i=$max;$i>0;$i--) {
$randx=int( rand() * $i );
print "$arr[$randx]\n";
$arr[$randx]=$arr[$i-1];
}