Mathematica, 85 66 bytes
Thanks to ngenisis for pointing the way to a 19-byte savings!
CharacterName@Alphabet@"Greek"~Riffle~" "~StringDelete~"Curly"<>""
Returns the string with every Greek letter capitalized. Just thought it would be fun to coerce Mathematica into doing all the work!
Alphabet@"Greek"
returns a nicely formatted list of the Greek alphabet characters; CharacterName@
converts each of those characters into a string naming that character, and ~Riffle~" "
inserts a space between each such string. Unfortunately, two of the letters are called "CurlyEpsilon"
and "CurlyPhi"
, and so we need ~StringDelete~"Curly"
to fix that. Finally, <>""
concatenates all these strings together.
Previous submission:
StringDelete[ToString@FullForm@Alphabet@"Greek","List"|"Curly"|"["|"]"|"\""|"\\"|","]
Alphabet@"Greek"
returns a nicely formatted list of the Greek alphabet characters as before, but FullForm
forces it to show the internal structure rather than the nice formatting; ToString
converts that internal structure into a string that can be manipulated:
"List[\"\\[Alpha]\", \"\\[Beta]\", \"\\[Gamma]\", \"\\[Delta]\", \"\\[CurlyEpsilon]\", \"\\[Zeta]\", \"\\[Eta]\", \"\\[Theta]\", \"\\[Iota]\", \"\\[Kappa]\", \"\\[Lambda]\", \"\\[Mu]\", \"\\[Nu]\", \"\\[Xi]\", \"\\[Omicron]\", \"\\[Pi]\", \"\\[Rho]\", \"\\[Sigma]\", \"\\[Tau]\", \"\\[Upsilon]\", \"\\[CurlyPhi]\", \"\\[Chi]\", \"\\[Psi]\", \"\\[Omega]\"]"
From here, StringDelete[..."List"|"Curly"|"["|"]"|"\""|"\\"|","]
gets rid of all the stuff we don't want.