Advertisement
Guest User

Untitled

a guest
Oct 1st, 2016
229
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 1.29 KB | None | 0 0
  1. sub delete-ele (:@array!, :@indx!) {                                                                  
  2.     @array.say;                                                                                        
  3.     my @new-array = [];                                                                                
  4.     my %hash = @array.pairs;                                                                          
  5.     my @del-eles = %hash{@indx}:delete;                                                                
  6.     for %hash.keys -> $key {                                                                          
  7.         @new-array.push(%hash{$key});                                                                  
  8.     }                                                                                                  
  9.     say "Deleted eles -- ", @del-eles;                                                                
  10.     say "Rest eles -- ", @new-array;                                                                  
  11. }                                                                                                      
  12.                                                                                                        
  13. delete-ele(array => [[1..3],[4..6],[7..9]], indx => [0,2]);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement