Return to Revisions

2 of 8

added 454 characters in body

edited Oct 10, 2017 at 9:36

edited Oct 10, 2017 at 9:36

#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->" "]&

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

answered Oct 10, 2017 at 9:31