Ensure players who have weekly results remain in db

Their rating decays, but they remain "active".
cch1 · Nov 7, 2021 · 52be76a · 52be76a
1 parent eefd373
commit 52be76a
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/src/atp/glicko.clj b/src/atp/glicko.clj
@@ -36,7 +36,6 @@
                                                   g (g rdo)]
                                               (* g g e (- 1 e)))))
                            +
-                           0
                            results)))))
 
 (defn update-player [db [player results]]
@@ -48,7 +47,6 @@
                                                      g (g rdo)]
                                                  (* g (- s e)))))
                               +
-                              0
                               results)))
         rd' (Math/sqrt (/ 1 (+ (/ 1 (* rd rd)) (/ 1 d2))))]
     [player [r' rd']]))
@@ -67,7 +65,7 @@
         winners (group-by :winner results)
         losers (group-by :loser results)
         results-by-player (into {} (map normalize-results) (merge-with concat winners losers))]
-    (into {} (map (partial update-player db')) results-by-player)))
+    (into db' (map (partial update-player db')) results-by-player)))
 
 (defn rankings [db]
   (sort-by (comp #(* -1 %) first val) db))