voroskoi/exercism - Change GRKHFMJJQMQLBNOME4MNLJYJYSBTYOMTFJEIP3YQB5UGEF35CDYAC

My solutions for exercism.org tracks

Scheme: solve leap

Created by voroskoi on September 7, 2021

GRKHFMJJQMQLBNOME4MNLJYJYSBTYOMTFJEIP3YQB5UGEF35CDYAC

In channels

main

Change contents

File addition: scheme (d--x------)
[1.0]
File addition: leap (d--x------)
[0.18]

File addition: leap.scm (----------)

[0.35]

(import (rnrs))
(define (leap-year? year)
  (and
    (= 0 (modulo year 4))
      (or
        (not (= 0 (modulo year 100)))
        (and
          (= 0 (modulo year 100))
          (= 0 (modulo year 400))
        )
      )
  )
)