diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-07-19 00:30:43 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-07-19 00:30:43 -0600 |
| commit | 993ffb1d234c969417741a4e3a5721f66e8bf981 (patch) | |
| tree | bf81ac4d86f80d92e810bab0c33a89b3bdd10fa2 | |
| parent | 58bf5d8427ab57ee8dc095567bab5ffca7160403 (diff) | |
| download | perlweeklychallenge-club-993ffb1d234c969417741a4e3a5721f66e8bf981.tar.gz perlweeklychallenge-club-993ffb1d234c969417741a4e3a5721f66e8bf981.tar.bz2 perlweeklychallenge-club-993ffb1d234c969417741a4e3a5721f66e8bf981.zip | |
initial 122
| -rw-r--r-- | challenge-122/mark-anderson/raku/ch-1.raku | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/challenge-122/mark-anderson/raku/ch-1.raku b/challenge-122/mark-anderson/raku/ch-1.raku index ef2f39b2a1..02ffa0bb96 100644 --- a/challenge-122/mark-anderson/raku/ch-1.raku +++ b/challenge-122/mark-anderson/raku/ch-1.raku @@ -3,12 +3,12 @@ use Test; plan 6; -is avg-seq(1 ... ∞), (1, 1.5 ... 10.5); -is avg-seq(1, 3 ... ∞), (1 ... 20); -is avg-seq(2, 4 ... ∞), (2 ... 21); -is avg-seq(3, 6 ... ∞), (3, 4.5 ... 31.5); -is avg-seq(4, 8 ... ∞), (4, 6 ... 42); -is avg-seq(10, 20 ... ∞), (10, 15 ... 105); +is-deeply avg-seq(1 ... ∞), (1, 1.5 ... 10.5)>>.narrow; +is-deeply avg-seq(1, 3 ... ∞), (1 ... 20); +is-deeply avg-seq(2, 4 ... ∞), (2 ... 21); +is-deeply avg-seq(3, 6 ... ∞), (3, 4.5 ... 31.5)>>.narrow; +is-deeply avg-seq(4, 8 ... ∞), (4, 6 ... 42); +is-deeply avg-seq(10, 20 ... ∞), (10, 15 ... 105); sub avg-seq($seq) { |