Return to Revisions

2 of 5

added 26 characters in body

edited Oct 20, 2011 at 22:57

Mathematica: 37

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

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

answered Oct 20, 2011 at 20:28