[SP-pm] Ajuda em matriz

[Marco Lima]

perl -ne 'END{print%_}sub{$_{$_[1]}+=pop=~/V/?pop:-pop}->(split/x+/)' data

58 ! =P

Mago & Fglock

eden escreveu:
> On 8/9/07, Marco Lima <marco.lima em e-via.com.br> wrote:
>   
>> perl -ne
>> '/([^x]+)x+(\d+)x+(\w)/;$_{$1}+=$3eq"V"?$2:-$2;END{print"@{[%_]}\n"}' data
>>     
>
> 78, já que vale não usar Data::Dumper:
>
> perl -ne 'END{print "@{[%d]}\n"}($k,$v,$_)=/([^x]+)/g;$d{$k}+=/V/?$v:-$v' data
>
>