ch-1.raku bug fix

2 files changed, 20 insertions, 48 deletions

diff --git a/challenge-076/mark-anderson/raku/ch-1.raku b/challenge-076/mark-anderson/raku/ch-1.raku
index 7f4dccfb93..4141f6c41d 100644
--- a/challenge-076/mark-anderson/raku/ch-1.raku
+++ b/challenge-076/mark-anderson/raku/ch-1.raku
@@ -2,56 +2,25 @@
 
 =begin usage
 
-Usage: raku ch-1.raku 121
+Usage: raku ch-1.raku 51
 
 Output:
 
- 3  5 113
- 3 11 107
- 3 17 101
- 3 29  89
- 3 47  71
- 3 59  59
- 5  7 109
- 5 13 103
- 5 19  97
- 5 37  79
- 5 43  73
- 7 11 103
- 7 13 101
- 7 17  97
- 7 31  83
- 7 41  73
- 7 43  71
- 7 47  67
- 7 53  61
- 7  7 107
-11 13  97
-11 31  79
-11 37  73
-11 43  67
-13 19  89
-13 29  79
-13 37  71
-13 41  67
-13 47  61
-17 31  73
-17 37  67
-17 43  61
-19 23  79
-19 29  73
-19 31  71
-19 41  61
-19 43  59
-19 19  83
-23 31  67
-23 37  61
-29 31  61
-31 37  53
-31 43  47
-31 31  59
-37 41  43
-37 37  47
+ 2  2 47
+ 3  5 43
+ 3  7 41
+ 3 11 37
+ 3 17 31
+ 3 19 29
+ 5 17 29
+ 5 23 23
+ 5  5 41
+ 7 13 31
+ 7  7 37
+11 17 23
+11 11 29
+13 19 19
+17 17 17
 
 =end usage
 
@@ -75,7 +44,7 @@ sub MAIN(UInt $N where $N > 1) {
 }
 
 sub min-primes(UInt $N, $count) {
-    my @primes = ((2..$N).grep(*.is-prime) xx 2).flat;
+    my @primes = ((2..$N).grep(*.is-prime) xx $count).flat;
 
     my @results = @primes.combinations($count).grep(*.sum == $N)
                                               .map(*.sort)
diff --git a/challenge-076/mark-anderson/raku/ch-2.raku b/challenge-076/mark-anderson/raku/ch-2.raku
index d763d9361a..8d6235c9ee 100644
--- a/challenge-076/mark-anderson/raku/ch-2.raku
+++ b/challenge-076/mark-anderson/raku/ch-2.raku
@@ -78,6 +78,9 @@ wigged
 
 =end usage
 
+# My word list doesn't include plurals so if a word matches then 
+# I'll use the below module to check if the plural is in the grid.
+
 use Lingua::EN::Inflect:from<Perl5> 'PL';
 
 sub MAIN(Str $grid, Str $word-list, UInt $word-length=5) {