From 25771dffeb0c44152412b6fbd3b262b841555e7d Mon Sep 17 00:00:00 2001 From: "Edward L. Platt" Date: Wed, 24 Aug 2022 21:38:52 -0400 Subject: [PATCH] Modify borda module to use util module. --- deliberate/borda.scm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) 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)