You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
550 B
Scheme
25 lines
550 B
Scheme
(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))
|