mirror of
https://github.com/correl/elm.git
synced 2024-12-23 03:00:08 +00:00
6 lines
124 B
Text
6 lines
124 B
Text
module Leap (..) where
|
|
|
|
|
|
isLeapYear : Int -> Bool
|
|
isLeapYear year =
|
|
year % 4 == 0 && (year % 100 /= 0 || year % 400 == 0)
|