[SP-pm] Ajuda em matriz

[Marco Lima]

48!

perl -aF/x+/ -ne 'END{print%x}$_=$F[3];$x{$F[1]}+=$F[2]*(/V/?1:-1)' data


by Mago

Marco Lima escreveu:
> perl -aF/x+/ -pe '$_=$F[3];$x{$F[1]}+=/V/?$F[2]:-$F[2];$_="@{[%x]}\n"' data
>
> ou
>
> perl -aF/x+/ -ne 'END{print%x}$_=$F[3];$x{$F[1]}+=/V/?$F[2]:-$F[2]' data
>
>
> eden escreveu:
>   
>> On 8/9/07, Nelson Ferraz <nferraz em gmail.com> wrote:
>>   
>>     
>>>> perl -aF/x+/ -ne 'END{print%x}$x{$F[1]}+=$F[3]=~/V/?$F[2]:-$F[2]' data
>>>>       
>>>>         
>>> ou ainda:
>>>
>>> perl -aF/x+/ -ne 'END{print%x}$x{$F[1]}+=$F[2]*(2*$F[3]=~/V/-1)' data
>>>     
>>>       
>> Bem, a contagem conta *todos* os caracteres, inclusive o comando
>> 'perl' e os switches, então ainda estou na frente por 2 chars :P
>>
>> perl -ne'END{print%d}($k,$v,$_)=/([^x]+)/g;$d{$k}+=/V/?$v:-$v' data
>>
>>   
>>     
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>
>