Niestandardowa równość w Clojure odrębna

Question

W programie Clojure mam tablicę złożoną z map zawierających imiona ludzi i wiadomości e-mail.

np.

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

Chciałbym usunąć zduplikowane wpisy uwzględnianie do celów porównawczych, pary mają ten sam adres e-mail, aby być równi. W powyższym przykładzie wyjście będzie następujące:

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

Jaki jest najlepszy sposób osiągnięcia tego w Clojure? Czy istnieje sposób, aby wyraźnie wiedzieć, co równa się funkcja używać?

Dzięki.

Answer 1

To mogłoby zrobić: https://crossclj.info/fun/medley.core/distinct-by.html.

Funkcja w łączu przechwytuje każdą wartość leniwie i przechowuje wszystko, co widzi. Jeśli wartość w coll jest już widoczna, nie dodaje jej.

Można wtedy nazwać to: (distinct-by #(% :email) maps), gdzie maps jest twoim wektorem map ludzi.

Answer 2

Jeszcze innym sposobem, aby to zrobić, trochę bardziej idiomatyczne, myślę:

(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)))) 

wyjściowa:

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

, który jest, jak to działa:

(group-by :email items) sprawia mapę, której Klucze są wiadomościami e-mail, a wartości są grupami rekordów za pomocą tego adresu e-mail

{"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"}]} 

następnie wystarczy wziąć jego vals (grupy rekordów) i wybrać pierwsze z nich.

A inny sposób jest stworzenie posortowanej ustawiony przez e-mail, więc będzie traktować wszystkie rekordy z równych maili jako równych zapisów:

(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)) 

wyjściowa:

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

don” t naprawdę wie, który z nich jest bardziej idiomatyczny i ma lepszą wydajność. Ale założę się na pierwszą.

Answer 3

distinct-by można łatwo wdrożyć jako

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

Dla przykładu przypadku może być używany jak

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