最新記事
- perl で特殊関数 40 対数積分 li(x) (Logarithmic Integral li: LOGARITHMICINTEGRALLI)
- perl で特殊関数 39 指数積分 Ei(x) (Exponential Integral Ei: EXPONENTIALINTEGRALEI)
- perl で特殊関数 38 指数積分 En(x) (Exponential Integral En: EXPONENTIALINTEGRALEN)
- perlで統計 34 ロジスティック分布 (逆関数) (Logistic Distribution (Inverse Function): LOGISTICDISTRIBUTIONINVERSE)
- perlで統計 33 コーシー分布 (逆関数) (Cauchy Distribution (Inverse Function): CAUCHYDISTRIBUTIONINVERSE)
- 全ての記事タイトル一覧
- ランキングに参加しています。この記事が参考になりましたら、応援お願い致します。
# 奇偶転置ソート Odd-even Transposition Sort
# 引数 値 (\@Price)
# 戻り値 奇偶転置ソート (@OddEvenTranspositionSort)
sub ODDEVENTRANSPOSITIONSORT{
my ($Price) = @_;
my @OddEvenTranspositionSort = @$Price;
my $Flag = 1;
my $Count = @$Price - 1;
# 配列数の確認
if($Count <= 0){
return 0;
}
# 昇順ソート
while($Flag != 0){
$Flag = 0;
# 偶数 奇数
for(my $i = 0; $i < $Count; $i += 2){
if($OddEvenTranspositionSort[$i] > $OddEvenTranspositionSort[$i + 1]){
# 奇偶転置ソート Odd-even Transposition Sort
($OddEvenTranspositionSort[$i], $OddEvenTranspositionSort[$i + 1]) = ($OddEvenTranspositionSort[$i + 1], $OddEvenTranspositionSort[$i]);
$Flag = 1;
}
}
# 奇数 偶数
for(my $i = 1; $i < $Count; $i += 2){
if($OddEvenTranspositionSort[$i] > $OddEvenTranspositionSort[$i + 1]){
# 奇偶転置ソート Odd-even Transposition Sort
($OddEvenTranspositionSort[$i], $OddEvenTranspositionSort[$i + 1]) = ($OddEvenTranspositionSort[$i + 1], $OddEvenTranspositionSort[$i]);
$Flag = 1;
}
}
}
return @OddEvenTranspositionSort;
}
参考URL
奇偶転置ソート - Wikipedia
スポンサードリンク :
Tags :
Home :
シリーズ
月別アーカイブ カテゴリ
オンライン コンパイラ/インタプリタ
Perl リファレンス
株式
テクニカル分析
計算式ライブラリ
プロフィール
Author:雨宮
Firefoxを使用しているので気づかなかったけど、IE6でソースコードを上手くコピーできない
5/3
携帯用ならIE6でもソースコードをコピーできる
携帯用