Ganadores de las elecciones

3 Comentarios

1. Haskell

   ganadores :: [(String,Int)] -> [String] ganadores xs = map fst $ filter (\(_,v) -> v == maxVotos) xs where maxVotos = maximum $ map snd xs

   1 2 3

   ganadores :: [(String,Int)] -> [String] ganadores xs = map fst $ filter (\(_,v) -> v == maxVotos) xs   where maxVotos = maximum $ map snd xs

   Responder

2. Haskell

   import Data.List (groupBy, sortBy) import Data.Function (on) ganadores :: [(String, Int)] -> [String] ganadores = map fst . head . groupBy ((==) `on` snd) . sortBy (flip compare `on` snd)

   1 2 3 4 5 6

   import Data.List (groupBy, sortBy) import Data.Function (on)   ganadores :: [(String, Int)] -> [String] ganadores =    map fst . head . groupBy ((==) `on` snd) . sortBy (flip compare `on` snd)

   Responder

3. Haskell

   ganadores :: [(String,Int)] -> [String] ganadores xs = [x | (x,y) <- xs, y == maximum [y | (_,y) <- xs]]

   1 2	ganadores :: [(String,Int)] -> [String] ganadores xs = [x | (x,y) <- xs, y == maximum [y | (_,y) <- xs]]

   Responder