[SP-pm] Ajuda em matriz

Fernando Oliveira fernandocorrea em gmail.com
Quinta Agosto 9 10:57:42 PDT 2007


-1
perl -aF/x+/ -ne 'END{print%x}($z,$a,$b,$_)=@F;$x{$a}+=/V/?$b:-$b' data


Em 09/08/07, Marco Lima <marco.lima em e-via.com.br> 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
>



-- 
[]'s Fernando
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20070809/183ff40f/attachment.html 


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