FC2ブログ

# 選択ソート セレクションソート Selection Sort
# 引数 値 (\@Price)
# 戻り値 セレクションソート (@SelectionSort)
sub SELECTIONSORT{
my ($Price) = @_;
my @SelectionSort = @$Price;
my $Count = @$Price - 1;

# 配列数の確認
if($Count < 0){
return 0;
}

# 昇順ソート
for(my $i = 0; $i < $Count; $i++){
my $Num = $i;

for(my $j = ($i + 1); $j <= $Count; $j++){
if($SelectionSort[$Num] > $SelectionSort[$j]){
$Num = $j;
}
}

# 選択ソート セレクションソート Selection Sort
($SelectionSort[$i], $SelectionSort[$Num]) = ($SelectionSort[$Num], $SelectionSort[$i]);
}

return @SelectionSort;
}


参考URL
選択ソート - Wikipedia
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

Author:雨宮
Firefoxを使用しているので気づかなかったけど、IE6でソースコードを上手くコピーできない

5/3
携帯用ならIE6でもソースコードをコピーできる
携帯用

検索フォーム


あわせて読みたいブログパーツ
一寸先は闇 RSS