From 401dffa417514c3ae82ef0515fa604cd12a1c5bc Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 12 Dec 2021 18:59:25 +0100
Subject: solution week 142

---
 challenge-142/wambash/raku/ch-2.raku | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 challenge-142/wambash/raku/ch-2.raku

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
+}
-- 
cgit