RosettaCodeData/Task/Show-ASCII-table/Mathematica/show-ascii-table.math
2023-07-01 13:44:08 -04:00

1 line
156 B
Text

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