R/generate_symmetric_L.R

In YangHuiMagic: A Generalization of Yang Hui's Magic Squares

#' Generate a symmetric L set satisfying the condition (first n numbers and their complements)
#'
#' @param n Parameter, final order 4n
#'
#' @return Integer vector of length 2n
#' @export
generate_symmetric_L <- function(n) {
  first <- 1:n
  last  <- 4 * n - (1:n) + 1
  c(first, last)
}