remove Tools

1 files changed, 12 insertions, 2 deletions

diff --git a/packages/base/src/Internal/IO.hs b/packages/base/src/Internal/IO.hs
index e594a1c..a899cfd 100644
--- a/packages/base/src/Internal/IO.hs
+++ b/packages/base/src/Internal/IO.hs
@@ -16,16 +16,26 @@ module Internal.IO (
     loadMatrix, loadMatrix', saveMatrix
 ) where
 
-import Internal.Tools
 import Internal.Devel
 import Internal.Vector
 import Internal.Matrix
 import Internal.Vectorized
 import Text.Printf(printf)
-import Data.List(intersperse)
+import Data.List(intersperse,transpose)
 import Data.Complex
 
 
+-- | Formatting tool
+table :: String -> [[String]] -> String
+table sep as = unlines . map unwords' $ transpose mtp
+  where
+    mt = transpose as
+    longs = map (maximum . map length) mt
+    mtp = zipWith (\a b -> map (pad a) b) longs mt
+    pad n str = replicate (n - length str) ' ' ++ str
+    unwords' = concat . intersperse sep
+
+
 
 {- | Creates a string from a matrix given a separator and a function to show each entry. Using
 this function the user can easily define any desired display function: