diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-09-05 01:37:38 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-09-05 01:37:38 +0100 |
| commit | 742c8ccac08140e2fc0140b02ee06ad14bb825a9 (patch) | |
| tree | 3be4ce29b137c916aa90ca858967ff4a56e76941 | |
| parent | 46c5946c529b5fb90a673a124e8695d1cc9e8106 (diff) | |
| download | perlweeklychallenge-club-742c8ccac08140e2fc0140b02ee06ad14bb825a9.tar.gz perlweeklychallenge-club-742c8ccac08140e2fc0140b02ee06ad14bb825a9.tar.bz2 perlweeklychallenge-club-742c8ccac08140e2fc0140b02ee06ad14bb825a9.zip | |
- Added single number solution.
| -rwxr-xr-x | challenge-076/mohammad-anwar/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-076/mohammad-anwar/raku/ch-1.raku b/challenge-076/mohammad-anwar/raku/ch-1.raku index ff88af4efc..0e72857504 100755 --- a/challenge-076/mohammad-anwar/raku/ch-1.raku +++ b/challenge-076/mohammad-anwar/raku/ch-1.raku @@ -18,7 +18,7 @@ sub prime-sum(Int $sum) { my @prime = find-prime-upto($sum); my @prime-sum = Empty; - for 2..$sum -> $i { + for 1..$sum -> $i { for @prime.combinations: $i -> $j { my $_sum = [+] $j; @prime-sum.push: $j if $_sum == $sum; |
