[DateTime.t] Golfed &us2007dst using hyperspaceships.

Raku · Oct 16, 2010 · 592eef1 · 592eef1
1 parent 866d5ab
commit 592eef1
Showing 1 changed file with 3 additions and 8 deletions.
diff --git a/S32-temporal/DateTime.t b/S32-temporal/DateTime.t
@@ -392,14 +392,9 @@ is dt(timezone => 3661).offset, 3661, 'DateTime.offset (1 hour, 1 minute, 1 seco
     }
 
     sub us2007dst($dt, $critical-hour) {
-        $dt.month >  3
-            || $dt.month ==  3
-                && ($dt.day > 11
-                    || $dt.day == 11 && $dt.hour >= $critical-hour)
-        and $dt.month < 11
-            || $dt.month == 11
-                && ($dt.day < 4
-                    || $dt.day == 4 && $dt.hour < $critical-hour)
+        my $t = ($dt.month, $dt.day, $dt.hour);
+        ([or] (3, 11, $critical-hour) »<=>« $t) == 0|-1
+           and ([or] $t »<=>« (11, 4, $critical-hour)) == -1
     }
 
     sub nyc-dt($year, $month, $day, $hour, $minute) {