複数のキーで配列をソートするには？

Question

配列が複数あって、キーを３つでソートする場合には
どのようにしたらよろしいでしょうか？
@a = ("A","B","C","B","A" );
@b = ("Y","X","Z","X","Z" );
@c = (4,3,5,2,1);
結果として、
A,Y,4
A,Z,1
B,X,2
B,X,3
C,Z,5
のように表示したいのですが、２次元配列でないと無理でしょうか？

ちょっと分かりにくいかもしれませんが、Excelなどで、３つのキーで
優先順位を設定してソートするようなイメージです。

kumoz · Accepted Answer

最初に、回答に書き間違いが２カ所あったことをお詫びします。

1) 上から５行目: $a->[2] <=> $b[2] ---> $a->[2] <=> $b->[2]
2) 下から３行目: $y[$a] cmp $y[$a] ---> $y[$a] cmp $y[$b]

配列のソートには要素そのものを並べ替えるほかに、
配列の添字 (インデックス) を並べ替えるやり方があります。

@x = ("A", "B", "C", "B", "A");

1) @sorted = sort { $a cmp $b } @x; # { $a cmp $b } は省略可

2) @order = sort { $x[$a] cmp $x[$b] } 0 .. $#x;

sort では、$a と $b は特別な意味を持っています。$a と $b には、
ソート対象のリストのうちの２つの要素がセットされます。grep, map
の $_ と同じようなもので、sort では同時に２つの要素を処理するため
このようになっているものと思います。

2) のソートブロック { $x[$a] cmp $x[$b] } の $x[$a], $x[$b] は、配列
@x の各要素を指しています。配列名に @a または @b を使うと、各要素を
指定する $a[$a], $a[$b], $b[$a], $b[$b] のブラケット外の $a, $b は配
列名とは解釈されません (なお、@c は差し支えありません)。

ソートを行っている部分は、<=> のところだけではなく cmp によっても
行っています。

{ $a cmp $b } # 文字列比較
{ $a <=> $b } # 数値比較

sort { $x[$a] cmp $x[$b] or $y[$a] cmp $y[$b] or $z[$a] <=> $z[$b] } 0 .. $#x;

上のソートブロックでは、３つの比較文を or で繋げています。まず最初に、
@x の各要素を文字列比較して、同じ場合は結果が偽になりますので、次に
@y の同じ添字の要素を文字列比較して、それでも同じときには @z の同じ
添字の要素を数値比較せよ、という意味になります。

最後の質問ですが、質問を誤解しているかも知れません。

@v = (44, 33, 55, 22, 11);
@w = ("a", "b", "c", "b", "a");

@x = ("A", "B", "C", "B", "A");
@y = ("Y", "X", "Z", "X", "Z");
@z = (4, 3, 5, 2, 1);

@order = sort { $x[$a] cmp $x[$b] or $y[$a] cmp $y[$b] or $z[$a] <=> $z[$b] } 0 .. $#x;

@v = @v[@order]; @w = @w[@order];
@x = @x[@order]; @y = @y[@order]; @z = @z[@order];

kumoz · Answer

みなさんと似たような回答ですが、 print join " ", map { join(',', @$_) } sort { $a->[0] cmp $b->[0] or $a->[1] cmp $b->[1] or $a->[2] <=> $b[2] } map { [ $a[$_], $b[$_], $c[$_] ] } 0 .. $#a; print " "; 質問の配列名を変えれば、もう少し簡単になります。配列名とソートのデフォルト変数の名前が衝突して、ソートブロック内で配列の個々の要素を指定できない問題がある。 @x = ("A", "B", "C", "B", "A"); @y = ("Y", "X", "Z", "X", "Z"); @z = (4, 3, 5, 2, 1); foreach (sort { $x[$a] cmp $x[$b] or $y[$a] cmp $y[$a] or $z[$a] <=> $z[$b] } 0 .. $#x) { print "$x[$_],$y[$_],$z[$_] "; }

okiyoshi · Answer

# 忘れてました・・先頭に書きます。
use Data::Dumper;

okiyoshi · Answer

my @a = ("A","B","C","B","A" );
my @b = ("Y","X","Z","X","Z" );
my @c = (4,3,5,2,1);

# 作業用
my @array;

# ソートしたい配列達の同位置をだんご３兄弟でリファレンスにする
push@array, [ $a[$_], $b[$_], $c[$_] ]for 0..$#a;

# それをソートする
@array = sort { $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] } @array;

# 確認する
print Dumper( @array );

# 元の配列に戻す
($a[$_],$b[$_],$c[$_]) = @{$array[$_]}for 0..$#array;

# 確認する
print Dumper( @a,@b,@c );

# オンメモリなのでデータ容量が問題だったりして・・

t140 · Answer

@a = ("A","B","C","B","A" );
@b = ("Y","X","Z","X","Z" );
@c = (4,3,5,2,1);

for (sort{$a[$a] cmp $a[$b] or $b[$a] cmp $b[$b] or $c[$a] <=> $c[$b]} 0 .. $#a){
print "$a[$_],$b[$_],$c[$_]
";
}

bgbg · Answer

こちらをご参考に。
http://www.din.or.jp/~ohzaki/perl.htm#SortMulti

結果的に、2次元配列に変換したほうが楽だと思います。
for($i = 0; $i < @a; $i++){
push(@newArray,[$a[$i],$b[$i],$c[$i]]);
}
これで2次元配列にできますから、あとは
@newArray = sort{$a->[0] cmp $b->[0] or $a->[1] cmp $b->[1] or $a->[2] cmp $b->[2]} @newArray;
というようにソートしたい項目順にorで区切ってsort関数に入れ込めば良いでしょう。

noname#25358 · Answer

単純な方法では無理です。
　俺はこれを実現するために、データベースのエンジンシステムを組みました(笑)（しかも Perl で！！）

　まぁ、そこまではいかずとも、２次元配列化して「最優先項目でまずソート」「キーが重複する要素だけ２番目の優先項目でソート」といったような処理が必要になるでしょう。

複数のキーで配列をソートするには？

最初に、回答に書き間違いが２カ所あったことをお詫びします。

みなさんと似たような回答ですが、

この回答への補足

# 忘れてました・・先頭に書きます。

my @a = ("A","B","C","B","A" );

@a = ("A","B","C","B","A" );

こちらをご参考に。

単純な方法では無理です。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

　単純な方法では無理です。