Sucesión duplicadora

5 Comentarios

1. Haskell

   import Data.List duplicadora :: Integer -> [Integer] duplicadora n = reverse $ takeWhile (/=0) (iterate (`div` 2) n)

   1 2 3 4

   import Data.List   duplicadora :: Integer -> [Integer] duplicadora n = reverse $ takeWhile (/=0) (iterate (`div` 2) n)

   Responder

2. Haskell

   duplicadora :: Integer -> [Integer] duplicadora x = reverse (aux x ++ [1]) where aux 1 = [] aux x | (x `div` 2) `elem` xs = [x] ++ aux (x `div` 2) |((x `div` 2)+1) `elem` xs = [x] ++ aux ((x `div` 2)+1) |otherwise = aux (x-1) xs = [n | n <- [1..x]]

   1 2 3 4 5 6 7 8

   duplicadora :: Integer -> [Integer] duplicadora x =  reverse (aux x ++ [1])   where aux 1 = []         aux x | (x `div` 2) `elem` xs = [x] ++ aux (x `div` 2)                      |((x `div` 2)+1) `elem` xs = [x] ++ aux ((x `div` 2)+1)                       |otherwise = aux (x-1)                  xs = [n | n <- [1..x]]

   Responder

3. Haskell

   duplicadora :: Integer -> [Integer] duplicadora = reverse . duplicadora' duplicadora' :: Integer -> [Integer] duplicadora' 1 = [1] duplicadora' n = n : duplicadora' (div n 2)

   1 2 3 4 5 6

   duplicadora :: Integer -> [Integer] duplicadora = reverse . duplicadora'   duplicadora' :: Integer -> [Integer] duplicadora' 1 = [1] duplicadora' n = n : duplicadora' (div n 2)

   Responder

4. Haskell

   import Control.Monad data Arbol a = H a | N a (Arbol a) (Arbol a) deriving (Show, Eq) duplicadora :: Integer -> [Integer] duplicadora n= concat (subeArbol (duplicaArbol n (H 1))) duplicaArbol :: Integer -> Arbol Integer-> Arbol Integer duplicaArbol n (H a) | a > n = H 0 | a == n = H n | otherwise = duplicaArbol n (N a (H (2*a)) (H (2*a+1))) duplicaArbol n (N a i d) = N a (duplicaArbol n i) (duplicaArbol n d) subeArbol :: Arbol Integer -> [[Integer]] subeArbol (H a) | a /= 0 = [[a]] | otherwise = [] subeArbol (N a i d) = map (a:) ((subeArbol i) ++ (subeArbol d))

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

   import Control.Monad   data Arbol a = H a              | N a (Arbol a) (Arbol a)              deriving (Show, Eq)     duplicadora :: Integer -> [Integer] duplicadora n= concat (subeArbol (duplicaArbol n (H 1)))   duplicaArbol :: Integer ->  Arbol Integer-> Arbol Integer duplicaArbol n (H a)   | a > n = H 0   | a == n = H n   | otherwise = duplicaArbol n (N a (H (2*a)) (H (2*a+1))) duplicaArbol n (N a i d) = N a (duplicaArbol n i) (duplicaArbol n d)   subeArbol :: Arbol Integer -> [[Integer]] subeArbol (H a)   | a /= 0 = [[a]]   | otherwise = [] subeArbol (N a i d) = map (a:) ((subeArbol i) ++ (subeArbol d))

   Responder

5. Haskell

   duplicadora :: Integer -> [Integer] duplicadora n = reverse rs where rs = n:f n f m | m == 1 = [] | otherwise = m2:f m2 where m2 = div m 2

   1 2 3 4 5 6

   duplicadora :: Integer -> [Integer] duplicadora n = reverse rs   where rs = n:f n         f m | m == 1 = []             | otherwise = m2:f m2             where m2 = div m 2

   Responder