memoire

@@ -156,6 +156,7 @@ local function fn(config, deck, deckfname)

             table.insert(editqueue, ip)

         else

             if sc == 0 then

+                rt[#rt] = -rt[#rt]

                 lrc = lrc + 1

             end

             review.update(deck[ip[1]].pr[ip[2]], st, sc, config)

@@ -166,27 +167,36 @@ local function fn(config, deck, deckfname)

             break

         end

     end

-    if #ctrt > 0 then

-        local acr = math.min(#ctrt, climn)

+    if climn > 0 then

         local endt = time()

         io.write(string.format(

-            "Reviewed %d prompts in %f seconds\n",

-            acr, endt - start

+            "Reviewed %d prompts in %.1f seconds\n",

+            climn, endt - start

         ))

         local s

         if lrc == 1 then s = "" else s = "s" end

         io.write(string.format(

-            "(%d lapse%s, %f seconds per card)\n",

-            lrc, s, (endt - start) / acr

+            "(%d lapse%s, %.2f seconds per card)\n",

+            lrc, s, (endt - start) / climn

         ))

         local trt = 0

         for _, x in ipairs(rt) do

-            trt = trt + x

+            trt = trt + math.abs(x)

         end

         io.write(string.format(

-            "Average %f seconds for recall per card\n",

-            trt / acr

+            "Average %.2f seconds for recall per card\n",

+            trt / climn

+        ))

+        local jf = config:get("JournalFile")

+        if jf then

+            jf = os.getenv("HOME") .. "/" .. jf

+            local fh = io.open(jf, "a")

+            fh:write(string.format(

+                "%s memrc=%d memrd.mean=%.2f\n",

+                os.date("%Y-%jT%H:%M:%S"), climn, trt / climn

             ))

+            fh:close()

+        end

     end

     if #editqueue > 0 then

         io.write(string.format("The following cards are marked for correction:\n"))