Clojure che estrae il valore dalla mappa in base alla logica prioritaria

Question

Ho una funzione che desidera estrarre un valore da una mappa in base a un ordine prioritario. Attualmente lo sto facendo come struttura annidata se è orribile. Devo credere che ci sia un modo migliore.

Mentre questo funziona c'è un modo migliore?

(defn filter-relatives [relatives] 
    (if(contains? relatives :self) 
     (relatives :self) 
      (if(contains? relatives :north) 
       (relatives :north) 
        (if(contains? relatives :west) 
         (relatives :west) 
         (if(contains? relatives :east) 
          (relatives :east) 
          (relatives :south) 
         ) 
        ) 
       ) 
      ) 
     ) 
    ) 
) 

Answer 1

(some relatives [:self :north :west :east :south]) 

Answer 2

Che dire:

(defn filter-relatives [relatives ordered-filters] 
    (first (filter identity (map relatives ordered-filters)))) 

esempio di esecuzione:

user=> (filter-relatives {:a 1 :b 2 :c 3} [:z :b :a])                
2 

Answer 3

Le altre risposte vanno bene se nil e false non sono tra i possibili valori. Se lo sono, puoi usare qualcosa come

(if-let [e (some (partial find relatives) 
       [:self :north :west :east :south])] 
    (val e) 
    :no-key-found) 

E.g.

(if-let [e (some (partial find relatives) 
       [:self :north :west :east :south])] 
    (val e) 
    :no-key-found) 
; => false 

(if-let [e (some (partial find {}) 
       [:self :north :west :east :south])] 
    (val e) 
    :no-key-found) 
; => :no-key-found 

Answer 4

(first (keep relatives [:self :north :west :east :south]))