RosettaCodeData/Task/Show-ASCII-table/Mathematica/show-ascii-table.math

2 lines
156 B
Plaintext

StringRiffle[StringJoin@@@Transpose[Partition[ToString[#]<>": "<>Switch[#,32,"Spc ",127,"Del ",_,FromCharacterCode[#]<>" "]&/@Range[32,127],16]],"\n"]