配列データの並び替えについて。

質問

今回初めて質問させていただく「hirokei」と申します、Perlは少し慣れてきましたがまだまだ初心者です、よろしくお願いします。

早速ですが。

配列データの中身を自由に並び替えるアルゴリズム
を考えております、有効な関数などございましたら教えていただけると幸いです。

たとえば・・・

@test = (10,20,30,40,50,60,70,80,90,100);
この「@test」の2番目($test[1])のデータと5番目($test[4])のデータを入れ替え(交換)して
(10,20,30,40,50,60,70,80,90,100)
↓
(10,50,30,40,20,60,70,80,90,100)
のようにしたり、

4番目($test[3])から8番目($test[7])のデータを抜き取って2番目($test[1])の後ろに挿入して
(10,20,30,40,50,60,70,80,90,100)
↓
(10,20,40,50,60,70,80,30,90,100)
のようにするには、
どのような考えかたもしくはプログラムの組み方
があるかと思考錯誤しております。

一応考えてみたものがあるのですが、それは抜き取ったデータを抜き取った場所より下へ挿入する場合はうまく動くのですが、抜き取った場所から上に挿入しようとするとうまく動きません。

質問にわかりずらい箇所もあるかと思いますが、そのあたりも含めてよろしくお願いいたします。

hirokei

回答No.1

pica_zip · ベストアンサー

配列の並び替えは、配列スライスを使って

(10,20,30,40,50,60,70,80,90,100)
↓
(10,20,40,50,60,70,80,30,90,100)

なら

@test = (10,20,30,40,50,60,70,80,90,100);

@test[2..7] = @test[3..7, 2];

print join(',', @test)."\n";

のように表現できます。

また自由な並び替えは、ハッシュを使って
データに重みをつけて、 sort でやる方法はどうでしょう。

%test = (
10 => 9,
20 => 1,
30 => 3,
40 => 4,
50 => 5,
60 => 2,
70 => 6,
80 => 7,
90 => 8
);

@test = sort { $test{$a} <=> $test{$b} } keys %test;
print join(',', @test);

お礼

ご回答誠にありがとうございます、配列のスライス
を使用すると出来そうとは思っていたのですが、そのように書けばよかったのですね、ハッシュでの方法も書いていただき、ありがとうございます。

スライスの方でチャレンジしてみようと思います、またわからない事がありましたら質問したいと思っております、そのときはまたよろしくお願いいたします。

ご回答 ありがとうございました。

hirokei

回答No.2

pica_zip

補足です。
スライスでやると
以下のように配列の順番の情報を別に持っておいて
並び替えられます。

--
@info = (9,8,7,6,5,4,3,2,1,0); # 配列の順番の情報
@test = (10,20,30,40,50,60,70,80,90,100);

@test = @test[@info];

print join('\n',@test);

お礼

丁寧に補足まで頂きありがとうございます、また一つ視野が広がりました、配列のスライスでチャレンジしてみようと思います、またご質問するかと思いますがそのときはよろしくお願いいたします。

hirokei