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

Simplify code for sus calc

Browse source
This commit is contained in:
Marcus Kammer 2025-01-05 14:46:31 +01:00
parent d0d2d9f5c2
commit 3c7a097bf0
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/assessment/sus.lisp
View file

@ -20,11 +20,14 @@
(defclass sus-calculator (calculator) ()) (defclass sus-calculator (calculator) ())
(defun sus-response-entries-process (entries)
(reverse-pairs (aggregate-values-per-group #'sus-response-entry-process entries)))
(defmethod calculator-calc-results ((calc sus-calculator) responses) (defmethod calculator-calc-results ((calc sus-calculator) responses)
(mapcar (lambda (response) (mapcar (lambda (response)
(destructuring-bind (timestamp &rest answers) response (destructuring-bind (timestamp &rest entries) response
(let ((values (reverse-pairs (aggregate-values-per-group #'sus-response-entry-process answers)))) (let ((sus-values (sus-response-entries-process entries)))
(list* :TIMESTAMP timestamp (nconc values (sus-calc-score values)))))) (list* :TIMESTAMP timestamp (nconc sus-values (sus-calc-score sus-values))))))
responses)) responses))
;;; ;;;