Sha256: 9c212480d248f06254ff2ae7d8fad349e0254b5f3f2e2d16392c799f2ab37f7d
Contents?: true
Size: 330 Bytes
Versions: 76
Compression:
Stored size: 330 Bytes
Contents
diamond <- function(letter) {
nrows <- which(LETTERS == letter)
row_x <- function(x) {
row <- rep(" ", nrows * 2 - 1)
row[nrows - (x - 1)] <- LETTERS[x]
row[nrows + (x - 1)] <- LETTERS[x]
paste(row, collapse = "")
}
top <- lapply(seq(nrows), row_x)
paste(c(top, rev(top)[-1]), collapse = "\n")
}
Version data entries
76 entries across 76 versions & 1 rubygems