Modify borda module to use util module.

main
Edward L Platt 2 years ago
parent 3c73fd46dd
commit 25771dffeb

@ -1,11 +1,7 @@
(define-module (deliberate borda) (define-module (deliberate borda)
#:use-module (deliberate utils)
#:export (borda-score)) #:export (borda-score))
(define (const-list length value)
(if (= length 0)
'()
(cons value (const-list (- length 1) value))))
(define (borda-score alternatives ranked) (define (borda-score alternatives ranked)
;; Check whether all alternatives have been scored ;; Check whether all alternatives have been scored
(if (nil? alternatives) (if (nil? alternatives)

Loading…
Cancel
Save