Posiciones de las mayúsculas

4 Comentarios

1. Haskell

   import Data.List (findIndices) Import Data.Char (isUpper) posicionesMayusculas :: String -> [Int] posicionesMayusculas = findIndices isUpper

   1 2 3 4 5

   import Data.List (findIndices) Import Data.Char (isUpper)   posicionesMayusculas :: String -> [Int] posicionesMayusculas = findIndices isUpper

   Responder

2. Haskell

   import Data.Char (isUpper) posicionesMayusculas :: String -> [Int] posicionesMayusculas xs = [y | (x,y) <- zip xs [0..], isUpper x]

   1 2 3 4

   import Data.Char (isUpper)   posicionesMayusculas :: String -> [Int] posicionesMayusculas xs = [y | (x,y) <- zip xs [0..], isUpper x]

   Responder

3. Haskell

   import Data.Char (isUpper) posicionesMayusculas :: String -> [Int] posicionesMayusculas = aux 0 where aux n (x:xs) | isUpper x = n : aux (succ n) xs | otherwise = aux (succ n) xs aux _ _ = []

   1 2 3 4 5 6 7

   import Data.Char (isUpper)   posicionesMayusculas :: String -> [Int] posicionesMayusculas = aux 0   where aux n (x:xs) | isUpper x = n : aux (succ n) xs                      | otherwise = aux (succ n) xs         aux _ _ = []

   Responder

4. Haskell

   import Data.Char (isUpper) posicionesMayusculas :: String -> [Int] posicionesMayusculas = r [] 0 where r ys i xs | null xs = ys | (isUpper . head) xs = r (ys ++ [i]) (succ i) (tail xs) | otherwise = r ys (succ i) (tail xs)

   1 2 3 4 5 6 7 8

   import Data.Char (isUpper)   posicionesMayusculas :: String -> [Int] posicionesMayusculas = r [] 0   where r ys i xs           | null xs             = ys           | (isUpper . head) xs = r (ys ++ [i]) (succ i) (tail xs)           | otherwise           = r ys (succ i) (tail xs)

   Responder