Multiplication tables: Difference between revisions
m
→{{header|Haskell}}
m (→{{header|Haskell}}: (spacing)) |
|||
Line 2,259:
xs = (\x -> fmt x : drop 2 pad : (
(\y -> if y < x then pad else fmt $ x * y)
<$> range))
<$> range
where
fmt e = drop (length s) (pad ++ s)
|