tvl-depot/scratch/crack_the_coding_interview/to_tree.hs

data Tree a = Node a [Tree a] deriving (Show)

withRoot :: [a] -> [Tree a]
withRoot xs = xs |> toThing |> fmap buildTree

buildTree :: (a, [a])


toTree :: [a] -> Tree a
toTree [x]      = Node x []
toTree [x | xs] = Node x (toTree xs)
Add "Crack the Coding Interview" examples I believe I have multiple other snippets and attempts scattered across /tmp, ~/programming, and other directories. Again, I created these files and others before the mono-repo. 2020-01-15 15:23:37 +01:00			`data Tree a = Node a [Tree a] deriving (Show)`

			`withRoot :: [a] -> [Tree a]`
			`withRoot xs = xs \|> toThing \|> fmap buildTree`

			`buildTree :: (a, [a])`


			`toTree :: [a] -> Tree a`
			`toTree [x] = Node x []`
			`toTree [x \| xs] = Node x (toTree xs)`