7 lines
223 B
Haskell
7 lines
223 B
Haskell
(-> (for i (range 16)
|
|
j (range (+ i 32) 128 16)
|
|
(let k (match j 32 "Spc" 127 "Del" (str (char-code j) " ")))
|
|
(strn ((< j 100) " ") j " : " k))
|
|
(partition 6)
|
|
(map (join " "))
|
|
(join "\n"))
|