aboutsummaryrefslogtreecommitdiff
path: root/leetcode/lc-1185-day-of-week.rkt
diff options
context:
space:
mode:
authorHJ <thechairman@thechairman.info>2023-01-17 12:46:04 -0500
committerHJ <thechairman@thechairman.info>2023-01-17 12:46:04 -0500
commitfafbeaf9e3c09ba7a5bea7e47d5736001f8a5aa1 (patch)
treed586a28650cbbfb20ece931a85bcce4c29e5e40b /leetcode/lc-1185-day-of-week.rkt
parentbc5387512ba529072338648d6337ddab731b8b8c (diff)
downloadgleam_aoc-fafbeaf9e3c09ba7a5bea7e47d5736001f8a5aa1.tar.gz
gleam_aoc-fafbeaf9e3c09ba7a5bea7e47d5736001f8a5aa1.zip
adding old leetcode solutions
Diffstat (limited to 'leetcode/lc-1185-day-of-week.rkt')
-rw-r--r--leetcode/lc-1185-day-of-week.rkt18
1 files changed, 18 insertions, 0 deletions
diff --git a/leetcode/lc-1185-day-of-week.rkt b/leetcode/lc-1185-day-of-week.rkt
new file mode 100644
index 0000000..c90a626
--- /dev/null
+++ b/leetcode/lc-1185-day-of-week.rkt
@@ -0,0 +1,18 @@
+#lang racket
+(require racket/date)
+
+(define day-names
+ (for/hash ([day-number (in-range 0 7)]
+ [day-name (in-list '("Sunday"
+ "Monday"
+ "Tuesday"
+ "Thursday"
+ "Friday"
+ "Saturday"))])
+ (values day-number day-name)))
+
+(define/contract (day-of-the-week day month year)
+ (-> exact-integer? exact-integer? exact-integer? string?)
+ (hash-ref day-names (date-week-day
+ (seconds->date
+ (find-seconds 0 0 0 day month year)))))