RosettaCodeData/Task/Collections/Perl-6/collections-1.pl6

# Array
my @array = 1,2,3;
@array.push: 4,5,6;

# Hash
my %hash = 'a' => 1, 'b' => 2;
%hash<c d> = 3,4;
%hash.push: 'e' => 5, 'f' => 6;

# SetHash
my $s = SetHash.new: <a b c>;
$s ∪= <d e f>;

# BagHash
my $b = BagHash.new: <b a k l a v a>;
$b ⊎= <a b c>;
-												Sync

											
										
										
											2013-10-27 22:24:23 +00:00
+								# Array
-												langs a-z

											
										
										
											2013-04-10 22:43:41 -07:00
+								my @array = 1,2,3;
 								@array.push: 4,5,6;
-												Sync

											
										
										
											2013-10-27 22:24:23 +00:00
 								# Hash
-												Another update from ingydotnet^djgoku

											
										
										
											2015-11-18 06:14:39 +00:00
+								my %hash = 'a' => 1, 'b' => 2;
-												Sync

											
										
										
											2013-10-27 22:24:23 +00:00
+								%hash<c d> = 3,4;
-												Another update from ingydotnet^djgoku

											
										
										
											2015-11-18 06:14:39 +00:00
+								%hash.push: 'e' => 5, 'f' => 6;
-												Sync

											
										
										
											2013-10-27 22:24:23 +00:00
-												Another update from ingydotnet^djgoku

											
										
										
											2015-11-18 06:14:39 +00:00
+								# SetHash
 								my $s = SetHash.new: <a b c>;
-												Sync

											
										
										
											2013-10-27 22:24:23 +00:00
+								$s ∪= <d e f>;
-												Another update from ingydotnet^djgoku

											
										
										
											2015-11-18 06:14:39 +00:00
+								# BagHash
 								my $b = BagHash.new: <b a k l a v a>;
 								$b ⊎= <a b c>;