diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-10-08 14:43:27 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-10-08 14:43:27 +0000 |
| commit | a3367702109c57d9d848fabb73b1b4655aad068f (patch) | |
| tree | 5ce3f4698f650fa4c7c17104c513d403ddc3b3fa | |
| parent | 20e659d9585422505fb9b2ab662f2225fc29f654 (diff) | |
| download | perlweeklychallenge-club-a3367702109c57d9d848fabb73b1b4655aad068f.tar.gz perlweeklychallenge-club-a3367702109c57d9d848fabb73b1b4655aad068f.tar.bz2 perlweeklychallenge-club-a3367702109c57d9d848fabb73b1b4655aad068f.zip | |
module modified
| -rw-r--r-- | challenge-237/mark-anderson/raku/WDOM.rakumod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-237/mark-anderson/raku/WDOM.rakumod b/challenge-237/mark-anderson/raku/WDOM.rakumod index 36140c761c..01bb36e95e 100644 --- a/challenge-237/mark-anderson/raku/WDOM.rakumod +++ b/challenge-237/mark-anderson/raku/WDOM.rakumod @@ -15,7 +15,7 @@ multi method new(:$weekday-of-month!, :$day-of-week!, :$month!, :$year!) my $day = [1..7].rotate($day-of-week - $dt.day-of-week).head; - $day = ($weekday-of-month - 1) * 7 + $day; + $day += ($weekday-of-month - 1) * 7; # Todo: Handle the exception here? Date.new(:$year, :$month, :$day) |