diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2021-10-25 11:57:49 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2021-10-25 11:57:49 +0000 |
| commit | 3597b04e7b51e87df46f2bae77e3421f694977f7 (patch) | |
| tree | b8a2e549a3008aedc33a285903b058353ad5089f | |
| parent | 03ae69ae56d77043a61a7a5747eb3fa05da50785 (diff) | |
| download | perlweeklychallenge-club-3597b04e7b51e87df46f2bae77e3421f694977f7.tar.gz perlweeklychallenge-club-3597b04e7b51e87df46f2bae77e3421f694977f7.tar.bz2 perlweeklychallenge-club-3597b04e7b51e87df46f2bae77e3421f694977f7.zip | |
Challenge 136 Solutions (Raku)
| -rw-r--r-- | challenge-136/mark-anderson/raku/ch-1.raku | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-136/mark-anderson/raku/ch-1.raku b/challenge-136/mark-anderson/raku/ch-1.raku index 7fcc297121..59f55c91a0 100644 --- a/challenge-136/mark-anderson/raku/ch-1.raku +++ b/challenge-136/mark-anderson/raku/ch-1.raku @@ -9,6 +9,5 @@ is two-friendly(4, 10), 1, 'Example 3'; sub two-friendly($m, $n) { - my $gcd = $m gcd $n; - +(log2($gcd).narrow ~~ UInt); + +(log2($m gcd $n).narrow ~~ UInt); } |