Multiplication tables: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,257: / Line 2,257: @@
 table n = concat <$> xs
   where
-    xs = map (\x ->  fmt x  : drop 2 pad :
+    xs =   (\x ->  fmt x  : drop 2 pad : (
-         map (\y -> if y < x then pad
+           (\y ->  if y < x then   pad   else fmt $ x * y)
-                             else (fmt $ x * y))
+                   <$> range))
-                                          range)
+                   <$> range
-                                          range
       where
         fmt e = drop (length s) (pad ++ s)
@@ Line 2,268: / Line 2,267: @@
         pad = "    "
         range = [1..n]
 main :: IO ()
 main = mapM_ putStrLn $ table 12</lang>