Clojure - null

gistfile1.clj

;; Unversité valide!
(def universite
  {:nom "UniFR"
   :etudiants [{:nom "Geiser"
                :prenom "Arnaud"
                :admissions [{:semestre "SP-2020" :statut "Immatricule"}
                             {:semestre "SA-2020" :statut "Immatricule"}
                             {:semestre "SP-2021" :statut "Immatricule"}
                             {:semestre "SA-2021" :statut "Immatricule"}]}
                {:nom "Rosset"
                :prenom "Matthieu"
                :admissions [{:semestre "SP-2021" :statut "Immatricule"}
                             {:semestre "SA-2021" :statut "Admis"}]}]})
                    
;; Université sans étudiants         
(def universite-pourrie
  {:nom "UniFR pourrie"
   :etudiants nil})
   
;; Université avec étudiants sans admissions
(def universite-pourrie2
  {:nom "UniFR pourrie"
   :etudiants [{:nom "Geiser"
                :admissions nil}]})
                        
;; Nombre d'étudiants immatriculés dans une Uni par semestre     
(defn nb-etudiants-immatricules [uni semestre]
 (let [etudiants (:etudiants uni)]
   (->> etudiants
        (mapcat :admissions)
        (filter #(= "Immatricule" (:statut %)))
        (map :semestre)
        (filter (partial = semestre))
        (count))))

(prn (nb-etudiants-immatricules universite "SP-2020")) ;; => 1
(prn (nb-etudiants-immatricules universite "SP-2021")) ;; => 2
(prn (nb-etudiants-immatricules universite "SA-2021")) ;; => 1

;; Avec null => Pas de problème
(prn (nb-etudiants-immatricules nil "SP-2020")) ;; => 0
;; Avec etudiants null => Pas de problème
(prn (nb-etudiants-immatricules universite-pourrie "SA-2021")) ;; => 0
;; Avec admissions null => Pas de problème
(prn (nb-etudiants-immatricules universite-pourrie2 "SA-2021")) ;; => 0