finish vol 8

1 files changed, 16 insertions, 0 deletions

diff --git a/70b-73/70.hs b/70b-73/70.hs
new file mode 100644
index 0000000..69f42f5
--- /dev/null
+++ b/70b-73/70.hs
@@ -0,0 +1,16 @@
+data Tree a = Node a [Tree a] deriving (Eq, Show)
+
+stringToTree :: [Char] -> Tree Char
+
+stringToTree l = fst $ build l
+    where build (x:xs) = (Node x chd'', xs'')
+            where loop ('^':xs) = ([], xs)
+                  loop xs =  (chd':c, x)
+                      where (chd', xs') = build xs
+                            (c, x) = loop xs'
+                  (chd'', xs'') = loop xs
+
+
+treeToString :: Tree Char -> [Char]
+
+treeToString (Node v xs) = v:(concat $ map treeToString xs) ++ "^"