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