ht height]
  (/ weight (Math/pow (/ height 100.0) 2)))

;; Fonction pour réduire l'âge à la tranche d'âge
(defn get-age-range [reponse]
  (cond (< (:age reponse) 15) "inf_15"
        (< (:age reponse) 50) "from_15_to_49"
        (< (:age reponse) 70) "from_50_to_69"
        :else                 "sup_70"))

;; Fonction pour mettre le bmi, age-range dans la réponse, et
;; incrémenter les facteurs pronostiques ou de gravité
(defn preprocess-scores [reponse]
  (let [bmi-val   (compute-bmi (:weight repon