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

Include 0 in NPS enumerate

Browse source
This commit is contained in:
Marcus Kammer 2025-01-05 12:18:13 +01:00
parent 5b225e7fe0
commit d0d2d9f5c2
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/assessment/nps.lisp
View file

@ -9,7 +9,7 @@
(defun nps-enumerate (data) (defun nps-enumerate (data)
(check-type data list) (check-type data list)
(unless data (error "Empty DATA list.")) (unless data (error "Empty DATA list."))
(let ((clean-data (remove-if (lambda (x) (or (> x 10) (< x 1))) data))) (let ((clean-data (remove-if (lambda (x) (or (> x 10) (< x 0))) data)))
(loop :for score :in clean-data (loop :for score :in clean-data
:counting (>= score 9) :into promoters :counting (>= score 9) :into promoters
:counting (<= score 6) :into detractors :counting (<= score 6) :into detractors