kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

format spaced rep output

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-11-01 05:37:52 +00:00
parent 10fa7940e8
commit e7360e5cb5
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
projects/kiss-spaced-rep/src/kiss_spaced_rep/Main_.kiss
View File

@@ -34,15 +34,15 @@
(set ,cPreviousEaseFactor (max 1.3 ,cPreviousEaseFactor)) (set ,cPreviousEaseFactor (max 1.3 ,cPreviousEaseFactor))
(set ,cPreviousInterval interval) (set ,cPreviousInterval interval)
(doFor _ (range interval) (doFor _ (range interval)
(set ,cNextDate #{DateTime.now() + oneDayInterval;}#)) (set ,cNextDate #{DateTime.now() + oneDayInterval;}#)))
(print interval))
(let [:DateTime nextDate ,cNextDate] (let [:DateTime nextDate ,cNextDate]
(if #{DateTime.now() > nextDate;}# (if #{DateTime.now() > nextDate;}#
{ {
(print .front ,cObject) (Sys.print .front ,cObject)
(.readLine (Sys.stdin)) (.readLine (Sys.stdin))
(print .back ,cObject) (print .back ,cObject)
(Sys.print "Score (0-5): ")
(,cScore (Std.parseInt (.readLine (Sys.stdin)))) (,cScore (Std.parseInt (.readLine (Sys.stdin))))
} }
(print "skipping a card until $(nextDate.toString)"))) (print "skipping a card until $(nextDate.toString)")))