Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/local/bin/perl6
- #Modify array in loop array is in fact a ref, okay it works!
- sub a(@r) {
- loop (my $i=0; $i < @r.elems ; $i++){
- @r[$i] = '[' ~ @r[$i] ~ ']';
- }
- }
- #Ok it works too : but is it safe tu use $_???
- sub b(@r) {
- for @r {
- $n = '[' ~ $_ ~ ']';
- }
- }
- #fuck it sucks! :(
- sub c(@r) {
- for @r -> $e {
- $e = '[' ~ $e ~ ']';
- }
- }
- my @d = 'a','b','c','d','e' ;
- f @d ;
- g @d;
- say @d;
Advertisement
Add Comment
Please, Sign In to add comment