We’ve updated our Terms of Service. A new AI Addendum clarifies how Stack Overflow utilizes AI interactions.

Return to Revisions

#Mathematica, 126 bytes

this answer only works on Mathematica because it uses the Unicode character ∞ U+221E INFINITY.

Thread[PadRight[Table[#,If[(d=Min@Position[Alphabet[],If[UpperCaseQ@#,ToLowerCase@#,#]])==∞,1,d]]&/@Characters@#]/. 0->" "]&

#Wolfram Language (Mathematica), 134 bytes

outputs a list of lists of characters

Thread[PadRight[Table[#,If[(d=Min@Position[Alphabet[],If[UpperCaseQ@#,ToLowerCase@#,#]])==\[Infinity],1,d]]&/@Characters@#]/. 0->" "]& 

Try it online!

but if you want to see the output as it is in the test case try this (162 bytes) code
Try it online!