eine Liste von Karten nach Wert eines Schlüssels in absteigender Reihenfolge in Clojure sortieren

Question

Ich habe eine Liste von Karten mit Verzeichnisgrößen als Zeichenfolgen. Ich möchte es sortieren, in der Reihenfolge der Größe absteigend: das Problem ist, dass es enthält Einheiten als auch dh GB oder MB

Die Liste sieht ungefähr so ​​aus:

({:directory_path /user/dod/1, :directory_size 8.49 MB} {:directory_path /user/dod/22, :directory_size 1.66 GB} {:directory_path /user/dod/testorc, :directory_size 1.28 MB}) 

heiß es so zu sortieren, dass sie ist in abnehmender Reihenfolge der Größen?

Answer 1

Sie könnten tun:

(defn str->float [s] 
    (Float. s)) 

(defn filesize->num [fs] 
    (let [[size unit] (clojure.string/split fs #" ") 
     size (str->float size)] 
    (condp = unit 
      "MB" size 
      "GB" (* size 1000)))) 

(def ->ds #(-> % :directory_size filesize->num)) 

(defn sort-data [data] 
    (sort-by ->ds #(compare %2 %1) data)) 

(def data [{:directory_path "/user/dod/2", :directory_size "8.49 MB"} 
      {:directory_path "/user/dod/22", :directory_size "1.66 GB"} 
      {:directory_path "/user/dod/testorc", :directory_size "1.28 MB"}]) 

(sort-data data)