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.
19 lines
373 B
Scheme
19 lines
373 B
Scheme
2 years ago
|
(use-modules (srfi srfi-1)
|
||
|
(deliberate borda))
|
||
2 years ago
|
|
||
2 years ago
|
(define test-alts '("red" "green" "blue"))
|
||
2 years ago
|
|
||
2 years ago
|
(define test-pref '("blue"))
|
||
|
|
||
|
(define test-profile
|
||
|
'((1 . ("red" "green" "blue"))
|
||
|
(1 . ("green" "red" "blue"))
|
||
|
(1 . ("green"))
|
||
|
))
|
||
|
|
||
|
(borda-score test-alts test-pref)
|
||
|
|
||
2 years ago
|
(social-preference-borda test-alts test-profile)
|
||
2 years ago
|
|
||
2 years ago
|
(social-choice-borda test-alts test-profile)
|