Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dayName::(Int,Int,Int)->Int
- dayName (a,b,c) = (a+x+(31*m)/12) mod 7
- where y = c - (14-b)/12 x = y + (y/4) - (y/100) + (y/400) m = b + 12*((14-b)/12)-2
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement