|
|
@ -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)
|
|
|
|