ソートについて

質問

過去にも似たような質問を立てさせて頂いておりますが、今回はちょっと違うのかな?と思い、Ｑさせて頂きます。

jcode.plを使ってＣＧＩを作成しています。
@data=(13,5,7,2,10,9,6)というデータがあり、これを下記のように何パターンかにしたいのです。（データの数字はサンプルです）

例：5-7-13、2-7-13、2-5-7、・・・etc

何を言いたいかというと、「フィールド1 - フィールド2 - フィールド3」や、「フィールド2 - フィールド3 - フィールド4」、「フィールド1 - フィールド3 - フィールド4」というように区切り、それを昇順にソートさせたいのです。

このような場合の記述方法を御教え願えますでしょうか?

回答No.1

nipotan · ベストアンサー

質問の意図や目的が、上記文章では全然理解できないので、私の解釈が意図とハズれてたらごめんなさい。

要するに、配列の全ての要素に対して、総当りで、3 つの数字の組み合わせを作り、ハイフンで区切り、その数字がソートされていればいいんでしょうか。
そして、その組み合わせを全パターン作ればいいんでしょうか。
同じ組み合わせ (たとえば 13-13-13 とか) は作らないって事でいいんですよね？
---
my @data = (13, 5, 7, 2, 10, 9, 6);
my @sorted = ();
for(my $i = 0; $i < @data; $i++){
for(my $j = 0; $j < @data; $j++){
next if $j == $i;
for(my $k = 0; $k < @data; $k++){
next if $k == $i || $k == $j;
push(@sorted, join '-', sort{ $a <=> $b }@data[$i, $j, $k]);
}
}
}
print join "\n", @sorted;
---

これでどうでしょうか。
(もっといいアルゴリズムはありそうですが、とりあえず…)

お礼

ご回答ありがとうございます。
意図するコトの説明って難しい・・・以前から説明下手なもので・・・(^^ゞ
でも、「nipotan」様の御解釈どおりです。理解してくださってありがとうございます。さっそく教えて頂いたソースを使ってみます。