Skip to main content
added 25 characters in body
Source Link
Flounderer
  • 646
  • 3
  • 9

R, 7878 70

M=matrix(repM=replicate(26,c(letters,"\n"),26),nc=26);diag(M)=LETTERS;cat(M,M[,25:1],sep="")

Improved by @MickyT

R, 78

M=matrix(rep(c(letters,"\n"),26),nc=26);diag(M)=LETTERS;cat(M,M[,25:1],sep="")

R, 78 70

M=replicate(26,c(letters,"\n"));diag(M)=LETTERS;cat(M,M[,25:1],sep="")

Improved by @MickyT

Source Link
Flounderer
  • 646
  • 3
  • 9

R, 78

M=matrix(rep(c(letters,"\n"),26),nc=26);diag(M)=LETTERS;cat(M,M[,25:1],sep="")