sem_4/progaapp/TP1/day.bak


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#lang racket
(define bissextile
  (lambda (x)
    ( if (= (modulo x 4) 0)
         (if (not (= ( modulo x 100) 0))
             (#t)
             (if (= ( modulo x 400) 0)
                 (#t)
                 (#f))
            )
         (#f))
    )
  )