(define (Bissextile? la-date) (let ((le-calendrier (calendrier la-date)) (l-annee (annee la-date))) (case le-calendrier ((J) ;; calendrier julien (zero? (modulo l-annee 4))) ((G) ;; calendrier grégorien (or (and (zero? (modulo l-annee 4)) (not (zero? (modulo l-annee 100)))) (zero? (modulo l-annee 400))))))) (define (Bissextile la-date) (if (Bissextile? la-date) 1 0))