Merge pull request #5363 from wambash/challenge-week-142

solution week 142

1 files changed, 20 insertions, 0 deletions

diff --git a/challenge-142/wambash/raku/ch-2.raku b/challenge-142/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..0d44f9e652
--- /dev/null
+++ b/challenge-142/wambash/raku/ch-2.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+
+sub sleep-sort (+@n) {
+    my Channel $ch .= new;
+    @n
+    andthen .map: {start {sleep $_/5;$ch.send($_)}}\
+    andthen await $_;
+    $ch .close;
+    $ch.list;
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is( sleep-sort($_),(1...10),$_) for (1 .. 10).pick(10) xx 3;
+    done-testing;
+}
+
+multi MAIN (*@n) {
+    say sleep-sort @n
+}