exercism/fsharp/leap/Leap.fs

4 lines
101 B
Forth

module Leap
let leapYear (year: int): bool = year % 400 = 0 || (year % 4 = 0 && year % 100 <> 0)