memoire

@@ -414,6 +414,20 @@ local actions = {

             io.write("\nReview counts\n" .. histogram(expdeck, 0, 20, 2, function(pr) return pr.succ + pr.fail end, 0.03))

             io.write("\nLog2-age (seconds)\n" .. histogram(expdeck, 18, 28, 0.5, function(pr) return math.log(os.time() - (pr.created or 2 * os.time()), 2) end, 0.05))

             io.write("\nPrompt-count\n" .. histogram(deck, 1, 10, 1, function(card) return #card end, 0.03))

+            local cpcs = {}

+            for _, card in ipairs(deck) do

+                local cp = card[1].text:match("([^:]+):") or ""

+                cpcs[cp] = (cpcs[cp] or 0) + 1

+            end

+            local scl = {}

+            for l, c in pairs(cpcs) do

+                table.insert(scl, { l = l, c = c })

+            end

+            table.sort(scl, function(a, b) return a.c > b.c end)

+            for k, lc in ipairs(scl) do

+                scl[k] = string.format("%s (%d)", lc.l ~= "" and lc.l or "(none)", lc.c)

+            end

+            io.write("\nMost common contexts: " .. table.concat(scl, ", ", 1, math.min(20, #scl)) .. "\n")

             table.sort(expdeck, function(a, b) return a.time + a.delay < b.time + b.delay end)

             io.write("\nUpcoming due prompts wrt days from now:\n")

             local ppi = 1