06/12/22 07:52:52
>>1 乙
my @in = qw( 4 2 6 ) ;
my @new ;
for( 0..$#in ){
my $min = $in[0] ;
my $ind = 0 ;
for (0 .. $#in ){
if ( $min > $in[$_] ){
$min = $in[$_] ;
$ind = $_ ;
}
}
push @new, $min ;
splice @in, $ind, 1 ;
}
print @new , "＼n" ;
06/12/22 07:52:52
>>1 乙
my @in = qw( 4 2 6 ) ;
my @new ;
for( 0..$#in ){
my $min = $in[0] ;
my $ind = 0 ;
for (0 .. $#in ){
if ( $min > $in[$_] ){
$min = $in[$_] ;
$ind = $_ ;
}
}
push @new, $min ;
splice @in, $ind, 1 ;
}
print @new , "＼n" ;