Remplace zipmap avec :keys dans la requête

Charlynux · Feb 18, 2022 · 7bd5bcd · 7bd5bcd
1 parent da17eed
commit 7bd5bcd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/repl/introduce_datascript.clj b/repl/introduce_datascript.clj
@@ -52,6 +52,7 @@
 (def nb-emprunts-par-delai
   "Retourne le nombre d'emprunts par délai de retour"
   '[:find ?delay (count ?code)
+    :keys nb-jours documents
     :in $ ?calculate
     :where
     [_ :borrowings ?b]
@@ -66,6 +67,5 @@
                   java.time.temporal.ChronoUnit/DAYS
                   (java.time.LocalDate/now)
                   date)))
-     (sort-by first <)
-     (map #(zipmap [:nb-jours :documents] %))
+     (sort-by :nb-jours <)
      (clojure.pprint/print-table))