Multiplication tables: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,326: / Line 2,326: @@
 multTable n =
   (\x ->
-      mappend (show x) ":" :
+      (mappend (show x) ":") :
       ((\y ->
            if y < x
@@ Line 2,333: / Line 2,333: @@
        [1 .. n])) <$>
   [1 .. n]
 tableString :: Int -> String
-tableString n = unlines $ (unwords . (justifyRight (maxLen tbl) ' ' <$>)) <$> tbl
+tableString n = unlines $ (unwords . ((justifyRight w ' ') <$>)) <$> tbl
   where
-    justifyRight n c s = drop (length s) (mappend (replicate n c) s)
-    mx = maximumBy (comparing length)
-    maxLen = length . mx . (mx <$>)
     tbl = multTable n
+    w = length $ (last . last) tbl
+    justifyRight n c s = drop (length s) (mappend (replicate n c) s)
 main :: IO ()