walkah/exercism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

✅ haskell: leap

Browse Source
This commit is contained in:
James Walker
2021-09-09 10:59:03 -04:00
parent 8fe30a1a00
commit b1ec5d6b16
9 changed files with 272 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
haskell/leap/src/LeapYear.hs Normal file
View File

@ -0,0 +1,4 @@
module LeapYear (isLeapYear) where
isLeapYear :: Integer -> Bool
isLeapYear year = year `mod` 4 == 0 && ((year `mod` 100 /= 0) || (year `mod` 400 == 0))