daily pastebin goal
71%
SHARE
TWEET

[Perl 6] Parameters with side effects.

cwchen Nov 15th, 2017 105 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. sub add-one($n is rw) {
  2.     $n += 1;
  3.     $n;
  4. }
  5.  
  6. my $n = 3;
  7. add-one($n) == 4 or die "Wrong value";
  8. $n == 4 or die "Wrong value";
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top