From 318272c4578e92453108c25c3cc98c1c651aab2c Mon Sep 17 00:00:00 2001 From: Mark <53903062+andemark@users.noreply.github.com> Date: Sat, 16 Mar 2024 15:25:06 +0000 Subject: blog for ch-2 --- challenge-260/mark-anderson/raku/blog-2.md | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/challenge-260/mark-anderson/raku/blog-2.md b/challenge-260/mark-anderson/raku/blog-2.md index 21da9f53b4..55b5699cf5 100644 --- a/challenge-260/mark-anderson/raku/blog-2.md +++ b/challenge-260/mark-anderson/raku/blog-2.md @@ -125,17 +125,6 @@ sub rank($word) } ``` - -For step 3 I originally had this in the for loop: - -``` -my @repeated = $bag.values.grep(* > 1); -take ([+] $bag{@less-than}) / ([*] @repeated>>!); -``` - -but grepping for values > 1 isn't necessary since 1! == 1 and then multiplying by 1 -doesn't change anything. - [The full program.](https://github.com/manwar/perlweeklychallenge-club/blob/master/challenge-260/mark-anderson/raku/ch-2.raku) Thank you for reading my solution to the [Weekly Challenge #260 Task #2.](https://theweeklychallenge.org/blog/perl-weekly-challenge-260/) -- cgit