Caminos desde la raíz en un árbol binario

9 Comentarios

1. Haskell

   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz H = [] caminosDesdeRaiz (N a i d) = [a] : [a:xs | xs <- caminosDesdeRaiz i] ++ [a:ys | ys <- caminosDesdeRaiz d]

   1 2 3 4

   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz H         = [] caminosDesdeRaiz (N a i d) = [a] : [a:xs | xs <- caminosDesdeRaiz i] ++                              [a:ys | ys <- caminosDesdeRaiz d]

   Responder

2. Haskell

   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz H = [] caminosDesdeRaiz (N n i d) = [n] : map (n:) (caminosDesdeRaiz i ++ caminosDesdeRaiz d)

   1 2 3 4

   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz H = [] caminosDesdeRaiz (N n i d) =   [n] : map (n:) (caminosDesdeRaiz i ++ caminosDesdeRaiz d)

   Responder

3. Haskell

   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz H = [] caminosDesdeRaiz (N x a b) = [x]: map (x:) (caminosDesdeRaiz a ++ caminosDesdeRaiz b)

   1 2 3 4

   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz  H        = [] caminosDesdeRaiz (N x a b) =     [x]: map (x:) (caminosDesdeRaiz a ++ caminosDesdeRaiz b)

   Responder

4. Haskell

   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz H = [] caminosDesdeRaiz (N a x y) = [a] : [a:zs | zs <- caminosDesdeRaiz x ++ caminosDesdeRaiz y]

   1 2 3 4

   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz H = [] caminosDesdeRaiz (N a x y) =   [a] : [a:zs | zs <- caminosDesdeRaiz x ++ caminosDesdeRaiz y]

   Responder

5. Haskell

   import Data.List (nub) caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz H = [[]] caminosDesdeRaiz (N a is ds) = nub $ [a] : map (a:) (caminosDesdeRaiz is ++ caminosDesdeRaiz ds)

   1 2 3 4 5 6

   import Data.List (nub)   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz H = [[]] caminosDesdeRaiz (N a is ds) =   nub $ [a] : map (a:) (caminosDesdeRaiz is ++ caminosDesdeRaiz ds)

   Responder

6. Haskell

   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz (N a H H) = [[a]] caminosDesdeRaiz (N a H d) = [[a]] ++ [a:x | x <- caminosDesdeRaiz d] caminosDesdeRaiz (N a i H) = [[a]] ++ [a:x | x <- caminosDesdeRaiz i] caminosDesdeRaiz (N a i d) = [[a]] ++ [a:x | x <- caminosDesdeRaiz i] ++ [a:x | x <- caminosDesdeRaiz d]

   1 2 3 4 5 6 7 8

   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz (N a H H) = [[a]] caminosDesdeRaiz (N a H d) = [[a]] ++ [a:x | x <- caminosDesdeRaiz d] caminosDesdeRaiz (N a i H) = [[a]] ++ [a:x | x <- caminosDesdeRaiz i] caminosDesdeRaiz (N a i d) =      [[a]]   ++ [a:x | x <- caminosDesdeRaiz i]   ++ [a:x | x <- caminosDesdeRaiz d]

   Responder

7. Haskell

   import Data.List (nub) caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz H = [[]] caminosDesdeRaiz (N a i d) = nub ([a] : map (a:) (caminosDesdeRaiz i) ++ map (a:) (caminosDesdeRaiz d))

   1 2 3 4 5 6 7

   import Data.List (nub)   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz H = [[]] caminosDesdeRaiz (N a i d) =   nub ([a] : map (a:) (caminosDesdeRaiz i) ++              map (a:) (caminosDesdeRaiz d))

   Responder

8. Haskell

   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz (H) = [] caminosDesdeRaiz (N x i d) = [x] : [x:ys | ys <- caminosDesdeRaiz i ++ caminosDesdeRaiz d]

   1 2 3 4

   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz (H) = [] caminosDesdeRaiz (N x i d) =   [x] : [x:ys | ys <- caminosDesdeRaiz i ++ caminosDesdeRaiz d]

   Responder

9. Haskell

   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz H = [] caminosDesdeRaiz (N x i d) = [x]: (map (x:) $ caminosDesdeRaiz i ++ caminosDesdeRaiz d)

   1 2 3

   caminosDesdeRaiz :: Arbol -> [[Int]] caminosDesdeRaiz H = [] caminosDesdeRaiz (N x i d) = [x]: (map (x:) $ caminosDesdeRaiz i ++ caminosDesdeRaiz d)

   Responder