You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
342 B
23 lines
342 B
3 years ago
|
#lang racket
|
||
|
|
|
||
|
|
(provide leap-year?)
|
||
|
|
|
||
|
|
(define (div-by-4 year)
|
||
|
|
(= 0 (remainder year 4))
|
||
|
|
)
|
||
|
|
|
||
|
|
(define (not-div-by-100 year)
|
||
|
|
(not (= 0 (remainder year 100)))
|
||
|
|
)
|
||
|
|
|
||
|
|
(define (div-by-400 year)
|
||
|
|
(= 0 (remainder year 400))
|
||
|
|
)
|
||
|
|
|
||
|
|
(define (leap-year? year)
|
||
|
|
(and (div-by-4 year)
|
||
|
|
(or (div-by-400 year)
|
||
|
|
(not-div-by-100 year))
|
||
|
|
)
|
||
|
|
)
|