Multiplication tables: Difference between revisions

m
Line 2,262:
<$> range
where
range = [1..n]
pad = " "
fmt e = drop (length s) (pad ++ s)
where
s = show e
pad = " "
range = [1..n]
main :: IO ()
main = mapM_ putStrLn $ table 12</lang>
9,655

edits