Advertisement
cwchen

[Perl 6] Using array as parameters

Nov 15th, 2017
3,145
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 0.19 KB | None | 0 0
  1. sub add(@arr) {
  2.     my $sum = 0;
  3.    
  4.     for @arr -> $e {
  5.         $sum += $e;
  6.     }
  7.    
  8.     $sum;
  9. }
  10.  
  11. my @arr = (1, 2, 3, 4, 5);
  12. my $sum = add(@arr);
  13. $sum == 15 or die "Wrong value";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement