June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Hash-join/Perl-6/hash-join.pl6
+++ b/Task/Hash-join/Perl-6/hash-join.pl6
@ -0,0 +1,27 @@
+sub hash-join(@a, &a, @b, &b) {
+    my %hash := @b.classify(&b);
+
+    @a.map: -> $a {
+        |(%hash{a $a} // next).map: -> $b { [$a, $b] }
+    }
+}
+
+# Testing:
+
+my @A =
+    [27, "Jonah"],
+    [18, "Alan"],
+    [28, "Glory"],
+    [18, "Popeye"],
+    [28, "Alan"],
+;
+
+my @B =
+    ["Jonah", "Whales"],
+    ["Jonah", "Spiders"],
+    ["Alan", "Ghosts"],
+    ["Alan", "Zombies"],
+    ["Glory", "Buffy"],
+;
+
+.say for hash-join @A, *[1], @B, *[0];