pwc-186, ch-1 in Raku

1 files changed, 10 insertions, 0 deletions

diff --git a/challenge-186/kueppo-wesley/Raku/ch-1.raku b/challenge-186/kueppo-wesley/Raku/ch-1.raku
new file mode 100644
index 0000000000..20013e2a28
--- /dev/null
+++ b/challenge-186/kueppo-wesley/Raku/ch-1.raku
@@ -0,0 +1,10 @@
+#!/usr/bin/env raku
+
+sub myzip(@a, @b) {
+	my @result;
+	for zip(@a, @b) -> [$x, $y] { @result.push($x, $y) }
+	return @result;
+}
+
+myzip(<a b c>, <1 2 3>).say;
+myzip(<1 2 3>, <a b c>).say;