Skip to main content
added 233 characters in body
Source Link
LegionMammal978
  • 18k
  • 4
  • 25
  • 57

MathematicaWolfram Language (Mathematica), 69 65 5757 44 bytes

Saved 8 bytes duethanks to @MartinEnderMartin Ender.
Saved 13 bytes thanks to att.

FromCharacterCode[64+Max~Array~Print@@@Array[Alphabet[][[Max@##]]&,{26,26}]~StringRiffle~"
"&]

Anonymous function. Takes no input and returns a string as output. Basically just takes char('A' + max(x, y)) for all x, y from 1Try it online! Full program which prints to 26standard output.

Mathematica, 69 65 57 bytes

Saved 8 bytes due to @MartinEnder.

FromCharacterCode[64+Max~Array~{26,26}]~StringRiffle~"
"&

Anonymous function. Takes no input and returns a string as output. Basically just takes char('A' + max(x, y)) for all x, y from 1 to 26.

Wolfram Language (Mathematica), 69 65 57 44 bytes

Saved 8 bytes thanks to Martin Ender.
Saved 13 bytes thanks to att.

Print@@@Array[Alphabet[][[Max@##]]&,{26,26}]

Try it online! Full program which prints to standard output.

added 83 characters in body
Source Link
LegionMammal978
  • 18k
  • 4
  • 25
  • 57

Mathematica, 69 6565 57 bytes

Saved 8 bytes due to @MartinEnder.

StringRiffle[FromCharacterCode[64+Max@##]&~Array~FromCharacterCode[64+Max~Array~{26,26},"]~StringRiffle~"
",""]&"&

Anonymous function. Takes no input and returns a string as output. Basically just takes char('A' + max(x, y)) for all x, y from 1 to 26.

Mathematica, 69 65 bytes

StringRiffle[FromCharacterCode[64+Max@##]&~Array~{26,26},"
",""]&

Anonymous function. Takes no input and returns a string as output. Basically just takes char('A' + max(x, y)) for all x, y from 1 to 26.

Mathematica, 69 65 57 bytes

Saved 8 bytes due to @MartinEnder.

FromCharacterCode[64+Max~Array~{26,26}]~StringRiffle~"
"&

Anonymous function. Takes no input and returns a string as output. Basically just takes char('A' + max(x, y)) for all x, y from 1 to 26.

added 9 characters in body
Source Link
LegionMammal978
  • 18k
  • 4
  • 25
  • 57

Mathematica, 6969 65 bytes

StringRiffle[ToUpperCase@Alphabet[][[Max@##]]&~Array~StringRiffle[FromCharacterCode[64+Max@##]&~Array~{26,26},"
",""]&

Anonymous function. Takes no input and returns a string as output. Basically just takes letters[maxchar('A' + max(x, y)]) for all x, y from 1 to 26.

Mathematica, 69 bytes

StringRiffle[ToUpperCase@Alphabet[][[Max@##]]&~Array~{26,26},"
",""]&

Anonymous function. Takes no input and returns a string as output. Basically just takes letters[max(x, y)] for all x, y from 1 to 26.

Mathematica, 69 65 bytes

StringRiffle[FromCharacterCode[64+Max@##]&~Array~{26,26},"
",""]&

Anonymous function. Takes no input and returns a string as output. Basically just takes char('A' + max(x, y)) for all x, y from 1 to 26.

Source Link
LegionMammal978
  • 18k
  • 4
  • 25
  • 57
Loading