[Cascavel-pm] Soma

Eden Cardim edencardim em gmail.com
Segunda Julho 10 14:50:00 PDT 2006


On 7/10/06, Víctor A. Rodríguez <victor em bit-man.com.ar> wrote:
> my $index = 1;
> my @aux = ( $a, $b );
> @aux = map {$index ^= 1; $_ + $aux[$index] } split (/:/, $c);
> ($a, $b) = @aux;
>
> Acho que não é muito elegante mais como a função map() inserida num loop e
> muito melhor.

A intenção é boa. Melhorando um pouco a sua idéia:

my @aux = split /:/, $c;
$_ += shift @aux foreach ($a, $b);


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