isLeapYear :: Int -- ^ Year to check
           -> Bool -- ^ True if year is leap year, otherwise False.
isLeapYear y = and [(y `mod` 4) == 0, or [(y `mod` 100) > 0, (y `mod` 400) == 0]]
isLeapYear :: Int -- ^ Year to check
           -> Bool
isLeapYear y = and [(y `mod` 4) == 0, or [(y `mod` 100) > 0, (y `mod` 400) == 0]]
isLeapYear y = and [(y `mod` 4) == 0, or [(y `mod` 100) > 0, (y `mod` 400) == 0]]