[SP-pm] Ajuda em matriz

Marco Lima marco.lima em e-via.com.br
Quinta Agosto 9 07:25:54 PDT 2007


perl -ne 
'/([^x]+)x+(\d+)x+(\w)/;$_{$1}+=$3eq"V"?$2:-$2;END{print"@{[%_]}\n"}' data

eden escreveu:
> On 8/9/07, eden <edencardim em gmail.com> wrote:
>   
>> 94 :)
>>
>> perl -MData::Dumper -ne
>> '($k,$v,$_)=/([^x]+)/g;$d{$k}+=/V/?$v:-$v;END{print Dumper(\%d)}' data
>>     
>
> opa, 91:
>
> perl -MData::Dumper -ne 'END{print
> Dumper\%d}($k,$v,$_)=/([^x]+)/g;$d{$k}+=/V/?$v:-$v' data
>
>   



Mais detalhes sobre a lista de discussão SaoPaulo-pm