Skip to content

Commit 241f7d6

Browse files
Merge pull request #83 from Billsfriend/exercism-sync/62653dd4b0fd0d6c
[Sync Iteration] scheme/leap/1
2 parents 01ae70e + 2478c92 commit 241f7d6

File tree

1 file changed

+11
-0
lines changed

1 file changed

+11
-0
lines changed

solutions/scheme/leap/1/leap.scm

Lines changed: 11 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,11 @@
1+
(import (rnrs))
2+
3+
(define (leap-year? year)
4+
(cond
5+
((= (remainder year 400) 0) #t)
6+
((= (remainder year 100) 0) #f)
7+
((= (remainder year 4) 0) #t)
8+
(else #f)
9+
)
10+
)
11+

0 commit comments

Comments
 (0)