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.
This commit is contained in:
William Carroll 2020-01-15 14:23:37 +00:00
parent 456d358cd7
commit b4ee283b23
2 changed files with 51 additions and 0 deletions

View file

@ -0,0 +1,11 @@
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)