[Sync Iteration] scheme/leap/1

Author: exercism-solutions-syncer[bot]

solutions/scheme/leap/1/leap.scm

@@ -0,0 +1,11 @@
+(import (rnrs))
+
+(define (leap-year? year)
+  (cond
+   ((= (remainder year 400) 0) #t)
+   ((= (remainder year 100) 0) #f)
+   ((= (remainder year 4) 0) #t)
+   (else #f)
+  )
+)
+