Jack/rcv-site
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

whoops, things were reversed again

Browse source
This commit is contained in:
Jack Wines 2023-07-06 19:27:35 -07:00
parent 8f5162b6ca
commit 120040886f
2 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
rcv-site.cabal
View file

@ -4,7 +4,7 @@ version: 0.1.0.0
category: Web category: Web
build-type: Simple build-type: Simple
executable server executable rcv-site
main-is: main-is:
Main.hs Main.hs
default-extensions: default-extensions:

4
src/InstantRunoff.hs
View file

@ -7,9 +7,7 @@ import qualified Data.Maybe as M
import qualified Data.Ord as O import qualified Data.Ord as O
solve :: forall a. Ord a => [a] -> LN.NonEmpty (LN.NonEmpty a) -> [S.Set a] solve :: forall a. Ord a => [a] -> LN.NonEmpty (LN.NonEmpty a) -> [S.Set a]
solve candidates votes = if S.null notVotedForCandidates solve candidates votes = (reverse solved) ++ [notVotedForCandidates]
then solved
else solved ++ [notVotedForCandidates]
where where
-- candidates not on any submitted ballot -- candidates not on any submitted ballot