diff options
| -rw-r--r-- | org-fc-algo-tn.el | 14 |
1 files 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))) |