marcuskammer/dev.metalisp.qmetrics
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix fn naming

Browse source
This commit is contained in:
Marcus Kammer 2025-01-03 14:48:50 +01:00
parent a7af78b86f
commit 05fed06cc4
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/assessment/sus.lisp
View file

@ -2,7 +2,7 @@
(in-package :ml-qmetrics/assessment) (in-package :ml-qmetrics/assessment)
(defun sus-score (values) (defun sus-calc-score (values)
(let ((values (remove-if #'keywordp values))) (let ((values (remove-if #'keywordp values)))
(list :SCORE (* (apply #'+ values) 2.5)))) (list :SCORE (* (apply #'+ values) 2.5))))
@ -27,7 +27,7 @@
(rest response))) (rest response)))
:collect (cons :TIMESTAMP :collect (cons :TIMESTAMP
(cons timestamp (cons timestamp
(append values (sus-score values)))))) (append values (sus-calc-score values))))))
;;; ;;;
;;; DISPLAYER ;;; DISPLAYER
;;; ;;;