[SP-pm] Soma de duas listas

[Eden Cardim]

2010/7/22 Pinguim Azul <bluepenguin em gmail.com>:
> Hi,
>
> Qual o menor jeito de somar duas listas, elemento a elemento? O melhor
> que eu achei foi pelos indices, mas imagino que tem coisa melhor:
>
> @a=(1,2,3); @b=(4,5,6);
> @c=map{$a[$_]+$b[$_]}(0..($x=@a)-1);

push em c,pop(@a)+pop em b while em a'

e se você inicializar @ARGV invés do @b, pode ficar assim:

push em c,pop(@a)+pop while em a'

-- 
   Eden Cardim       Need help with your Catalyst or DBIx::Class project?
  Code Monkey                    http://www.shadowcat.co.uk/catalyst/
 Shadowcat Systems Ltd.  Want a managed development or deployment platform?
http://blog.edencardim.com/            http://www.shadowcat.co.uk/servers/