(define sin_x_sur_x 
  (lambda (x)
    (if (= x 0) 
        1 
        (/ (sin x) x))))

(define divisiblePar?
  (lambda (nombre diviseur)
    (= (remainder nombre diviseur) 
       0)))

(define estBissextile?
  (lambda (annee)
    (or (divisiblePar? annee 400)
        (and (divisiblePar? annee 4)
             (not (divisiblePar? annee 100))))))

(define abs              ; soit abs
 (lambda (x)             ; la fonction aàun argument x qui
   (if (>= x 0)          ; si x est positif ou nul
       x                 ; alors vaut la valeur de x
       (- x))))          ; sinon vaut la valeur de -x

(define une_fonction_avec_erreur
  (lambda (n)
    (if (zero? (remainder n 5)) ; n divisible par 5 ?
        (n * 3)                 ; <-  !!! l'erreur est ici !!!
        (* 2 n))))

(define f
  (lambda (x)
    (if (<= x 0)                     
        (* 2 x)                      ; cas x <= 0
        (if (< x 1)
            x                        ; cas 0<x<1
            (if (<= x 10)
                (- (* 2 x) 2)        ; cas 1<= x  <= 10
                (+ (* 3 x) 6))))))   ; cas x < 10

(define f-bis
  (lambda (x)
    (cond ((<= x 0) (* 2 x))
          ((< x 1) x)
          ((<= x 10) (- (* 2 x) 
                        2))
          (else (+ (* 3 x)
                   6)))))

(define qui-gele
  (lambda (temp)
    (cond ((< temp -23) "super")
          ((< temp -13) "ordinaire")
          ((< temp -5) "fuel")
          ((< temp 0) "eau")
          (else "rien"))))