dot syntax
This commit is contained in:
		
							parent
							
								
									a92640a487
								
							
						
					
					
						commit
						4709700840
					
				
					 1 changed files with 1 additions and 1 deletions
				
			
		| 
						 | 
				
			
			@ -12,7 +12,7 @@ completeMatrix m = map (\e -> e ++ [""| _ <- [length e..nb]]) m
 | 
			
		|||
                   where nb = maximum $ map length m
 | 
			
		||||
 | 
			
		||||
column :: [[String]] -> [[String]]
 | 
			
		||||
column x = L.transpose $ formatLines $ L.transpose $ completeMatrix x
 | 
			
		||||
column = (L.transpose . formatLines . L.transpose . completeMatrix)
 | 
			
		||||
 | 
			
		||||
main = do
 | 
			
		||||
    content <- getContents
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		
		Reference in a new issue