Responses for exercises in Exercism.
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
module LeapYear (isLeapYear) where |
|
|
|
isLeapYear :: Integer -> Bool |
|
isLeapYear year | rem year 4 /= 0 = False |
|
isLeapYear year | rem year 100 /= 0 = True |
|
isLeapYear year | rem year 400 == 0 = True |
|
isLeapYear _year = False
|
|
|