Mezcla de infinitas listas infinitas

3 Comentarios

1. Haskell

   mezclaTodas :: Ord a => [[a]] -> [a] mezclaTodas ((x:xs):xss) = x : mezcla2 xs (mezclaTodas xss) mezcla2 :: Ord a => [a] -> [a] -> [a] mezcla2 (x:xs) (y:ys) | x < y = x : mezcla2 xs (y:ys) | y < x = y : mezcla2 (x:xs) ys | otherwise = x : mezcla2 xs ys

   1 2 3 4 5 6 7

   mezclaTodas :: Ord a => [[a]] -> [a] mezclaTodas ((x:xs):xss) = x : mezcla2 xs (mezclaTodas xss)   mezcla2 :: Ord a => [a] -> [a] -> [a] mezcla2 (x:xs) (y:ys) | x < y = x : mezcla2 xs (y:ys)                       | y < x = y : mezcla2 (x:xs) ys                       | otherwise = x : mezcla2 xs ys

   Responder

2. Haskell

   import Data.List (insert, group) mezclaTodas :: Ord a => [[a]] -> [a] mezclaTodas = map head . group . f where f ((x:xs):xss) = x : f (insert xs xss)

   1 2 3 4

   import Data.List (insert, group)   mezclaTodas :: Ord a => [[a]] -> [a] mezclaTodas = map head . group . f where f ((x:xs):xss) = x : f (insert xs xss)

   Responder

3. Haskell

   merge :: Ord a => [a] -> [a] -> [a] merge (x:xs) (y:ys) | x < y = x:merge xs (y:ys) | x > y = y:merge (x:xs) ys | x == y = x:merge xs ys mergeAll :: Ord a => [[a]] -> [a] mergeAll (xs:xss) = xmerge xs (mergeAll xss) where xmerge (x:xs) ys = x:merge xs ys mezclaTodas :: Ord a => [[a]] -> [a] mezclaTodas = mergeAll

   1 2 3 4 5 6 7 8 9 10 11 12

   merge :: Ord a => [a] -> [a] -> [a] merge (x:xs) (y:ys)   | x <  y = x:merge xs (y:ys)   | x >  y = y:merge (x:xs) ys   | x == y = x:merge xs ys   mergeAll :: Ord a => [[a]] -> [a] mergeAll (xs:xss) = xmerge xs (mergeAll xss)   where xmerge (x:xs) ys = x:merge xs ys   mezclaTodas :: Ord a => [[a]] -> [a] mezclaTodas = mergeAll

   Responder