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

16
haskell/leap/examples/error-nosig/package.yaml Normal file
View File

@ -0,0 +1,16 @@
name: leap
dependencies:
- base
library:
exposed-modules: LeapYear
source-dirs: src
tests:
test:
main: Tests.hs
source-dirs: test
dependencies:
- leap
- hspec

4
haskell/leap/examples/error-nosig/src/LeapYear.hs Normal file
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

16
haskell/leap/examples/success-standard/package.yaml Normal file
View File

@ -0,0 +1,16 @@
name: leap
dependencies:
- base
library:
exposed-modules: LeapYear
source-dirs: src
tests:
test:
main: Tests.hs
source-dirs: test
dependencies:
- leap
- hspec