From 34d130005be780756b9c6915a7c188a756e03882 Mon Sep 17 00:00:00 2001 From: Determinant Date: Wed, 31 May 2017 00:32:37 -0400 Subject: finish vol 8 --- 70b-73/70.hs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 70b-73/70.hs (limited to '70b-73/70.hs') 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) ++ "^" -- cgit v1.2.3