# sprintf("%4.0i", 1:12) 能讓1:12「都佔四格」且「向右對齊」
n <- 12
for(i in 1:n) {
  cat(strrep("*", (n - i)*2))
  for (j in 1:n) {
    if (i >= j) cat(sprintf("%4.0i", j))
  }
  cat("\n")
}