Guest User

Untitled

a guest
Jan 12th, 2021
225
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.46 KB | None | 0 0
  1. #!/usr/local/bin/perl6
  2.  
  3. #Modify array in loop array is in fact a ref, okay it works!
  4. sub a(@r) {
  5. loop (my $i=0; $i < @r.elems ; $i++){
  6. @r[$i] = '[' ~ @r[$i] ~ ']';
  7. }
  8. }
  9.  
  10. #Ok it works too : but is it safe tu use $_???
  11. sub b(@r) {
  12. for @r {
  13. $n = '[' ~ $_ ~ ']';
  14. }
  15. }
  16.  
  17. #fuck it sucks! :(
  18. sub c(@r) {
  19. for @r -> $e {
  20. $e = '[' ~ $e ~ ']';
  21. }
  22. }
  23.  
  24. my @d = 'a','b','c','d','e' ;
  25.  
  26. f @d ;
  27. g @d;
  28.  
  29. say @d;
  30.  
Advertisement
Add Comment
Please, Sign In to add comment