Add 'universe/' from commit '8ad51b24dd'
				
					
				
			git-subtree-dir: universe git-subtree-mainline:15110e6de9git-subtree-split:8ad51b24dd
This commit is contained in:
		
						commit
						fb9380ba26
					
				
					 131 changed files with 13792 additions and 0 deletions
				
			
		
							
								
								
									
										11
									
								
								universe/crack_the_coding_interview/to_tree.hs
									
										
									
									
									
										Normal file
									
								
							
							
						
						
									
										11
									
								
								universe/crack_the_coding_interview/to_tree.hs
									
										
									
									
									
										Normal 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) | ||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue