Skip to content

Instantly share code, notes, and snippets.

@neongreen
Created March 15, 2019 18:37
Show Gist options
  • Save neongreen/df7f46eaa284ad59fe995a72a1cc31d1 to your computer and use it in GitHub Desktop.
Save neongreen/df7f46eaa284ad59fe995a72a1cc31d1 to your computer and use it in GitHub Desktop.
> putStrLn $ drawVerticalTree (Node g [Node g [], Node g [Node g [], Node g []]])
+-----+
|o o .|
|o x x|
|. . .|
+-----+
|
------------
/ \
+-----+ +-----+
|o o .| |o o .|
|o x x| |o x x|
|. . .| |. . .|
+-----+ +-----+
|
--------
/ \
+-----+ +-----+
|o o .| |o o .|
|o x x| |o x x|
|. . .| |. . .|
+-----+ +-----+
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment