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

✅ haskell: leap

Browse Source
This commit is contained in:
walkah committed 2021-09-09 10:59:03 -04:00
1 parent 8fe30a1a00
commit b1ec5d6b16
9 files changed
+272
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

haskell/leap/examples/error-nosig/src/LeapYear.hs
+4
View File
@@ -0,0 +1,4 @@
module LeapYear (isLeapYear) where
isLeapYear year = hasFactor 4 && (not (hasFactor 100) || hasFactor 400)
where hasFactor n = year `rem` n == 0