Output an element the number of times I want

Question

I have this code:

lado ::  [([Char],Int)] -> [[Char]]
lado xs = [a | (a,b) <- xs]

I need to output this:

> lado [("A         


        

Answer 1

If you don't care about efficiency, you can make this work, I guess:

lado xs =
  [ str
    | i <- [1..maxCount]
    , (str, j) <- xs
    , j >= i ]
  where
    maxCount = maximum (map snd xs)