RosettaCodeData/Task/Pascals-triangle/Haskell/pascals-triangle-8.hs

5 lines
109 B
Haskell

pascal :: [[Integer]]
pascal =
(1 : [ 0 | _ <- head pascal])
: [zipWith (+) (0:row) row | row <- pascal]