AK
Size: a a a
AK
P
P
AK
F
DT
DT
DT
A
P
A
P
module LeapYear (isLeapYear) where
isLeapYear :: Integer -> Bool
isDividedWithoutRemainder :: Integer -> Integer -> Bool
isDividedWithoutRemainder x y = mod x y == 0
isLeapYear year
| (isDividedWithoutRemainder year 4) && not (isDividedWithoutRemainder year 100) = True
| isDividedWithoutRemainder year 400 = True
| otherwise = False
P
P
F
F
С
A