Números en una cadena

5 Comentarios

1. Haskell

   leeNumero :: String -> [Int] leeNumero n = [read [a] | a <- n] numeros :: String -> [Int] numeros cs = map read (filter esNumero (words cs)) esNumero :: String -> Bool esNumero cs = all isDigit cs

   1 2 3 4 5 6 7 8

   leeNumero :: String -> [Int] leeNumero n = [read [a] | a <- n]   numeros :: String -> [Int] numeros cs = map read (filter esNumero (words cs))   esNumero :: String -> Bool esNumero cs = all isDigit cs

   Responder

2. Haskell

   numeros :: String -> [Int] numeros = map read . filter (all isDigit) . words

   1 2	numeros :: String -> [Int] numeros = map read . filter (all isDigit) . words

   Responder

3. Haskell

   numeros :: String -> [Int] numeros "" = [] numeros p@(x:xs) | isDigit x = read (take n p): numeros ( drop n p) | otherwise = numeros xs where n = length $ takeWhile isDigit p

   1 2 3 4 5

   numeros :: String -> [Int] numeros "" = [] numeros p@(x:xs) | isDigit  x = read (take n   p): numeros ( drop n p)                  | otherwise = numeros xs                    where n = length $ takeWhile isDigit p

   Responder

   1. Da resultado erróneos. Por ejemplo,

      Haskell

      λ> numeros "Esta cadena tiene 2 numeros: el 16 y el 2.19 solamente." [2,16,2,19]

      1 2	λ> numeros "Esta cadena tiene 2 numeros: el 16 y el 2.19 solamente." [2,16,2,19]

      y debería de dar [2,16] como en las otras.

      Responder

4. Haskell

   import Data.Char numeros :: String -> [Int] numeros xs = [joiner (digitos ys) | ys <- words xs, all isDigit ys] digitos :: String -> [Int] digitos xs = [read [a] | a <- xs] joiner :: [Int] -> Int joiner (x:xs) = read (concat (map show (x:xs)))

   1 2 3 4 5 6 7 8 9 10

   import Data.Char   numeros :: String -> [Int] numeros xs = [joiner (digitos ys) | ys <- words xs, all isDigit ys]   digitos :: String -> [Int] digitos xs = [read [a] | a <- xs]   joiner :: [Int] -> Int joiner (x:xs) = read (concat (map show (x:xs)))

   Responder