您的位置:首页 > 其它

随机不同的数

2012-10-20 14:50 127 查看
#!/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];
}
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐