ge)]
    ;; Renvoie la réponse remise en forme:
    reponse))
</pre></div><div class="container"><br><h1 class="title">Fonction de calcul du résultat</h1><pre class="language-klipse">;; Fonction pour calculer l'orientation en fonction de la réponse
(defn orientation [reponse]
  ;; Initialisation des valeurs d'entrées
  (let [reponse
        (preprocess-scores reponse)
        {:keys [bmi age-range agueusia_anosmia
                fever diarrhea cough sore_throat_aches
                minor-severity-fact