Multiplication tables: Difference between revisions

m
m (→‎{{header|REXX}}: changed some comments and whitespace.)
Line 2,257:
table n = concat <$> xs
where
xs = concatMapmap (\x -> [[fmt x] ++: [drop 2 pad] ++:
concatMapmap (\y -> if y < x then [pad]
else [(fmt $ x * y]))
range])
range
where
fmt e = drop (length s) (pad ++ s)
Anonymous user