diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2022-07-04 10:05:08 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2022-07-04 10:05:08 +0000 |
| commit | 6b2899544f28eb035ecabd875df1f7f0d5fe289e (patch) | |
| tree | 64a67118c1eb1e01c145452f1c8af012a3be497e | |
| parent | 0f0c121ddf962e82d030ea69c85be3fef971d5bb (diff) | |
| download | perlweeklychallenge-club-6b2899544f28eb035ecabd875df1f7f0d5fe289e.tar.gz perlweeklychallenge-club-6b2899544f28eb035ecabd875df1f7f0d5fe289e.tar.bz2 perlweeklychallenge-club-6b2899544f28eb035ecabd875df1f7f0d5fe289e.zip | |
Challenge 172 Solutions (Raku)
| -rw-r--r-- | challenge-172/mark-anderson/raku/ch-2.raku | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/challenge-172/mark-anderson/raku/ch-2.raku b/challenge-172/mark-anderson/raku/ch-2.raku index 8c02fd09cb..8eaf4c99a4 100644 --- a/challenge-172/mark-anderson/raku/ch-2.raku +++ b/challenge-172/mark-anderson/raku/ch-2.raku @@ -2,13 +2,13 @@ use Test; is five-number-summary(1, 2, 3, 4, 5, 6), - {:lower-q(2), :median(3.5), :min(1), :upper-q(5)}; + {:lower-q(2), :median(3.5), :min(1), :upper-q(5), :max(6)}; is five-number-summary(1, 2, 3, 4, 5, 6, 7), - {:lower-q(2), :median(4), :min(1), :upper-q(6)} + {:lower-q(2), :median(4), :min(1), :upper-q(6), :max(7)} is five-number-summary(6, 7, 15, 36, 39, 40, 41, 42, 43, 47, 49), - {:lower-q(15), :median(40), :min(6), :upper-q(43)} + {:lower-q(15), :median(40), :min(6), :upper-q(43), :max(49)} is five-number-summary(7, 15, 36, 39, 40, 41), - {:lower-q(15), :median(37.5), :min(7), :upper-q(40)} + {:lower-q(15), :median(37.5), :min(7), :upper-q(40), :max(41)} sub five-number-summary(+@a) { @@ -16,9 +16,10 @@ sub five-number-summary(+@a) return { min => @a.head, - median => median(@a), lower-q => quartile('lower'), - upper-q => quartile('upper') + median => median(@a), + upper-q => quartile('upper'), + max => @a.tail } sub median(@a) |