From 14c5ff40e872d0d00fdeca93571d12f0fb3520b9 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Sat, 17 Feb 2024 20:12:37 +0100 Subject: Optimize the TN algorithm --- org-fc-algo-tn.el | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/org-fc-algo-tn.el b/org-fc-algo-tn.el index ce042e4..d882156 100644 --- a/org-fc-algo-tn.el +++ b/org-fc-algo-tn.el @@ -20,26 +20,22 @@ EASE, BOX and INTERVAL are the current parameters of the card." (correct t) (next-ease (cond - (incorrect-at-edge (1- ease)) - (incorrect (1- ease)) + (incorrect-at-edge (1+ easy)) + (incorrect (1+ ease)) (correct ease))) (next-box (cond (incorrect-at-edge box) (incorrect (1- box)) (correct (1+ box)))) - (next-interval - (cond - (incorrect-at-edge 0) - (incorrect (- (nth-tn box) (nth-tn next-box))) - (correct (- (nth-tn next-box) (nth-tn box)))))) + (next-interval (nth-tn next-box))) (list next-ease next-box next-interval))) (defun org-fc-algo-tn-initial-review-data (position) "Initial TN review data for POSITION." (let - ((box 1) - (ease 100) + ((box 0) + (ease 0) (interval 1.0) (due (org-fc-timestamp-in 1.0))) (list position ease box interval due))) -- cgit v1.2.3