Create a diamond pattern

diamond-pattern.R

n <- 10
num_of_stars_per_row_upper_sequence <- seq(from = 1, by = 2, length.out = n)
row_length <- num_of_stars_per_row_upper_sequence[n]
num_of_stars_per_row_lower_sequence <- rev(num_of_stars_per_row_upper_sequence)[-1]
upper_and_lower_sequence <- c(num_of_stars_per_row_upper_sequence, num_of_stars_per_row_lower_sequence)
for (i in upper_and_lower_sequence) {
  num_of_spaces <- (row_length - i) / 2
  spaces <- rep(" ", times = num_of_spaces)
  stars <- rep("*", times = i)
  cat(spaces, stars, "\n",  sep = "")
}