[Cascavel-pm] Soma

[Eden Cardim]

On 7/10/06, Igor Sutton <igor.sutton em gmail.com> wrote:
> Ups, entendi mal a questão :)
>
>  Acho que você pode fazer algo do tipo:
>
>  <code>
>  my @result;
>  my $tosum = "4:3:2:1";
>  my @nums = qw(1 2 3 4);
>  my @tosum = split(/:/, $tosum);
>
>  for (my $i=0; $i<@tosum;$i++) {
>      push @result, $nums[$i] + $tosum[$i];
>  }
>
>  print "@result\n";
>  <code>

Em perl6 seria assim:

($a, $b) »+« (split/:/, $tosum);

:D