Add 'universe/' from commit '8ad51b24dd'

git-subtree-dir: universe
git-subtree-mainline: 15110e6de9
git-subtree-split: 8ad51b24dd
This commit is contained in:
William Carroll 2020-01-29 14:29:25 +00:00
commit fb9380ba26
131 changed files with 13792 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)