Subconjuntos acotados

4 Comentarios

1. Haskell

   subconjuntos :: [a] -> [[a]] subconjuntos [] = [[]] subconjuntos (x:xs) = [x:a | a <- as] ++ as where as = subconjuntos xs subconjuntosAcotados :: [a] -> Int -> [[a]] subconjuntosAcotados [] n = [[]] subconjuntosAcotados (x:xs) n = [x:a | a <- as, length a< n] ++ as where as = subconjuntosAcotados xs n

   1 2 3 4 5 6 7 8 9

   subconjuntos :: [a] -> [[a]] subconjuntos [] = [[]] subconjuntos (x:xs) = [x:a | a <- as] ++ as   where as = subconjuntos xs   subconjuntosAcotados :: [a] -> Int -> [[a]] subconjuntosAcotados [] n = [[]] subconjuntosAcotados (x:xs) n = [x:a | a <- as, length a< n] ++ as   where as = subconjuntosAcotados xs n

   Responder

2. Haskell

   subconjuntosAcotados :: [a] -> Int -> [[a]] subconjuntosAcotados _ 0 = [[]] subconjuntosAcotados xs 1 = [[x] | x <- xs] ++ [[]] subconjuntosAcotados [] _ = [[]] subconjuntosAcotados (x:xs) k = [x:ys | ys <- subconjuntosAcotados xs (k-1)] ++ subconjuntosAcotados xs k

   1 2 3 4 5 6

   subconjuntosAcotados :: [a] -> Int -> [[a]] subconjuntosAcotados _  0     = [[]] subconjuntosAcotados xs 1     = [[x] | x <- xs] ++ [[]] subconjuntosAcotados [] _     = [[]] subconjuntosAcotados (x:xs) k =  [x:ys | ys <- subconjuntosAcotados xs (k-1)]                               ++ subconjuntosAcotados xs k

   Responder

   1. Si le añades la lista vacía al principio es más eficaz :

      Haskell

      subconjuntosAcotados xs 1 = [] :[[x] | x <- xs]

      1	subconjuntosAcotados xs 1     = [] :[[x] | x <- xs]

      Responder

3. Haskell

   import Data.List subconjuntosAcotados ::[a] -> Int -> [[a]] subconjuntosAcotados xs n = [x | x <- subsequences xs, length x <= n]

   1 2 3 4

   import Data.List   subconjuntosAcotados ::[a] -> Int -> [[a]] subconjuntosAcotados xs n = [x | x <- subsequences xs, length x <= n]

   Responder