Answer:
Explanation:
The following code snippet is a leap year checker written in Haskell which checks to see if the year is a leap year and then outputs a boolean value.
isDivisibleBy :: Integral n => n -> n -> Bool
isDivisibleBy x n = x `rem` n == 0
leap_n :: Integer -> Bool
leap_n year
 | divBy 400 = True
 | divBy 100 = False
 | divBy  4 = True
 | otherwise = False
where
 divBy n = year `isDivisibleBy` n