? help

[Nestor Chia]

Main>

maximoSegun length ["dejate", "ser"]

"dejate"

Main>

maximoSegun id [1, 2, 3, 4, 5, 6]

6

Main>

maximoSegun (^2) [-1, -3, 2, 0]

-3

I cant do it ,I DO

maximoSegun :: (a -> Int) -> [a] ->Int  ---DECLARACION DE TIPOS
maximoSegun f []  = 0
maximoSegun f [x] = f x
maximoSegun f  (x:xs) |f x > maximoSegun f xs = f x
                      | otherwise = maximoSegun f xs 
BUT

{-*Main> maximoSegun length ["dejate", "ser"]
6 ....
*Main> maximoSegun id [1, 2, 3, 4, 5, 6]
6
*Main> maximoSegun (^2) [-1, -3, 2, 0]
9.....
-}

 

 

[Bassel Mannaa]

Main>

maximoSegun length ["dejate", "ser"]

"dejate"

Main>

maximoSegun id [1, 2, 3, 4, 5, 6]

6

Main>

maximoSegun (^2) [-1, -3, 2, 0]

-3

If this is how you want the result, you can do 

maximoSegun :: (a -> Int) -> [a] -> a

maximoSegun f l = l !! i

        where i =  head $ findIndices (== (maximum l')) l'

              l' = map f l

~Bassel