Árbol de Navidad

4 Comentarios

1. Haskell

   arbol :: Int -> IO () arbol n = do copa (n-1) 1 n base (n-1) (div n 2) copa :: Int -> Int -> Int -> IO () copa e x 0 = return () copa e x n = do putStrLn (esp ++ (concat $ replicate x "X") ++ esp) copa (e-1) (x+2) (n-1) where esp = concat $ replicate e " " base :: Int -> Int -> IO () base _ 0 = return () base e n = do putStrLn (esp ++ "X" ++ esp) base e (n-1) where esp = concat $ replicate e " " {- *Main> arbol 8 X XXX XXXXX XXXXXXX XXXXXXXXX XXXXXXXXXXX XXXXXXXXXXXXX XXXXXXXXXXXXXXX X X X X -}

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

   arbol :: Int -> IO () arbol n = do copa (n-1) 1 n              base (n-1) (div n 2)   copa :: Int -> Int -> Int -> IO () copa e x 0 = return () copa e x n = do putStrLn (esp ++ (concat $ replicate x "X") ++ esp)                 copa (e-1) (x+2) (n-1)   where esp = concat $ replicate e " "            base :: Int -> Int -> IO ()                         base _ 0 = return () base e n = do putStrLn (esp ++ "X" ++ esp)               base e (n-1)   where esp = concat $ replicate e " "   {- *Main> arbol 8        X             XXX            XXXXX         XXXXXXX        XXXXXXXXX     XXXXXXXXXXX   XXXXXXXXXXXXX XXXXXXXXXXXXXXX        X              X              X              X   -}

   Responder

2. Haskell

   arbol' n = [[c x y | x ← [1 … 2 × n - 1]] | y ← [1 … n + n ÷ 2]] where c x y | x ≡ n ∨ (y ≤ n ∧ (abs (x - n)) < y) = 'X' | otherwise = ' ' arbol = decorado "X" -- Decoremos un poco el árbol ;D decorado xs = putStrLn ∘ decorar (cycle xs) ∘ unlines ∘ arbol' decorar _ [] = [] decorar (y:ys) ('X':xs) = y: decorar ys xs decorar ys ( x :xs) = x: decorar ys xs arbolConBolas = decorado "XX*X" arbolFelizNavidad = decorado "Feliz·Navidad·" {- > arbolConBolas 7 X X*X XX*XX X*XXX*X XX*XXX*XX X*XXX*XXX*X XX*XXX*XXX*XX X * X > arbolFelizNavidad 7 F eli z·Nav idad·Fe liz·Navid ad·Feliz·Na vidad·Feliz·N a v i -}

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

   arbol' n = [[c x y | x ← [1 … 2 × n - 1]]                    | y ← [1 … n + n ÷ 2]]   where c x y | x ≡ n ∨ (y ≤ n ∧ (abs (x - n)) < y) = 'X'               | otherwise                           = ' '   arbol = decorado "X"   -- Decoremos un poco el árbol ;D decorado xs = putStrLn ∘ decorar (cycle xs) ∘ unlines ∘ arbol'   decorar    _        []  = [] decorar (y:ys) ('X':xs) = y: decorar ys xs decorar    ys  ( x :xs) = x: decorar ys xs     arbolConBolas     = decorado "XX*X" arbolFelizNavidad = decorado "Feliz·Navidad·"   {-   > arbolConBolas 7       X      X*X     XX*XX    X*XXX*X   XX*XXX*XX X*XXX*XXX*X XX*XXX*XXX*XX       X       *       X   > arbolFelizNavidad 7       F      eli     z·Nav    idad·Fe   liz·Navid ad·Feliz·Na vidad·Feliz·N       a       v       i   -}

   Responder

3. Haskell

   arbol :: Int -> IO () arbol n = do sequence_ [putStrLn ((concat $ replicate (n-div m 2) " ") ++ (concat $ replicate m "X")) | m <- [1,3..2*n-1]] sequence_ [putStrLn (concat (replicate n " ") ++ "X") | _ <- [1..div n 2]] -- *Main> arbol 7 -- X -- XXX -- XXXXX -- XXXXXXX -- XXXXXXXXX -- XXXXXXXXXXX -- XXXXXXXXXXXXX -- X -- X -- X

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

   arbol :: Int -> IO () arbol n = do   sequence_ [putStrLn ((concat $ replicate (n-div m 2) " ") ++                        (concat $ replicate m "X"))             | m <- [1,3..2*n-1]]   sequence_ [putStrLn (concat (replicate n " ") ++ "X")             | _ <- [1..div n 2]]   -- *Main> arbol 7 --        X --       XXX --      XXXXX --     XXXXXXX --    XXXXXXXXX --   XXXXXXXXXXX --  XXXXXXXXXXXXX --        X --        X --        X

   Responder

   1. Con un poco de espacio entre árbol n y el dibujo del árbol:

      Haskell

      arbol :: Int -> IO () arbol n = do putStrLn "" sequence_ [putStrLn ((concat $ replicate (n-div m 2) " ") ++ (concat $ replicate m "X")) | m <- [1,3..2*n-1]] sequence_ [putStrLn (concat (replicate n " ") ++ "X") | _ <- [1..div n 2]]

      1 2 3 4 5 6 7 8

      arbol :: Int -> IO () arbol n = do   putStrLn ""   sequence_ [putStrLn ((concat $ replicate (n-div m 2) " ") ++                        (concat $ replicate m "X"))             | m <- [1,3..2*n-1]]   sequence_ [putStrLn (concat (replicate n " ") ++ "X")             | _ <- [1..div n 2]]

      Responder