diff options
| author | Asher Harvey-Smith <asherharveysmith@gmail.com> | 2024-04-16 12:35:43 +0100 |
|---|---|---|
| committer | Asher Harvey-Smith <asherharveysmith@gmail.com> | 2024-04-16 12:35:43 +0100 |
| commit | 2cd88e77862b139e1f093ebd33825e80e1ff411e (patch) | |
| tree | 6b8d4ec784c94d6e9a7b676d0346c8610a498c92 | |
| parent | 8123fe93265cb43f46530e36c610160167c8cc2a (diff) | |
| download | perlweeklychallenge-club-2cd88e77862b139e1f093ebd33825e80e1ff411e.tar.gz perlweeklychallenge-club-2cd88e77862b139e1f093ebd33825e80e1ff411e.tar.bz2 perlweeklychallenge-club-2cd88e77862b139e1f093ebd33825e80e1ff411e.zip | |
cannot stop tweaking for the life of me
| -rw-r--r-- | challenge-265/asherbhs/raku/ch-1.raku | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-265/asherbhs/raku/ch-1.raku b/challenge-265/asherbhs/raku/ch-1.raku index 1eaf883865..a81cddabca 100644 --- a/challenge-265/asherbhs/raku/ch-1.raku +++ b/challenge-265/asherbhs/raku/ch-1.raku @@ -1,5 +1,6 @@ sub appearance(Int:D @ints --> Int) { - my @keys = @ints.Bag.grep(*.value ≥ 0.33 × @ints)».key; + my $len = 0.33 × @ints; + my @keys = @ints.Bag.grep(*.value ≥ $len)».key; @keys ?? min @keys !! Int } |