Skip to content
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
32 lines (20 sloc) 679 Bytes
module Y2017.M05.D05.Solution where
import Data.Time.Calendar
import Data.Time.Calendar.WeekDate
Happy Cinco de Mayo, Haskellers!
Check the lock-screen of my iPad (screen shot at this directory) is says
TUESDAY, May 5th.
So, what is the most recent year where Cinco de Mayo was on a Tuesday?
... and how would you go about finding this solution?
mostRecentYear5MayTuesday :: Integer
mostRecentYear5MayTuesday = mry5mt 2017
mry5mt :: Integer -> Integer
mry5mt yr = let (_,_,tues) = toWeekDate (fromGregorian yr 5 5) in
if tues == 2 then yr else mry5mt (pred yr)
>>> mostRecentYear5MayTuesday
... ooh! dat one old iPad! Yes, it is!
You can’t perform that action at this time.