Refinamiento de listas

8 Comentarios

1. Haskell

   refinada :: [Float] -> [Float] refinada [] = [] refinada [a] = [a] refinada (y:x:xs) = y : (y+x)/2 : refinada (x:xs)

   1 2 3 4

   refinada :: [Float] -> [Float] refinada []       = [] refinada [a]      = [a] refinada (y:x:xs) = y : (y+x)/2 : refinada (x:xs)

   Responder

2. La solución sencilla, por recursividad:

   Haskell

   refinada :: [Float] -> [Float] refinada (x:y:xs) = x : (x + y)/2 : refinada (y:xs) refinada xs = xs

   1 2 3

   refinada :: [Float] -> [Float] refinada (x:y:xs) = x : (x + y)/2 :  refinada (y:xs) refinada xs = xs

   Otra solución usando concatMap y zip:

   Haskell

   refinada2 :: [Float] -> [Float] refinada2 [] = [] refinada2 (x:xs) = x: concatMap (\(a,b) -> [(a+b)/2, b]) (zip (x:xs) xs)

   1 2 3

   refinada2 :: [Float] -> [Float] refinada2 [] =  [] refinada2 (x:xs) = x: concatMap (\(a,b) -> [(a+b)/2, b]) (zip (x:xs) xs)

   Responder

3. Haskell

   refinada :: [Float] -> [Float] refinada [] = [] refinada (x:xs) = x : concat [[(a+b)/2,b] | (a,b) <- zip (x:xs) xs]

   1 2 3

   refinada :: [Float] -> [Float] refinada []     = [] refinada (x:xs) = x : concat [[(a+b)/2,b] | (a,b) <- zip (x:xs) xs]

   Responder

4. Haskell

   refinada :: [Float] -> [Float] refinada [] = [] refinada [a] = [a] refinada (x:xs) = [x,(x+head xs)/2] ++ refinada xs

   1 2 3 4

   refinada :: [Float] -> [Float] refinada []     = [] refinada [a]    = [a] refinada (x:xs) = [x,(x+head xs)/2] ++ refinada xs

   Responder

5. Haskell

   refinada :: [Float] -> [Float] refinada [] = [] refinada [a] = [a] refinada (x:xs) = x : (x + head xs) / 2 : refinada xs

   1 2 3 4

   refinada :: [Float] -> [Float] refinada []     = [] refinada [a]    = [a] refinada (x:xs) = x : (x + head xs) / 2 : refinada xs

   Responder

6. Haskell

   refinada :: [Float] -> [Float] refinada [] = [] refinada (x:xs) = x : mediaElementos (x:xs) mediaElementos :: [Float] -> [Float] mediaElementos [x] = [] mediaElementos [] = [] mediaElementos (x:x':xs) = (x+x')/2 : refinada (x':xs)

   1 2 3 4 5 6 7 8

   refinada :: [Float] -> [Float] refinada []     = [] refinada (x:xs) = x : mediaElementos (x:xs)   mediaElementos :: [Float] -> [Float] mediaElementos [x]       = [] mediaElementos []        = [] mediaElementos (x:x':xs) = (x+x')/2 : refinada (x':xs)

   Responder

7. Haskell

   refinada :: [Float] -> [Float] refinada [] = [] refinada [a] = [a] refinada (y:x:xs) = y : (x+y)/2 : x : concat [[(x+y)/2,y] | (x,y) <- zip (x:xs) xs]

   1 2 3 4

   refinada :: [Float] -> [Float] refinada []       = [] refinada [a]      = [a] refinada (y:x:xs) = y : (x+y)/2  : x : concat [[(x+y)/2,y] | (x,y) <- zip (x:xs) xs]

   Responder

8. Haskell

   refinada :: [Float] -> [Float] refinada [] = [] refinada [x] = [x] refinada (x:xs) = x : ((x + head xs)/2) : refinada xs

   1 2 3 4

   refinada :: [Float] -> [Float] refinada []     = [] refinada [x]    = [x] refinada (x:xs) = x : ((x + head xs)/2) : refinada xs

   Responder