数组组合---合并神马

thomaslyang

转移阵地， stack overflow 见！！！

x9x9

这个用一个施瓦茨转换就可以搞定吧？

zhlong8

有没重复的？保持不保持顺序的？只有字符串数字等简单的东西吗？3、6不分你让我好纠结 {:3_188:}

thomaslyang

有没重复的？保持不保持顺序的？只有字符串数字等简单的东西吗？3、6不分你让我好纠结
zhlong8 发表于 2011-09-08 10:39

已纠正，不用排序

jason680

已纠正，不用排序
thomaslyang 发表于 2011-09-08 11:00

试试用hash比较简单....

thomaslyang

回复 2# x9x9
能具体点吗？那个算法没接触过， 举个例子吧， 麻烦你了

zhlong8

my $ref_arr = [['A',1,2,3,4], ['B', 34,7,98], ['A', 6,7,8], ['C', 56, 1], ['B', 45,7,8], ['D', 69, 890, 11]];

my %map;

for my $ary (@$ref_arr) {
    my($key, @val) = @$ary;
    unless (exists $map{$key}) {
        push @{$map{$key}}, @$ary;
    }
    else {
        push @{$map{$key}}, @val;
    }
}

my @ret;
push @ret, $map{$_} for sort keys %map;

say Dumper \@ret;

兰花仙子

use Data::Dumper;
my $x = [['A',1,2,3,4], ['B', 34,7,98], ['A', 6,7,8], ['C', 56, 1], ['B', 45,7,8], ['D', 69, 890, 11]];
push @{$h{shift @$_}},@$_ for @$x;
print Dumper \%h;

thomaslyang

兰花仙子 发表于 2011-09-08 12:16

#对仙子的程序的补全
#个人为C程序员，对for 倒置相当不习惯
my $arr = [];
push @$arr, [$_, @{$h{$_}}] for (sort {$a cmp $b} (keys %h));

print Dumper $arr;

x9x9

回复  x9x9
能具体点吗？那个算法没接触过， 举个例子吧， 麻烦你了
thomaslyang 发表于 2011-09-08 11:27

仙子版主很简单的用push和for循环就搞定了，根本都不用施瓦茨转换，相对来说我想复杂了。