diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-22 12:04:57 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-22 12:04:57 -0600 |
| commit | d8cd2a64a6b98129b0f33dfcf5de55d3f3aeed54 (patch) | |
| tree | 05ab1001672caa7a6f00a2a5f901e1857ed0ed28 | |
| parent | 2210dbc39a11661fcc070f52361fa17a6ec9237e (diff) | |
| download | perlweeklychallenge-club-d8cd2a64a6b98129b0f33dfcf5de55d3f3aeed54.tar.gz perlweeklychallenge-club-d8cd2a64a6b98129b0f33dfcf5de55d3f3aeed54.tar.bz2 perlweeklychallenge-club-d8cd2a64a6b98129b0f33dfcf5de55d3f3aeed54.zip | |
initial
| -rw-r--r-- | challenge-105/mark-anderson/raku/ch-1.raku | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/challenge-105/mark-anderson/raku/ch-1.raku b/challenge-105/mark-anderson/raku/ch-1.raku index 9e999f44b4..40ed417fbb 100644 --- a/challenge-105/mark-anderson/raku/ch-1.raku +++ b/challenge-105/mark-anderson/raku/ch-1.raku @@ -1,5 +1,9 @@ #!/usr/bin/env raku +# +# With help from the solutions by Luca and E Choroba. +# + use Test; plan 2; @@ -8,12 +12,5 @@ is nth-root(5, 34), 2.02; sub nth-root($n, $k) { - my $x = .narrow given $k ** (1/$n); - - unless $x ~~ UInt - { - $x .= fmt("%.2f"); - } - - $x; + $k.roots($n).first.fmt("%.2f") + 0; } |