Show ASCII table: Difference between revisions
Content added Content deleted
m (→{{header|Haskell}}: Tidied. Used chunksOf from Data.List.Split) |
Not a robot (talk | contribs) (Add Cowgol) |
||
Line 1,202: | Line 1,202: | ||
116: t 117: u 118: v 119: w 120: x 121: y |
116: t 117: u 118: v 119: w 120: x 121: y |
||
122: z 123: { 124: | 125: } 126: ~ 127: DEL</pre> |
122: z 123: { 124: | 125: } 126: ~ 127: DEL</pre> |
||
=={{header|Cowgol}}== |
|||
<lang cowgol>include "cowgol.coh"; |
|||
# Print number with preceding space if <100 and trailing colon |
|||
sub print_num(n: uint8) is |
|||
if n < 100 then print_char(' '); end if; |
|||
print_i8(n); |
|||
print(": "); |
|||
end sub; |
|||
# Print character / Spc / Del padded to 5 spaces |
|||
sub print_ch(c: uint8) is |
|||
if c == ' ' then print("Spc "); |
|||
elseif c == 127 then print("Del "); |
|||
else |
|||
print_char(c); |
|||
print(" "); |
|||
end if; |
|||
end sub; |
|||
var c: uint8 := 32; |
|||
loop |
|||
print_num(c); |
|||
print_ch(c); |
|||
if c == 127 then |
|||
break; |
|||
end if; |
|||
c := c + 16; |
|||
if c > 127 then |
|||
print_nl(); |
|||
c := c - 95; |
|||
end if; |
|||
end loop; |
|||
print_nl();</lang> |
|||
{{out}} |
|||
<pre> 32: Spc 48: 0 64: @ 80: P 96: ` 112: p |
|||
33: ! 49: 1 65: A 81: Q 97: a 113: q |
|||
34: " 50: 2 66: B 82: R 98: b 114: r |
|||
35: # 51: 3 67: C 83: S 99: c 115: s |
|||
36: $ 52: 4 68: D 84: T 100: d 116: t |
|||
37: % 53: 5 69: E 85: U 101: e 117: u |
|||
38: & 54: 6 70: F 86: V 102: f 118: v |
|||
39: ' 55: 7 71: G 87: W 103: g 119: w |
|||
40: ( 56: 8 72: H 88: X 104: h 120: x |
|||
41: ) 57: 9 73: I 89: Y 105: i 121: y |
|||
42: * 58: : 74: J 90: Z 106: j 122: z |
|||
43: + 59: ; 75: K 91: [ 107: k 123: { |
|||
44: , 60: < 76: L 92: \ 108: l 124: | |
|||
45: - 61: = 77: M 93: ] 109: m 125: } |
|||
46: . 62: > 78: N 94: ^ 110: n 126: ~ |
|||
47: / 63: ? 79: O 95: _ 111: o 127: Del</pre> |
|||
=={{header|D}}== |
=={{header|D}}== |