diff --git a/deliberate/borda.scm b/deliberate/borda.scm index 44e70ed..5b2bdf5 100644 --- a/deliberate/borda.scm +++ b/deliberate/borda.scm @@ -1,11 +1,7 @@ (define-module (deliberate borda) + #:use-module (deliberate utils) #:export (borda-score)) -(define (const-list length value) - (if (= length 0) - '() - (cons value (const-list (- length 1) value)))) - (define (borda-score alternatives ranked) ;; Check whether all alternatives have been scored (if (nil? alternatives)