stdgist-1498033986

-- L'exercice est de passer le fichier qui se trouve ici
-- https://vote.gnome.org/blt.php?election_id=25
-- et d'en extraire les informations

woBoundaries =
    let r = reverse . drop 1
        in r . r

main = do
    content <- getContents
    let entries    = drop 1 $ lines content
    let votes      =
            map (woBoundaries . words)
            $ takeWhile (/= "0") entries
    let candidates =
            map woBoundaries
            $ drop 1
            $ dropWhile (/= "0") entries
    print candidates
    print votes