Skip to content

Instantly share code, notes, and snippets.

@weskerfoot

weskerfoot/days.hs

Created August 18, 2013 01:52
Show Gist options
  • Save weskerfoot/6259553 to your computer and use it in GitHub Desktop.
Save weskerfoot/6259553 to your computer and use it in GitHub Desktop.
Download ZIP
days of the week
Raw
days.hs
data Day = Mon | Tues | Wed | Thurs | Fri | Sat | Sun deriving (Enum, Ord, Eq, Show)
daysFromNow :: Day -> Int -> Day
daysFromNow day n = toEnum $ (fromEnum day) + n `mod` 6
main = do
print $ daysFromNow Mon 2
print $ daysFromNow Sat 7
print $ daysFromNow Wed 13
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment