數(shù)組組合---合并神馬

thomaslyang

轉(zhuǎn)移陣地， stack overflow 見(jiàn)�。。�

x9x9

這個(gè)用一個(gè)施瓦茨轉(zhuǎn)換就可以搞定吧？

zhlong8

有沒(méi)重復(fù)的？保持不保持順序的？只有字符串?dāng)?shù)字等簡(jiǎn)單的東西嗎？3、6不分你讓我好糾結(jié) {:3_188:}

thomaslyang

有沒(méi)重復(fù)的？保持不保持順序的？只有字符串?dāng)?shù)字等簡(jiǎn)單的東西嗎？3、6不分你讓我好糾結(jié)
zhlong8 發(fā)表于 2011-09-08 10:39

已糾正，不用排序

jason680

已糾正，不用排序
thomaslyang 發(fā)表于 2011-09-08 11:00

試試用hash比較簡(jiǎn)單....

thomaslyang

回復(fù) 2# x9x9
能具體點(diǎn)嗎？那個(gè)算法沒(méi)接觸過(guò)， 舉個(gè)例子吧， 麻煩你了

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

蘭花仙子 發(fā)表于 2011-09-08 12:16

#對(duì)仙子的程序的補(bǔ)全
#個(gè)人為C程序員，對(duì)for 倒置相當(dāng)不習(xí)慣
my $arr = [];
push @$arr, [$_, @{$h{$_}}] for (sort {$a cmp $b} (keys %h));

print Dumper $arr;

x9x9

回復(fù)  x9x9
能具體點(diǎn)嗎？那個(gè)算法沒(méi)接觸過(guò)， 舉個(gè)例子吧， 麻煩你了
thomaslyang 發(fā)表于 2011-09-08 11:27

仙子版主很簡(jiǎn)單的用push和for循環(huán)就搞定了，根本都不用施瓦茨轉(zhuǎn)換，相對(duì)來(lái)說(shuō)我想復(fù)雜了。