# HG changeset patch
# User Zachary Kanfer <zkanfer@gmail.com>
# Date 1709093936 18000
#      Tue Feb 27 23:18:56 2024 -0500
# Node ID b0f9c5cc0b9f4511e44aacd4c22bed3bf7d66d53
# Parent  287afb6b6b259fe9ef643d94acdbad3aaa137fa0
store the number of guesses in /history, print stats

diff --git a/src/numberdle/factordle.cljs b/src/numberdle/factordle.cljs
--- a/src/numberdle/factordle.cljs
+++ b/src/numberdle/factordle.cljs
@@ -114,6 +114,7 @@
    [input-div]
    [lib/error-div :factordle/errors]
    [history-div]
+   [lib/stats-div :factordle/history]
    [game-management-div]])
 
 (defn is-valid-guess [guess]
@@ -241,7 +242,7 @@
                        :factordle/history
                        assoc
                        (:factordle/date db)
-                       true)
+                       (count (:factordle/guesses db)))
                :factordle/game-won true
                :factordle/game-under-way nil
                :factordle/errors []
diff --git a/src/numberdle/formuladle.cljs b/src/numberdle/formuladle.cljs
--- a/src/numberdle/formuladle.cljs
+++ b/src/numberdle/formuladle.cljs
@@ -179,6 +179,7 @@
    [history-div]
    [lib/error-div :formuladle/errors]
    [input-div]
+   [lib/stats-div :formuladle/history]
    [game-management-div]])
 
 (defn get-m
@@ -334,7 +335,7 @@
                        :formuladle/history
                        assoc
                        (:formuladle/date db)
-                       true)
+                       (count (:formuladle/guesses db)))
                :formuladle/game-won true
                :formuladle/game-under-way false
                :formuladle/errors [])
diff --git a/src/numberdle/lib.cljs b/src/numberdle/lib.cljs
--- a/src/numberdle/lib.cljs
+++ b/src/numberdle/lib.cljs
@@ -129,19 +129,7 @@
                    (if (= 1 guess-count)
                      " guess."
                      " guesses."))
-             (list "You lost. " guess-count " was too many guesses"))]
-      (let [grouped (group-by second history)
-            wins (grouped true)
-            losses (grouped false)
-            times-won (count wins)
-            times-played (+ times-won
-                            (count losses))]
-        [:p
-         (gstring/format "You've played %s game%s, and won %s (%i%%) of them."
-                         times-played
-                         (if (= 1 times-played) "" "s")
-                         times-won
-                         (* 100 (/ times-won times-played)))])])])
+             (list "You lost. " guess-count " was too many guesses"))]])])
 
 (defn history-div-fn
   "Return a div for the history.
@@ -291,3 +279,36 @@
     [:div [:h3 "Oh no! Errors!"]
      (for [[error id] @(rf/subscribe [error-event])]
        [:div {:key id} warning " " error])]))
+
+(defn stats-div [history-event]
+  (let [history @(rf/subscribe [history-event])
+        [wins losses] (loop [[[date result] & rest] (seq history)
+                             wins {}
+                             losses {}]
+                        (if date
+                          (if result
+                            (recur rest
+                                   (assoc wins date result)
+                                   losses)
+                            (recur rest
+                                   wins
+                                   (assoc losses date result)))
+                          [wins losses]))
+        times-won (count wins)
+        times-lost (count losses)
+        times-played (+ times-won
+                        times-lost)]
+    [:div
+     [:p
+      (gstring/format "You've played %s game%s, and won %s (%s) of them."
+                      times-played
+                      (if (= 1 times-played) "" "s")
+                      times-won
+                      (if (zero? times-won)
+                        "none!"
+                        (str (* 100 (/ times-won times-played))
+                             "%")))]
+     (when-not (zero? times-won)
+       [:p (gstring/format "Of the games you've won, you average %.2f guesses."
+                           (/ (reduce + (vals wins))
+                              times-won))])]))
diff --git a/src/numberdle/rationerdle.cljs b/src/numberdle/rationerdle.cljs
--- a/src/numberdle/rationerdle.cljs
+++ b/src/numberdle/rationerdle.cljs
@@ -145,6 +145,7 @@
    [input-div]
    [lib/error-div :rationerdle/errors]
    [history-div]
+   [lib/stats-div :rationerdle/history]
    [game-management-div]])
 
 (rf/reg-event-fx
@@ -245,7 +246,7 @@
                        :rationerdle/history
                        assoc
                        (:rationerdle/date db)
-                       true)
+                       (count (:rationerdle/guesses db)))
                :rationerdle/game-under-way nil
                :rationerdle/game-won true)
     :dispatch [:numberdle/save-to-local-storage rationerdle-variables]}))