Skip to content
Prev 280994 / 398503 Next

Pascal's Triangle

n <- 5
PascalsTriangle <- vector('list', n)
PascalsTriangle[[1]] <- 1
for(i in 2:n){
     x0 <- PascalsTriangle[[i-1]]
     x01 <- c(0, x0)
     x10 <- c(x0, 0)
     PascalsTriangle[[i]] <- x01+x10
}


I hope I'm not doing a homework problem.


Spencer
On 12/28/2011 1:53 AM, Jason J. Pitt wrote: