diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-09-21 13:15:56 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-09-21 13:15:56 -0600 |
| commit | 7445a3719578b7fd43eb82cc45b6ce45264c6d3d (patch) | |
| tree | 3f913dec87b8a18143ca00f3deb6e8d9c3ba2b1f | |
| parent | 778b4ee84076081c2df48d50dd133d80726e8472 (diff) | |
| download | perlweeklychallenge-club-7445a3719578b7fd43eb82cc45b6ce45264c6d3d.tar.gz perlweeklychallenge-club-7445a3719578b7fd43eb82cc45b6ce45264c6d3d.tar.bz2 perlweeklychallenge-club-7445a3719578b7fd43eb82cc45b6ce45264c6d3d.zip | |
Challenge 79 Solutions (Raku)
| -rw-r--r-- | challenge-079/mark-anderson/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-079/mark-anderson/raku/ch-1.raku b/challenge-079/mark-anderson/raku/ch-1.raku index 0c6bceb3b3..9d690421e5 100644 --- a/challenge-079/mark-anderson/raku/ch-1.raku +++ b/challenge-079/mark-anderson/raku/ch-1.raku @@ -1,3 +1,3 @@ unit sub MAIN($N where * > 0); -say (1..$N).map(*.base(2)).comb.sum mod 1000000007; +say (1..$N).map(*.base(2)).comb(/1/).elems mod 1000000007; |