Perlについての質問箱 29箱目

Perlについての質問箱 29箱目 at TECH

16:デフォルトの名無しさん
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" ;

次ページ

続きを表示

1を表示