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

Fix arg naming in nps calc function

Browse source
This commit is contained in:
Marcus Kammer 2024-07-15 21:10:54 +02:00
parent d7a3303ed3
commit 1615a717e2
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
dev.metalisp.survey.asd
View file

@ -2,7 +2,7 @@
(defsystem "dev.metalisp.survey" (defsystem "dev.metalisp.survey"
:description "A simple survey" :description "A simple survey"
:version "0.3.2" :version "0.3.3"
:author "Marcus Kammer <marcus.kammer@metalisp.dev>" :author "Marcus Kammer <marcus.kammer@metalisp.dev>"
:source-control "git@git.sr.ht:~marcuskammer/dev.metalisp.survey" :source-control "git@git.sr.ht:~marcuskammer/dev.metalisp.survey"
:licence "MIT" :licence "MIT"

8
src/survey.lisp
View file

@ -181,11 +181,11 @@ Returns a list of integers."
(check-type time-data list) (check-type time-data list)
(let ((promoters 0) (let ((promoters 0)
(detractors 0) (detractors 0)
(total-responses (length scores))) (total-responses (length time-data)))
(dolist (score scores) (dolist (data (cdr time-data))
(cond (cond
((>= score 9) (incf promoters)) ((>= data 9) (incf promoters))
((<= score 6) (incf detractors)))) ((<= data 6) (incf detractors))))
(let ((nps (* (- (/ promoters total-responses) (let ((nps (* (- (/ promoters total-responses)
(/ detractors total-responses)) (/ detractors total-responses))
100))) 100)))