التنميط والتخصيص وكلفة الخوارزمية

growing <- function(n) {
  out <- numeric(0)
  for (i in seq_len(n)) out <- c(out, i^2)
  out
}
fixed <- function(n) {
  out <- numeric(n)
  for (i in seq_len(n)) out[i] <- i^2
  out
}
cat("same=", identical(growing(5L), fixed(5L)), "\n", sep = "")
cat("sum=", sum(fixed(5L)), "\n", sep = "")

same=TRUE
sum=55

للتنفيذين المحدودين النتيجة العددية نفسها، ولا ندعي قياس زمن أو تخصيص.

n <- 1000
dense_cells <- n*n
unique_pairs <- n*(n-1)/2
payload_bytes <- dense_cells*8
cat(sprintf("dense cells=%.0f; unique pairs=%.0f\n", dense_cells, unique_pairs))
cat(sprintf("assumed double payload bytes=%.0f\n", payload_bytes))

dense cells=1000000; unique pairs=499500
assumed double payload bytes=8000000

العدد تحليلي لمصفوفة double كثيفة افتراضية دون كلفة الكائن والوسائط، ولا تخصص مصفوفة مليون خلية.