Uguaglianza personalizzata in Clojure distinta

Question

In un programma Clojure ho un array composto da mappe contenenti nomi ed e-mail di persone.

ad es.

[ 
    { :name "John" :email "john@gmail.com" } 
    { :name "Batman" :email "batman@gmail.com" } 
    { :name "John Doe" :email "john@gmail.com" } 
] 

vorrei rimuovere le voci duplicate in considerazione, ai fini del confronto, le coppie che hanno lo stesso e-mail per essere uguali. Nell'esempio sopra l'output sarebbe:

[ 
    { :name "John" :email "john@gmail.com" } 
    { :name "Batman" :email "batman@gmail.com" } 
] 

Qual è il modo migliore per ottenere questo in Clojure? C'è un modo per far sapere a distinti ciò che è uguale alla funzione da usare?

Grazie.

Answer 1

Questo lo farebbe: https://crossclj.info/fun/medley.core/distinct-by.html.

La funzione nel collegamento passa pigramente a ogni valore e memorizza tutto ciò che viene visto. Se il valore nel coll è già visto, non lo aggiunge.

Si potrebbe quindi chiamare questo come: (distinct-by #(% :email) maps), dove maps è il proprio vettore di mappe di persone.

Answer 2

ancora un altro modo per farlo, un po 'più idiomatica, credo:

(let [items [{ :name "John" :email "john@gmail.com" } 
      { :name "Batman" :email "batman@gmail.com" } 
      { :name "John Doe" :email "john@gmail.com" }]] 
    (map first (vals (group-by :email items)))) 

uscita:

({:name "John", :email "john@gmail.com"} 
{:name "Batman", :email "batman@gmail.com"}) 

che è come funziona:

(group-by :email items) fa una mappa, la cui le chiavi sono email e i valori sono gruppi di record con questa email

{"john@gmail.com" [{:name "John", :email "john@gmail.com"} 
        {:name "John Doe", :email "john@gmail.com"}], 
"batman@gmail.com" [{:name "Batman", :email "batman@gmail.com"}]} 

quindi devi solo prendere i suoi valori (gruppi di record) e selezionare i primi da essi.

E un altro modo è quello di creare un ordinato set per e-mail, in modo che il trattamento di tutti i record con uguali email come uguali record:

(let [items [{ :name "John" :email "john@gmail.com" } 
      { :name "Batman" :email "batman@gmail.com" } 
      { :name "John Doe" :email "john@gmail.com" }]] 
    (into (sorted-set-by #(compare (:email %1) (:email %2))) items)) 

uscita:

#{{:name "Batman", :email "batman@gmail.com"} 
    {:name "John", :email "john@gmail.com"}} 

don' so davvero quale di loro è più idiomatico e ha una performance migliore. Ma scommetto sul primo.

Answer 3

Un distinct-by può essere facilmente implementati come

(defn distinct-by [f coll] 
    (let [groups (group-by f coll)] 
    (map #(first (groups %)) (distinct (map f coll))))) 

Per il caso esempio questo può essere usato come

(distinct-by :email 
      [{:name "John" :email "john@gmail.com"} 
       {:name "Batman" :email "batman@gmail.com"} 
       {:name "John Doe" :email "john@gmail.com"}])