diff options
Diffstat (limited to '70b-73/70.hs')
-rw-r--r-- | 70b-73/70.hs | 16 |
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) ++ "^" |