whoops, things were reversed again
This commit is contained in:
parent
8f5162b6ca
commit
120040886f
2 changed files with 2 additions and 4 deletions
|
|
@ -4,7 +4,7 @@ version: 0.1.0.0
|
|||
category: Web
|
||||
build-type: Simple
|
||||
|
||||
executable server
|
||||
executable rcv-site
|
||||
main-is:
|
||||
Main.hs
|
||||
default-extensions:
|
||||
|
|
|
|||
|
|
@ -7,9 +7,7 @@ import qualified Data.Maybe as M
|
|||
import qualified Data.Ord as O
|
||||
|
||||
solve :: forall a. Ord a => [a] -> LN.NonEmpty (LN.NonEmpty a) -> [S.Set a]
|
||||
solve candidates votes = if S.null notVotedForCandidates
|
||||
then solved
|
||||
else solved ++ [notVotedForCandidates]
|
||||
solve candidates votes = (reverse solved) ++ [notVotedForCandidates]
|
||||
where
|
||||
|
||||
-- candidates not on any submitted ballot
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue