2 lines
78 B
Text
2 lines
78 B
Text
let is_leap_year ~year =
|
|
year mod (if year mod 100 = 0 then 400 else 4) = 0
|
let is_leap_year ~year =
|
|
year mod (if year mod 100 = 0 then 400 else 4) = 0
|