ID聞け 最新コンビネーション
sub combination {
my $ary = shift;
my $con = shift || [];my $first = shift @$ary;
foreach my $e (@$ary) {
push(@$con, [$first, $e]);
}
combination($ary, $con) if (scalar(@$ary));
return $con;
}
["A","B","C"]を与えたら、
[ ["A","B"], ["A","C"], ["B","C"] ]を返してくれる。
これのインデックスも欲しい。
[ [ [0,"A"],[1,"B"] ], [ [0,"A"],[2,"C"] ], [ [1,"B"],[2,"C"] ] ]を返すべきか、
[ [0, 1], [0, 2], [1, 2] ]も返すべきか。
どうすんべかのー。