goblins-deliberate/test-borda.scm

(use-modules (srfi srfi-1)
	     (deliberate borda))

(define test-alts '("red" "green" "blue"))

(define test-pref '("blue"))

(define test-profile
  '((1 . ("red" "green" "blue"))
    (1 . ("green" "red" "blue"))
    (1 . ("green"))
    ))

(borda-score test-alts test-pref)

(define (profile-borda-scores alternatives profile)
  (apply append
	 (map (lambda (pair)
		(borda-score alternatives (cdr pair)))
	      profile)))

(define test-scores (profile-borda-scores test-alts test-profile))

(define test-score-groups (group-by car test-scores))