Skip to content

Instantly share code, notes, and snippets.

@rexcfnghk

rexcfnghk/leap-year-2.hs

Last active March 24, 2021 11:46
Show Gist options
  • Save rexcfnghk/5aba69c0088968217f7697396eeecd7f to your computer and use it in GitHub Desktop.
Save rexcfnghk/5aba69c0088968217f7697396eeecd7f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
leap-year-2.hs
isLeapYear :: Int -> Bool
isLeapYear year
| isDivisibleBy 400 = True
| isDivisibleBy 100 = False
| isDivisibleBy 4 = True
| otherwise = False
where isDivisibleBy divisor = year `mod` divisor == 0
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment