5 lines
131 B
Haskell
5 lines
131 B
Haskell
fac = product . enumFromTo 1
|
|
|
|
binCoef n k = fac n `div` (fac k * fac (n - k))
|
|
|
|
pascal = ((fmap . binCoef) <*> enumFromTo 0) . pred
|