Multiplication tables: Difference between revisions
m
→{{header|Haskell}}: (Slight rearrangement)
m (→{{header|Sidef}}: updated code) |
m (→{{header|Haskell}}: (Slight rearrangement)) |
||
Line 2,326:
multTable :: Int -> [[String]]
multTable n =
let xs = [1 .. n]▼
in xs >>=
[ show x
(xs
[
then mempty
▲ [1 .. n]
else show (x * y)
])
]
tableString :: [[String]] -> String
| |||