diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-01-06 15:04:20 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-01-06 15:04:20 +1100 |
| commit | 93a9b586e82b5d113d9140ceac95acabc7d51917 (patch) | |
| tree | ecfc00f7e7396c9d7ef194a39e3ee8a6fcac0d6f /src/main.hs | |
| parent | ed35d03fbdafce4d6d41d8731318304a8eb7ff61 (diff) | |
Count results now line up with AEC distribution of preferences
Diffstat (limited to 'src/main.hs')
| -rw-r--r-- | src/main.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/main.hs b/src/main.hs index ecfec97..99a6681 100644 --- a/src/main.hs +++ b/src/main.hs @@ -8,6 +8,11 @@ import qualified Data.Maybe as Maybe +-- this is all messy test code + + + + -- maps for NT Senate data -- will be removed when candidate info parsing complete above = [[1,2],[3,4],[5,6],[7,8],[9,10],[11,12],[13,14]] @@ -42,3 +47,4 @@ main = do results = map (\x -> (Sen.doCount theCounter x) >>= (putStrLn . (((snd . head $ x) ++ " ") ++) . show)) testTraces sequence_ results + |