diff options
Diffstat (limited to '70b-73/73.hs')
-rw-r--r-- | 70b-73/73.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/70b-73/73.hs b/70b-73/73.hs new file mode 100644 index 0000000..0db324e --- /dev/null +++ b/70b-73/73.hs @@ -0,0 +1,7 @@ +import Data.List (intersperse) +data Tree a = Node a [Tree a] deriving (Eq, Show) + +display :: Tree Char -> [Char] + +display (Node v []) = [v] +display (Node v xs) = '(':v:' ':(concat $ intersperse " " $ map display xs) ++ ")" |