diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2021-10-31 11:53:56 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2021-10-31 11:53:56 +0000 |
| commit | 7750c7ec2f0f9503f4afc85477ae7967d995754e (patch) | |
| tree | 1de778041e7be2a08f03c5b8bf1ffac81b043d2f | |
| parent | 3597b04e7b51e87df46f2bae77e3421f694977f7 (diff) | |
| download | perlweeklychallenge-club-7750c7ec2f0f9503f4afc85477ae7967d995754e.tar.gz perlweeklychallenge-club-7750c7ec2f0f9503f4afc85477ae7967d995754e.tar.bz2 perlweeklychallenge-club-7750c7ec2f0f9503f4afc85477ae7967d995754e.zip | |
a few tweaks
| -rw-r--r-- | challenge-136/mark-anderson/raku/ch-1.raku | 2 | ||||
| -rw-r--r-- | challenge-136/mark-anderson/raku/ch-2.raku | 9 |
2 files changed, 4 insertions, 7 deletions
diff --git a/challenge-136/mark-anderson/raku/ch-1.raku b/challenge-136/mark-anderson/raku/ch-1.raku index 59f55c91a0..16ae31fcd9 100644 --- a/challenge-136/mark-anderson/raku/ch-1.raku +++ b/challenge-136/mark-anderson/raku/ch-1.raku @@ -9,5 +9,5 @@ is two-friendly(4, 10), 1, 'Example 3'; sub two-friendly($m, $n) { - +(log2($m gcd $n).narrow ~~ UInt); + +(log2($m gcd $n).narrow ~~ Int); } diff --git a/challenge-136/mark-anderson/raku/ch-2.raku b/challenge-136/mark-anderson/raku/ch-2.raku index dff7f97a72..fff8eb4235 100644 --- a/challenge-136/mark-anderson/raku/ch-2.raku +++ b/challenge-136/mark-anderson/raku/ch-2.raku @@ -5,15 +5,12 @@ plan 3; for 16 => 4, 9 => 2, 15 => 2 { - is +fibonacci-sums(.key), .value, "Example " ~ ++$; + is fibonacci-sums(.key), .value, "Example " ~ ++$ } sub fibonacci-sums($n) { - my $fib := 1, 2, { $^a + $^b } ... { $n - $^a < $^b }; + my $fib := 1, 2, { $^a + $^b } ... { $^a + $^b >= $n } - gather for $fib.combinations.skip - { - .take if .sum == $n; - } + + $fib.combinations(2..*).grep(*.sum == $n) } |