From af7b6e0c299a74de0a9d28dc5c12fb5a4dd3793e Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 10 Jul 2022 15:38:40 +0200
Subject: solution week 172-2

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

diff --git a/challenge-172/wambash/raku/ch-2.raku b/challenge-172/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..68b8751053
--- /dev/null
+++ b/challenge-172/wambash/raku/ch-2.raku
@@ -0,0 +1,25 @@
+#!/usr/bin/env raku
+
+sub quantile ($q,+@n) {
+    my $p = @n.end * $q;
+    (1-$q)*@n[$p.floor] + $q*@n[$p.ceiling]
+}
+
+sub five-number-summary (+@n) {
+    0, 1/4 ... 1
+    andthen .map: *.&quantile: @n.sort
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is five-number-summary(0,4),(0,1,2,3,4);
+    is five-number-summary(6, 7, 15, 36, 39, 40, 41, 42, 43, 47, 49),(6,20.25,40,42.75,49);
+    is five-number-summary(0,1),(0,1/4 ... 1);
+    is five-number-summary(0,2,4),(0,1/2,2,3+1/2,4);
+    is five-number-summary(0,1,2,3,4),(0,1,2,3,4);
+    done-testing;
+}
+
+multi MAIN (*@n) {
+    say five-number-summary @n
+}
-- 
cgit