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

Enhance code readbility

Browse source
This commit is contained in:
Marcus Kammer 2025-01-03 14:29:09 +01:00
parent 4a42d616f2
commit a7af78b86f
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/assessment/nps.lisp
View file

@ -8,15 +8,14 @@
(defun nps-enumerate (data) (defun nps-enumerate (data)
(check-type data list) (check-type data list)
(if data (unless data (error "Empty DATA list."))
(let ((clean-data (remove-if (lambda (x) (or (> x 10) (< x 0))) data))) (let ((clean-data (remove-if (lambda (x) (or (> x 10) (< x 1))) 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
finally (return (list promoters finally (return (list promoters
detractors detractors
(length clean-data))))) (length clean-data))))))
(error "Empty DATA list.")))
;;; ;;;
;;; CALCULATOR ;;; CALCULATOR