Pascal's triangle: Difference between revisions

Content added Content deleted
(Keep the same logic but add code to display the triangle in a nicer way.)
m (→‎{{header|Haskell}}: Tidied, used an applicative)
Line 2,556: Line 2,556:
<lang haskell>fac = product . enumFromTo 1
<lang haskell>fac = product . enumFromTo 1


binCoef n k = (fac n) `div` ((fac k) * (fac $ n - k))
binCoef n k = fac n `div` (fac k * fac (n - k))


pascal n = map (binCoef $ n - 1) [0..n-1]</lang>
pascal = ((fmap . binCoef) <*> enumFromTo 0) . pred</lang>


Example:
Example: