ae编程,如何实现在变量前面加个“0”
发布网友
发布时间：2022-04-23 06:55
共1个回答
热心网友
时间：2022-06-17 02:36
#!/usr/bin/perl
subselect_sort{
my(*array)=@_;
$length=@array;
for($i=0;$i<$length-1;$i++)
{
$min=$i;
for($j=$i+1;$j<$length;$j++)
{
if($array[$j]<$array[$min])
{
$min=$j;
}
if($min!=$i)
{
$temp=$array[$i];
$array[$i]=$array[$min];
$array[$min]=$temp;
}
}
return@array;
}
