RosettaCodeData/Task/Bell-numbers/Haskell/bell-numbers-4.hs
2023-07-01 13:44:08 -04:00

2 lines
104 B
Haskell

bellTri :: [[Integer]]
bellTri = map snd (iterate (((,) . last <*> id) . uncurry (scanl (+))) (1, [1]))