4 lines
119 B
Haskell
4 lines
119 B
Haskell
import Control.Arrow
|
|
|
|
bellTri :: [[Integer]]
|
|
bellTri = map snd (iterate ((last &&& id) . uncurry (scanl (+))) (1,[1]))
|