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

Use keywords for loop specific symbols

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

12
src/assessment/nps.lisp
View file

@ -10,12 +10,12 @@
(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 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))))))
;;; ;;;
;;; CALCULATOR ;;; CALCULATOR