September Morn Update

2019-09-12 10:33:56 -07:00 · 2019-09-12 10:33:56 -07:00 · aac6731f2c
commit aac6731f2c
parent 4e2d22a71d
6856 changed files with 141342 additions and 21127 deletions
--- a/Task/Visualize-a-tree/Haskell/visualize-a-tree-1.hs
+++ b/Task/Visualize-a-tree/Haskell/visualize-a-tree-1.hs
--- a/Task/Visualize-a-tree/Haskell/visualize-a-tree-2.hs
+++ b/Task/Visualize-a-tree/Haskell/visualize-a-tree-2.hs
@ -0,0 +1,12 @@
+import Data.Tree (Tree(..), drawTree)
+
+tree :: Tree Int
+tree =
+  Node
+    1
+    [ Node 2 [Node 4 [Node 7 []], Node 5 []]
+    , Node 3 [Node 6 [Node 8 [], Node 9 []]]
+    ]
+
+main :: IO ()
+main = (putStrLn . drawTree . fmap show) tree