[SP-pm] Ajuda em matriz

[eden]

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

-- 
edenc.vox.com