You are viewing a single comment's thread. Return to all comments →
Achieved something similar here:
putStr (unlines (map (\line -> unwords (map (\(x:[]) -> show x) line)) rows))
where rows is [[1], [1, 1], [1, 2, 1], [1, 3, 3, 1]]
Seems like cookies are disabled on this browser, please enable them to open this website
Pascal's Triangle
You are viewing a single comment's thread. Return to all comments →
Achieved something similar here:
where rows is [[1], [1, 1], [1, 2, 1], [1, 3, 3, 1]]