3 lines
76 B
R
3 lines
76 B
R
pascalTriangle <- function(h) {
|
|
lapply(0:h, function(i) choose(i, 0:i))
|
|
}
|
pascalTriangle <- function(h) {
|
|
lapply(0:h, function(i) choose(i, 0:i))
|
|
}
|