Multiplication tables: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,257: / Line 2,257: @@
 table n = concat <$> xs
   where
-    xs =   (\x ->  fmt x  : drop 2 pad : (
+    xs = (\x -> fmt x  : drop 2 pad : (
-           (\y ->  if y < x then   pad   else fmt $ x * y)
+         (\y -> if y < x then   pad   else fmt $ x * y)
-                   <$> range))
+                <$> range))
-                   <$> range
+                <$> range
       where
         fmt e = drop (length s) (pad ++ s)