Rosetta Code

Multiplication tables: Difference between revisions

Page Discussion

Multiplication tables (view source)

Revision as of 08:19, 29 May 2017

18 bytes removed ,  7 years ago
→‎{{header|Haskell}}: (Rearranged table function)
(→‎{{header|Haskell}}: (Rearranged table function))
Line 2,339:
table :: String -> [[String]] -> [String]
table delim rows =
let justifyRight n c n s = drop (length s) (replicate n c <> s)
in intercalate delim <$>
transpose
((\colfmap ->=<< justifyRight (' ' . maximum (length. <$>fmap collength)) ' ' <$> coltranspose rows) <$>
transpose rows)
 
main :: IO ()
Hout
9,659

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/134055"