Sha256: b91c9ba82662d1e644f3266b30554f347d4931813f632a7a8728a8bcfd80bfd4
Contents?: true
Size: 482 Bytes
Versions: 219
Compression:
Stored size: 482 Bytes
Contents
pascals_triangle <- function(n) {
if (n == 0) {
return(list())
}
else if (n == 1) {
return(list(1))
}
else if (n == 2) {
return(list(1, c(1, 1)))
}
else if (n >= 3) {
triangle <- list(1, c(1, 1))
for (x in 3:n) {
row <- rep(1, x)
for (i in 2:(x - 1)) {
row[i] <- sum(triangle[[x - 1]][(i - 1):i])
}
triangle[[x]] <- row
}
return(triangle)
}
else {
stop("argument n needs to be an integer")
}
}
Version data entries
219 entries across 219 versions & 1 rubygems