[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