Merge pull request #8828 from andemark/challenge-237

module modified

1 files changed, 10 insertions, 16 deletions

diff --git a/challenge-237/mark-anderson/raku/WDOM.rakumod b/challenge-237/mark-anderson/raku/WDOM.rakumod
index 8e96b4b280..01bb36e95e 100644
--- a/challenge-237/mark-anderson/raku/WDOM.rakumod
+++ b/challenge-237/mark-anderson/raku/WDOM.rakumod
@@ -3,26 +3,20 @@ unit class WDOM is Date is export;
 multi method new(:$weekday-of-month!, :$day-of-week!, :$month!, :$year! where $weekday-of-month eq 'L'|'Last')
 {
     my $dt = Date.new(:$year, :$month).last-date-in-month;
-    my $d = $dt.day-of-week - $day-of-week;
-    $dt - ($d >= 0 ?? $d !! 7 + $d)
-}
 
-multi method new(:$weekday-of-month!, :$day-of-week!, :$month!, :$year! where $weekday-of-month ~~ 1..4) 
-{
-    my $dt = Date.new(:$year, :$month); 
-    my $wdom = $day-of-week >= $dt.day-of-week ?? $weekday-of-month - 1  
-                                               !! $weekday-of-month; 
-    $dt += 7 * $wdom + $day-of-week - $dt.day-of-week 
+    my $day = [$dt.day-6..$dt.day].rotate($day-of-week - $dt.day-of-week).tail;
+
+    Date.new(:$year, :$month, :$day) 
 }
 
-multi method new(:$weekday-of-month!, :$day-of-week!, :$month!, :$year! where $weekday-of-month == 5)
+multi method new(:$weekday-of-month!, :$day-of-week!, :$month!, :$year!) 
 {
-    my $dt = Date.new(:$year, :$month).last-date-in-month;
-    my $d = $dt.day-of-week - $day-of-week;
-    $dt -= $d >= 0 ?? $d !! 7 + $d;
+    my $dt = Date.new(:$year, :$month);
+
+    my $day = [1..7].rotate($day-of-week - $dt.day-of-week).head;
 
-    return $dt if $dt.day == 29|30|31;
+    $day += ($weekday-of-month - 1) * 7; 
 
-    # Todo: Handle the exception here. Just return the 4th day-of-week?
-    die "There isn't a 5th $day-of-week in $month $year" 
+    # Todo: Handle the exception here? 
+    Date.new(:$year, :$month, :$day) 
 }