aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Update all new Tasks

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 09:02:09 -05:00
parent 00a190b0a6
commit 91df62d461
5697 changed files with 93386 additions and 804 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Hash-join/Perl-6/hash-join.pl6 Normal file
View file

@ -0,0 +1,18 @@
my @A = [1, "Jonah"],
[2, "Alan"],
[3, "Glory"],
[4, "Popeye"];
my @B = ["Jonah", "Whales"],
["Jonah", "Spiders"],
["Alan", "Ghosts"],
["Alan", "Zombies"],
["Glory", "Buffy"];
sub hash-join(@a, &a, @b, &b) {
my %hash{Any};
%hash{.&a} = $_ for @a;
([%hash{.&b} // next, $_] for @b);
}
.perl.say for hash-join @A, *.[1], @B, *.[0];