Return to Revisions

3 of 5

deleted 1 characters in body

edited Oct 21, 2011 at 5:32

Mathematica: 36

Mathematica has the `Binomial` function, but that takes the fun out of this. I propose:

NestList[{0,##}+{##,0}&@@#&,{1},n-1]

answered Oct 20, 2011 at 20:28