9 lines
361 B
R
9 lines
361 B
R
Floyd <- function(n)
|
|
{
|
|
#The first argument of the seq call is a well-known formula for triangle numbers.
|
|
out <- t(sapply(seq_len(n), function(i) c(seq(to = 0.5 * (i * (i + 1)), by = 1, length.out = i), rep(NA, times = n - i))))
|
|
dimnames(out) <- list(rep("", times = nrow(out)), rep("", times = ncol(out)))
|
|
print(out, na.print = "")
|
|
}
|
|
Floyd(5)
|
|
Floyd(14)
|