将ASCII表重新创建为ASCII表

26

通常，在进行代码搜寻时，我想知道某个字符的ASCII值是什么。我最喜欢的快速查找所有可打印ASCII字符的资源之一是ASCIItable.com。这有一个非常漂亮的图像，它不仅显示可打印的ASCII字符及其值，而且还显示不可打印和扩展的字符以及十六进制，八进制和HTML的值：

在此处输入图片说明

当今的挑战是将ASCII表重新创建为ASCII表而不是图像。为简化起见，我们将不使用控制字符（低于32的字符），而仅显示十进制值和字符。换句话说，您面临的挑战是编写打印或返回以下文本的完整程序或函数：

Dec  Chr   | Dec  Chr   | Dec  Chr
----------------------------------
32   Space | 64   @     | 96   `
33   !     | 65   A     | 97   a
34   "     | 66   B     | 98   b
35   #     | 67   C     | 99   c
36   $     | 68   D     | 100  d
37   %     | 69   E     | 101  e
38   &     | 70   F     | 102  f
39   '     | 71   G     | 103  g
40   (     | 72   H     | 104  h
41   )     | 73   I     | 105  i
42   *     | 74   J     | 106  j
43   +     | 75   K     | 107  k
44   ,     | 76   L     | 108  l
45   -     | 77   M     | 109  m
46   .     | 78   N     | 110  n
47   /     | 79   O     | 111  o
48   0     | 80   P     | 112  p
49   1     | 81   Q     | 113  q
50   2     | 82   R     | 114  r
51   3     | 83   S     | 115  s
52   4     | 84   T     | 116  t
53   5     | 85   U     | 117  u
54   6     | 86   V     | 118  v
55   7     | 87   W     | 119  w
56   8     | 88   X     | 120  x
57   9     | 89   Y     | 121  y
58   :     | 90   Z     | 122  z
59   ;     | 91   [     | 123  {
60   <     | 92   \     | 124  |
61   =     | 93   ]     | 125  }
62   >     | 94   ^     | 126  ~
63   ?     | 95   _     | 127  DEL

每行末尾都有空格，末尾有换行符。由于这是一个kolmogorov复杂性挑战，因此您的提交可能不会接受任何输入，也不会访问任何外部资源（例如文件或网络），并且您的目标是压缩代码以尽可能多地输出此文本。

存在标准漏洞，最短的答案以字节为单位。打高尔夫球快乐！

code-golf  string  ascii-art  kolmogorov-complexity 
— DJMcMayhem
source
3
我的墙上贴着确切的ASCII表图像...无论如何，可以返回行列表吗？
— FlipTack
2
@fliptack当然可以。为什么我不允许这样完全合理的东西？
— DJMcMayhem
10
我不会说这是一个骗子-另一个需要十六进制值，不可打印的名称，并且是另一种表格格式。这会坚持可见的ASCII格式，并且通过不要求所有不可打印的3字母代码来允许高尔夫球手代码。
— FlipTack
@FlipTack它仍然有空间和DEL
— simon
2
@gurka是的，但是另一个有每个单独的控制字符。
— FlipTack

Answers:

11

Python 2中，185个 183 175 159字节

多亏了FlipTack，节省了8个字节！

在Python中打高尔夫球还是很新的。

for a in["Dec  Chr   | "*3,"-"*39]+["".join(["%-5d%-6s| "%(l,('Space',chr(l),'DEL')[(l>32)+(l>126)]) for l in(i,32+i,64+i)])for i in range(32,64)]:print a[:-5]

使用嵌套列表推导生成表主体。

取消高尔夫：

lines =   \
  ["Dec  Chr   | "*3, "-"*39] +                    # first two lines
    ["".join(                                        # join 3 parts of each line
      ["%-5d%-6s| " % (l, ('Space',chr(l),'DEL')[(l>32)+(l>126)]) 
        for l in (i,32+i,64+i)]                      # generate 3 parts of a line
      )
      for i in range(32,64)]

for line in lines: print line[:-5]

旧的尝试，185个 183 175字节

print("Dec  Chr   | "*3)[:-5]+"\n"+"-"*34
a=lambda x:('Space',chr(x),'DEL')[(x>32)+(x>126)]
for l in range(32,64):print("%-5d%-6s| "*3%(l,a(l),l+32,a(l+32),l+64,a(l+64)))[:-5]

取消高尔夫：

print ("Dec  Chr   | "*3)[:-5] + "\n" + "-"*34
def a(x):
    return "Space" if x==32 else "DEL" if x==127 else chr(x)
for line in range(32,64):
    print ("%-5d%-6s| "*3 % (line, a(line), line+32, a(line+32), 
      line+64, a(line+64))) [:-5]
— 布苏轩
source
我在`for in（i，32 + i，64 + i）]）中看到一个空格，可以删除以节省一个字节。
— maxb
6

Befunge，176个 172字节

<v"Dec  Chr   "0
^>:#,_$1+:2`#v_" |",,
\:#->#1_55+,v>55+,"!-":>,#:
+2*,:"_"`#@_v>1+:8-#v_$1+:3%!:7g,!29+*5
*84+1%3\/3::<^,gg00:<`"c"p00+5+`"~"\`*84::p62:.:+*
  Space

| DEL

在线尝试！

— 詹姆斯·霍尔德尼斯
source
5

的JavaScript（ES6），179个 173字节

f=n=>n?(n>>6?' | ':`
`)+n+(99<n?'  ':'   ')+(126<n?'DEL':String.fromCharCode(n)+'    '+f(n>95?n-63:n+32)):`${x='Dec  Chr   '}| ${x}| ${x}
${'-'.repeat(34)}
32   Space`+f(64)

console.log(f())
展开摘要

— Arnauld
source
好答案！您可以通过`${x='Dec Chr '}| ${x}| ${x}在第2行的末尾替换为(x='Dec Chr ')+(' |'+x)*2+`
— Luke
@L.Serné我不知道任何会与*运算符重复字符串的ECMAScript版本。还是我以某种方式误解了您的建议？
— Arnauld
糟糕，我的糟糕。这就是尝试高尔夫python解决方案然后使用javascript所获得的。
— 路加福音
5

V，98，96，94个字节

i32 | 64 | 9631ñÙl.l.ñÍä«/&   &    
ÎéiD@"
bsDELF 27kdH5lRSpaceÄÒ-Ä3RDec  Chr³ | Î35|D

在线尝试！

只是勉强塞进一百下。我要看看我能否击败Pyth，但我不会做出任何承诺。

这是一个十六进制转储：

00000000: 6933 3220 7c20 3634 207c 2039 361b 3331  i32 | 64 | 96.31
00000010: f1d9 016c 2e6c 2ef1 cde4 ab2f 2620 2020  ...l.l...../&   
00000020: 1616 2620 2020 200a cee9 6944 4022 0a62  ..&    ...iD@".b
00000030: 7344 454c 1b46 2016 3237 6b64 4835 6c52  sDEL.F .27kdH5lR
00000040: 5370 6163 651b c4d2 2dc4 3352 4465 6320  Space...-.3RDec 
00000050: 2043 6872 b320 7c20 1bce 3335 7c44        Chr. | ..35|D

这是它的工作方式：

i32 | 64 | 96<esc>      " Insert some starting text
31ñ          ñ          " 31 times:
   Ù                    "   Duplicate this line
    <C-a>               "   Increment the first number on this line
         l.             "   Increment the next number
           l.           "   Increment the next number

这是有趣的地方。首先，让我解释一个vim技巧。在插入模式下，某些字符会被插入（所有可打印的ASCII字符，上面大多数未映射的字符0x7f，以及其他几个），但是其他字符也会产生副作用。例如，0x1b（<esc>）将退出普通模式。0x01（<C-a>）将重新插入最后插入的文本，等等。有时，我们想按字面意义插入这些字符。因此，要插入文字转义字符，必须输入<C-v><esc>。这适用于所有具有副作用的字符。因此，从本质上讲，<C-v>等价于带有字符串文字的语言中的反斜杠，允许您对字符串中的某些字符进行转义。

<C-v>插入模式下的另一个有用技巧是，它可以用于按代码点插入字符，可以使用十进制，十六进制，八进制或十六进制Unicode。由于我们已经有了对应于某些ASCII值的数字，因此我们只需要<C-v>在这些字符前放置a ，然后将相应的文本作为vim击键来运行。这可以通过regex命令和“每行执行'x'”命令来实现。因此，我们：

Í                       " Substitute globally:
 ä«                     "   One or more digits
   /                    " With:
    &                   "   The matched number + some spaces
        <C-v><C-v>&     "   A ctrl-v character, then the matched number again
                        "   Since ctrl-v is like a backslash, we need two to enter a literal ctrl-v character
Î                       " On every line:
 éi                     "   Insert an 'i'
   D                    "   Delete this line
    @"                  "   Run it as vim keystrokes

此时，缓冲区看起来像这样

32         | 64   @     | 96   `    
33   !     | 65   A     | 97   a    
34   "     | 66   B     | 98   b    
35   #     | 67   C     | 99   c    
36   $     | 68   D     | 100   d    
37   %     | 69   E     | 101   e    
38   &     | 70   F     | 102   f    
39   '     | 71   G     | 103   g    
40   (     | 72   H     | 104   h    
41   )     | 73   I     | 105   i    
42   *     | 74   J     | 106   j    
43   +     | 75   K     | 107   k    
44   ,     | 76   L     | 108   l    
45   -     | 77   M     | 109   m    
46   .     | 78   N     | 110   n    
47   /     | 79   O     | 111   o    
48   0     | 80   P     | 112   p    
49   1     | 81   Q     | 113   q    
50   2     | 82   R     | 114   r    
51   3     | 83   S     | 115   s    
52   4     | 84   T     | 116   t    
53   5     | 85   U     | 117   u    
54   6     | 86   V     | 118   v    
55   7     | 87   W     | 119   w    
56   8     | 88   X     | 120   x    
57   9     | 89   Y     | 121   y    
58   :     | 90   Z     | 122   z    
59   ;     | 91   [     | 123   {    
60   <     | 92   \     | 124   |    
61   =     | 93   ]     | 125   }    
62   >     | 94   ^     | 126   ~    
63   ?     | 95   _     | 127

现在，我们只需要进行一些常规清理即可，这些清理占了此答案中的大多数字节

bsDEL<esc>              " Change the literal 0x7f character to "DEL"
          F <C-v>27kd   " Remove a space from the lines that have too many
H5l                     " Move to the first space character
   RSpace<esc>          " And replace it with "Space"
Ä                       " Duplicate this line
 Ò-                     " And replace it with '-'s
   Ä                    " Duplicate this line
    3R                  " And replace it with three copies of the following string:
      Dec  Chr³ | <esc> " 'Dec  Chr   | '

Î35|D                   " Remove all but the first 35 characters of each line
— DJMcMayhem
source
5

F＃，222个字节

let c,p=String.concat" | ",printfn"%s"
Seq.replicate 3"Dec  Chr  "|>c|>p
p(String.replicate 34"-")
for i=32 to 63 do[for j in[i;i+32;i+64]->sprintf"%-5d%-5s"j (match j with 32->"Space"|127->"DEL"|_->string(char j))]|>c|>p

在线尝试！

— 阿西克
source
我可以要求这个版本吗？我真的是F＃的新手，我很想正确地了解您是如何做到的！
— Ciaran_McCarthy
1
第一行将两个函数别名为单字符名称。现在，如果您这样做，["ab"; "cd"] |> c |> p它将与“ |”连接 字符并进行打印，例如“ ab | cd”，这是打印表格的基本思路。其余的操作非常简单，只要有可能就避免使用空格。
— 阿西克
4

直流，167字节

[[Space]nq]sp[[DEL]nq]sq[[ ]n]sc[Dec  Chr]dsen[   | ]dsfnlenlfnlen10P34[[-]n1-d0<a]dsax10P0[[32+dndZ2=c[  ]ndd32=pd127=qP[    ]n]dswx[ | ]nlwx[ | ]nlwx10P95-d32>b]dsbx

在线尝试！

怎么运行的：

[[Space]nq]sp     # p is a macro that prints "Space" and then quits from the call one level up
[[DEL]nq]sq       # q is a macro that prints "DEL" and then quits from the call one level up
[[ ]n]sc          # c is a macro that prints a space
[Dec  Chr]dsen    # Save the string "Dec  Chr" in register e, and print it.
[   | ]dsfn       # Save the string "   | " in register f, and print it.
len               # Print "Dec  Chr" again.
lfn               # Print "   | " again.
len               # Print "Dec  Chr" again.
10P               # Print a newline.
34                # Push 34 on the stack.

[[-]n1-d0<a]dsa   # a is a macro that repeatedly prints "-" and decrements the top of the stack, while the top of the stack is positive.

x10P              # Execute macro a, followed by a newline. (This prints the line of hyphens.)

0                 # Push 0 on the stack.

[                 # Starting a large macro (which will be stored in register b) for printing the table row by row.

[32+dndZ2=c[  ]ndd32=pd127=qP[    ]n]dsw

                  # w is a macro which:
                        (1) adds 32 to the top of the stack;
                        (2) prints it as a number;
                        (3) uses Z to compute the number of characters the number required to print that number;
                        (4) if it required 2 characters to print the number, calls the macro c to print an extra space
                        (5) prints the string "Space" (for ASCII code 32) or the string "DEL" (for ASCII code 127) or the appropriate character, followed by the right number of spaces

x                 # Execute macro w to print an entry in column 1.
[ | ]n            # Print a column divider.
lwx               # Execute macro w to print an entry in column 2 (ASCII code 32 higher than the previous entry).
[ | ]n            # Print a column divider.
lwx               # Execute macro w to print an entry in column 3 (ASCII code 32 higher than the previous entry).

10P               # Print a newline.
95-               # Subtract 95 to adjust to go to the beginning of the next line.

d32>b             # If the top of stack is <= 32, execute macro b again, effectively looping to print all the rows of the table.

]dsb              # End the definition of the large macro, and store it in register b.

x                 # Execute the macro that's in b (with 0 at the top of the stack initially).
— 米切尔·史派克
source
4

Perl，120个字节

$,="| ";say+("Dec  Chr   ")x3;say"-"x32;say map{sprintf"%-5s%-6s",$_,$_-32?$_-127?chr:DEL:Space}$_,$_+32,$_+64for 32..63

带-E标志运行：

perl -E '$,="| ";say+("Dec  Chr   ")x3;say"-"x32;say map{sprintf"%-5s%-6s",$_,$_-32?$_-127?chr:DEL:Space}$_,$_+32,$_+64for 32..63'

-2个字节感谢@GB。

— 达达
source
如果我对Perl有所了解，也许可以使用“％-5s”而不是“％-3s”削减2个空格（顺便说一句，这就是我在ruby中所做的事情）
— GB
3

C，179字节

i;f(){for(;i++<37;)printf(i<4?"Dec  Chr%s":"-",i<3?"   | ":"\n");printf("\n32   Space | ");for(i=64;i<127;i+=i>95?-63:32)printf("%-5d%-6c%s",i,i,i>95?"\n":"| ");puts("127  DEL");}

在线尝试！

半脱胶

i;
f() {
  for(;i++<37;) printf(i<4?"Dec  Chr%s":"-",i<3?"   | ":"\n");

  printf("\n32   Space | ");
  for(i=64;i<127;i+=i>95?-63:32) printf("%-5d%-6c%s",i,i,i>95?"\n":"| ");
  puts("127  DEL");
}
— 西蒙
source
3

Ruby，124个字节

 puts [["Dec  Chr   "]*3*"| ",?-*34,(0..31).map{|d|(1..3).map{|x|"%-5s%-6s"%[y=x*32+d,y<33?"Space":y>126?"DEL":y.chr]}*"| "}]
— 国标
source
3

V，151 150 148 136 135 130 129 125字节

@ nmjcman101节省了12个字节，<C-v>g<C-a>用于代替数字line('.')

@DJMcMayhem节省了2个字节，因为@DJMcMayhem使用ÇÓ/d和通过使用dê来删除多余的空格并重新排列东西来删除前导空格的行

该答案与@ nmjcman101的V 答案（使用:set ve=all）竞争。但是现在，我找到了一种删除这些A ^[s 的方法，并保存了一些字节，我们的字节数为偶数 

iSpace 
¬!~Ó./&ò
iDELí^/31   
HlgGo| 63ÙkGld/Sp
$p/`
G$d/@
$p/64
G$d/S
$pÇÓ/d
/d
hdê/32
O34é-O!| !| !Ó!/Dec  Chr

在线尝试！

十六进制转储：

00000000: 6953 7061 6365 200a 1bac 217e d32e 2f26  iSpace ...!~../&
00000010: f20a 6944 454c 1bed 5e2f 3331 2020 200a  ..iDEL..^/31   .
00000020: 1648 6c67 0147 6f7c 201b 3633 d96b 1647  .Hlg.Go| .63.k.G
00000030: 6c64 2f53 700a 2470 2f60 0a16 4724 642f  ld/Sp.$p/`..G$d/
00000040: 400a 2470 2f36 340a 1647 2464 2f53 0a24  @.$p/64..G$d/S.$
00000050: 70c7 d32f 640a 2f64 0a68 64ea 2f33 320a  p../d./d.hd./32.
00000060: 4f1b 3334 e92d 4f21 7c20 217c 2021 1bd3  O.34.-O!| !| !..
00000070: 212f 4465 6320 2043 6872 2020 20         !/Dec  Chr

说明（不完整和过时）

这里的策略是使用行号生成ASCII码点。

注意：^[是0x1b，^V是C-v

首先，我们生成所有字符。

iSpace             " insert Space
^[¬!~              " insert every character between ! and ~

当前缓冲区看起来像

Space
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~

现在我们在这些字符之间插入换行符

     Ó./&ò         " insert a newline before every character (:s/./&\r/g)
— 克里蒂希·石印
source
这32 SPACE ... 127 DEL是您的部分代码的替代品：在线尝试！ 它使用整洁的东西来突出显示一堆数字，然后g^A使其递增序列（在Vim 8中是新序列？）
— nmjcman101
@ nmjmcman101是的，它是在7.4.something中添加的，但在8中已正式添加。甚至更好的方法是使用norm命令在线尝试！
— DJMcMayhem
无论哪种方式，一旦获得就可以执行操作:set ve=all，然后光标将移至没有文本的位置，使您可以更轻松地插入管道并将其复制/粘贴到所需的位置而无需A <esc>四处
— 散布
@ nmjcman101 g^A谢谢，它为我节省了12个字节:)
— Kritixi Lithos
@DJMcMayhem出于某种原因，使用范数然后递增数字不起作用
— Kritixi Lithos
3

V，130个 120 99字节

低于100俱乐部。我不再相信这:se ve=all是最好的方法。这是一个额外的... 11个字节，仅用于写入|！但这就是我所拥有的。

我几乎在与@KritixiLuthos答案竞争的情况下发布了此内容，:se ve=all以避免一些错误A <esc>。我不认为这两种方法都更好，因此希望这可以激发双方的高尔夫运动，并看看哪种方法能带来成功。

我也一半期待@DJMcMayhem踢我们的裤子

iSpace
¬!~Ó./&ò
iDELí^/31   
Hlg:se ve=all
12|êr|2ñ031j$x)PñHd)ÄÒ-Ä3RDec  Chr³ | /d
hdêÎ35|D

在线尝试！

Hexdump很好奇（如果有兴趣，我将其更改为vim样式的隐藏字符块）

00000000: 6953 7061 6365 0a1b ac21 7ed3 2e2f 26f2  iSpace...!~../&.
00000010: 0a69 4445 4c1b ed5e 2f33 3120 2020 0a16  .iDEL..^/31   ..
00000020: 486c 6701 3a73 6520 7665 3d61 6c6c 0a31  Hlg.:se ve=all.1
00000030: 327c 16ea 727c 32f1 3016 3331 6a24 7829  2|..r|2.0.31j$x)
00000040: 50f1 4864 29c4 d22d c433 5244 6563 2020  P.Hd)..-.3RDec  
00000050: 4368 72b3 207c 201b 2f64 0a68 64ea ce33  Chr. | ./d.hd..3
00000060: 357c 44                                  5|D
— nmjcman101
source
1
全局命令可以缩短一个相当的时间。首先，dd如果只是这样做，则隐式表示d。您还可以执行<M-s>与\s正则表达式始终等效的操作。因此，您可以将其缩短为：ç^ó*/d。但是，如果您将全局命令切换为反命令，则:g!可以搜索与非空白字符不匹配的每一行。ÇÓ/d等效于:g!/\S/normal dd
— DJMcMayhem
3

AWK，200字节

BEGIN{b="-----------";a="Dec  Chr   ";print a"|",a"|",a"\n-"b b b;for(a=31;a++<63;){printf"%-5d%-6s| %-5d%-6c| %-5d%-5s\n",a,a<33?"Space":sprintf("%c",a),a+32,a+32,a+64,a<63?sprintf("%c",a+64):"DEL"}}

格式：

BEGIN {
  b="-----------"
  a="Dec  Chr   "
  print a"|",a"|",a"\n-"b b b
  for(a=31;a++<63;) {
    printf "%-5d%-6s| %-5d%-6c| %-5d%-5s\n",
      a,    a<33 ? "Space" : sprintf("%c", a),
      a+32, a+32,
      a+64, a<63 ? sprintf("%c", a+64) : "DEL"
  }
}

在线尝试！

— 史蒂夫
source
2

C 188字节

f(){i=31;printf("Dec Chr | Dec Chr | Dec Chr");printf("\n--------------------------");for(;i<63;i++)printf("\n%d%4c  | %d%4c  | %d%4c",(i+1),(i+1),(i+33),(i+33),(i+65),(i+65));puts("DEL");

通常看起来像这样：

f()
{
    int  i=31;
    printf("Dec Chr | Dec Chr | Dec Chr");
    printf("\n--------------------------"); 
    for(;i<63;i++)  
      printf("\n%d%4c  | %d%4c  | %d%4c", (i+1),(i+1),(i+33),(i+33),  (i+65),(i+65));
    puts("DEL");
}
— 亚伯汤姆
source
2

C（249字节）

为清楚起见添加了换行符。

#define L(s,e)for(i=s;i<e;++i)
#define P printf
main(i){L(0,3)P("Dec  Chr  %s",i<2?" | ":"\n");
L(0,34)P("-");P("\n");L(32,64){P("%-5d", i);
i==32?P("Space"):P("%-5c",i);
P(" | %-5d%-5c | %-5d ",i+32,i+32,i+64);
i==63?P("DEL"):P("%-5c",i+64);P("\n");}}
— 精神病
source
你绝对可以节省通过使一些字节P来printf(，如下所示：repl.it/JBRD
— 扎卡里
并删除第四行上的空间。
— 扎卡里
2

Java中，434个 422 321字节

class A{public static void main(String[]a){
    int k=1,r,s=32;
    for(;k<4;k++)
        o("Dec   Chr  ",k);
    for(;k<37;k++)                                                                              
        o("-",k==36?3:4);
    for(k=r=s;!(k==64&&r==-63);r=k>95?-63:s,k+=r)
        o(k+"   "+((k>99)?"":" ")+(k==s?"Space":k==127?"DEL  ":((char)k+"    ")),k/s);
    }
    static void o(String s,int j){
        System.out.print(s+(j==4?"":j==3?"\n":"|"));
    }
}

Java可能不是最好的语言，因为类和main方法的开销很大。

您可以使用静态声明消除main方法，从而进一步减少字节数：

class A{
    static{...}

但这会导致错误（否则会成功运行）：

Exception in thread "main" java.lang.NoSuchMethodException: A.main([Ljava.lang.String;)
    at java.lang.Class.getMethod(Class.java:1786)
    ...

字节数int包括换行符或缩进。

— rt
source
我不认为你需要后面输入一个空格void main(){，也不之间while(s.length()<5)和s+=" "。（除非您没有将其计入字节数）。你可以通过改变节省几个字节d="Dec",c="Chr"来d=p("Dec"),c=p("Chr")，使改变你的来电p(d)，并p(c)以d和c。
— 扎卡里
434正在删除所有不必要的空格。您的建议将其降低到425。谢谢！
— xirt
可能要到W / O不必要的空格到应答增加约434存在一个音符
— 扎卡里
做完了 注意：自此以来，程序已发生重大变化（进一步减少），因此上述注释可能不再适用
— xirt
2

Tcl，233字节

lassign {"Dec  Chr" "   | " 31} h S i
set H $h$S$h$S$h\n[string repe - 34]
proc p x {format %-5d%c $x $x}
time {set H "$H
[p [incr i]]  $S[p [expr $i+32]]  $S[p [expr $i+64]]"} 32
puts [regsub {\ {8}} [regsub \177 $H DEL] "   Space"]

在线尝试！

— 塞尔吉奥
source
我跑了这一点，我得到32 例如（A“”来代替Space），和33!（没有空间在中间 33和!）。
— NoOneIsHere
@SeeOneRhino：您显然没有注意该代码。在粘贴到此处之后，我修改了链接的代码，试图进行更多的高尔夫运动，但是我还没有成功。我现在刚刚转到页面并评论了我的失败尝试并从这里重新注释了代码;如果您现在去那里，您将看到完全相同的代码，并且可以看到正确打印的代码！
— sergiol
抱歉，没有看到您对链接的修改。我认为代码与您在此处发布的代码相同。
— NoOneIsHere
没问题，这是我的错
— sergiol
@SeeOneRhino：我做到了！我超越了自己！
— sergiol
2

R，235228221212字节

y=apply(rbind(rep("Dec  Chr  ",3),1,matrix(sapply(1:96,function(i)paste(i+31,rep(" ",i<69),"if"(i<2,"Space","if"(i>95,"DEL",intToUtf8(c(i+31,rep(32,4))))))),nrow=32)),1,paste,collapse=" | ")
y[2]=strrep("-",34)
y

在线尝试！

我想真的很难下200个字节来获得，但是这些paste并collapse弄死我。返回行列表。

— 杰西
source
1

JavaScript（ES6），258个字节

a="Dec  Chr   | ".repeat(2)+"Dec  Chr\n"+"-".repeat(34);for(b=32;64>b;b++)a+="\n"+b+"   "+(32==b?"Space  ":String.fromCharCode(b)+"      ")+"| "+(b+32)+"   "+String.fromCharCode(b+32)+"     | "+(b+64)+(35<b?"  ":"   ")+(63==b?"DEL":String.fromCharCode(b+64))

console.log(a)
— 朱利安·拉希涅（Julian Lachniet）
source
1

PowerShell，159字节

,'Dec  Chr'*3-join'   | '
'-'*34
32..63|%{($_,($_+32),($_+64)|%{"$_".PadRight(5)+"$(([char]$_,('Space','DEL')[$_-ne32])[$_-in32,127])".padRight(5)})-join' | '}

在线尝试！

前两行只是创建文字字符串，并将其保留在管道中。首先使用逗号运算符,创建一个数组，然后-join将该数组一起创建标题。第二个只是直字符串乘法。

第三行遍历32..63，并且每个迭代发送三个值$_，($_+32)和($_+64)为内部循环。内部循环PadRight在值上做一个（添加适当的空格以填充5字符）。然后将其+与嵌套的伪三进制结果串联在一起( )[ ]。伪三元选择所述char那个号码的表示，否则，Space或者DEL如果它是适当的值。同样，我们PadRight使用适当的字符。

这三个字符串（例如，32 Space，64 @，96 `）被封装在括号和-join与所述列标记为单个串编 然后，将这32个字符串中的每个字符串留在管道上。在执行结束时，隐式Write-Output在管道上的元素之间插入换行符，因此我们免费获得该换行符。

— AdmBorkBork
source
1

Perl， 165 155字节

$s='Dec  Chr   ';$_=join"\n",("$s| $s| $s","-"x34,map{join"| ",map{sprintf'%1$-5d%1$-6c',$_}($_,$_+32,$_+64)}32..63);s/ {8}/   Space/;s/\x7f.*/DEL\n/;print
— w
source
1

Python 2，1564 218字节

我第一次打高尔夫球，很抱歉犯了明显的错误

print("Dec  Chr   | "*3)[:-2]+"\n"+"-"*34+"\n32   Space | 64   @     | 96   `"
for n in range(33,63):print"| ".join([str(n+x).ljust(5)+chr(n+x).ljust(6)for x in [0,32,64]])
print"63   ?     | 95   _     | 127  DEL"

在线尝试！

如果您想知道，第一个版本是base64编码的字符串。

— sagiksp
source
@FlipTack将其更改为实际解决方案
— sagiksp
处不需要的空格ljust(6) for。
— Yytsi'1
另一个在x in [。而IIRC里面的方括号join可以删除。
— Yytsi'1
1

05AB1E，82 76字节

žQSDÇƵQ¸«.Bs𔇲”:"DEL"¸«.B)øvyð2×ý})3äøvy… | ©ý}®”†…  Chr  ÿ”3ר¨'-34×.Á.Á»

在线尝试！

还是打高尔夫球，这可以改善很多。

žQSDÇƵQ¸«.Bs𔇲”:"DEL"¸«.B)ø 推送带有文本等效项的填充数字：

[['32 ', 'Space'], ['33 ', '!    '], ['34 ', '"    '], ['35 ', '#    '], ['36 ', '$    '], ['37 ', '%    '], ['38 ', '&    '], ['39 ', "'    "], ['40 ', '(    '], ['41 ', ')    '], ['42 ', '*    '], ['43 ', '+    '], ['44 ', ',    '], ['45 ', '-    '], ['46 ', '.    '], ['47 ', '/    '], ['48 ', '0    '], ['49 ', '1    '], ['50 ', '2    '], ['51 ', '3    '], ['52 ', '4    '], ['53 ', '5    '], ['54 ', '6    '], ['55 ', '7    '], ['56 ', '8    '], ['57 ', '9    '], ['58 ', ':    '], ['59 ', ';    '], ['60 ', '<    '], ['61 ', '=    '], ['62 ', '>    '], ['63 ', '?    '], ['64 ', '@    '], ['65 ', 'A    '], ['66 ', 'B    '], ['67 ', 'C    '], ['68 ', 'D    '], ['69 ', 'E    '], ['70 ', 'F    '], ['71 ', 'G    '], ['72 ', 'H    '], ['73 ', 'I    '], ['74 ', 'J    '], ['75 ', 'K    '], ['76 ', 'L    '], ['77 ', 'M    '], ['78 ', 'N    '], ['79 ', 'O    '], ['80 ', 'P    '], ['81 ', 'Q    '], ['82 ', 'R    '], ['83 ', 'S    '], ['84 ', 'T    '], ['85 ', 'U    '], ['86 ', 'V    '], ['87 ', 'W    '], ['88 ', 'X    '], ['89 ', 'Y    '], ['90 ', 'Z    '], ['91 ', '[    '], ['92 ', '\\    '], ['93 ', ']    '], ['94 ', '^    '], ['95 ', '_    '], ['96 ', '`    '], ['97 ', 'a    '], ['98 ', 'b    '], ['99 ', 'c    '], ['100', 'd    '], ['101', 'e    '], ['102', 'f    '], ['103', 'g    '], ['104', 'h    '], ['105', 'i    '], ['106', 'j    '], ['107', 'k    '], ['108', 'l    '], ['109', 'm    '], ['110', 'n    '], ['111', 'o    '], ['112', 'p    '], ['113', 'q    '], ['114', 'r    '], ['115', 's    '], ['116', 't    '], ['117', 'u    '], ['118', 'v    '], ['119', 'w    '], ['120', 'x    '], ['121', 'y    '], ['122', 'z    '], ['123', '{    '], ['124', '|    '], ['125', '}    '], ['126', '~    '], ['127', 'DEL  ']]

vyð2×ý})3äøvy… | ©ý} 将'em'加入表中：

['32   Space | 64   @     | 96   `    ', '33   !     | 65   A     | 97   a    ', '34   "     | 66   B     | 98   b    ', '35   #     | 67   C     | 99   c    ', '36   $     | 68   D     | 100  d    ', '37   %     | 69   E     | 101  e    ', '38   &     | 70   F     | 102  f    ', "39   '     | 71   G     | 103  g    ", '40   (     | 72   H     | 104  h    ', '41   )     | 73   I     | 105  i    ', '42   *     | 74   J     | 106  j    ', '43   +     | 75   K     | 107  k    ', '44   ,     | 76   L     | 108  l    ', '45   -     | 77   M     | 109  m    ', '46   .     | 78   N     | 110  n    ', '47   /     | 79   O     | 111  o    ', '48   0     | 80   P     | 112  p    ', '49   1     | 81   Q     | 113  q    ', '50   2     | 82   R     | 114  r    ', '51   3     | 83   S     | 115  s    ', '52   4     | 84   T     | 116  t    ', '53   5     | 85   U     | 117  u    ', '54   6     | 86   V     | 118  v    ', '55   7     | 87   W     | 119  w    ', '56   8     | 88   X     | 120  x    ', '57   9     | 89   Y     | 121  y    ', '58   :     | 90   Z     | 122  z    ', '59   ;     | 91   [     | 123  {    ', '60   <     | 92   \\     | 124  |    ', '61   =     | 93   ]     | 125  }    ', '62   >     | 94   ^     | 126  ~    ', '63   ?     | 95   _     | 127  DEL  ']

®”†… Chr ÿ”3ר¨'-34×.Á.Á» 负责表的标题部分：

Dec  Chr   | Dec  Chr   | Dec  Chr   
----------------------------------
32   Space | 64   @     | 96   `    
33   !     | 65   A     | 97   a    
34   "     | 66   B     | 98   b    
35   #     | 67   C     | 99   c    
36   $     | 68   D     | 100  d    
37   %     | 69   E     | 101  e    
38   &     | 70   F     | 102  f    
39   '     | 71   G     | 103  g    
40   (     | 72   H     | 104  h    
41   )     | 73   I     | 105  i    
42   *     | 74   J     | 106  j    
43   +     | 75   K     | 107  k    
44   ,     | 76   L     | 108  l    
45   -     | 77   M     | 109  m    
46   .     | 78   N     | 110  n    
47   /     | 79   O     | 111  o    
48   0     | 80   P     | 112  p    
49   1     | 81   Q     | 113  q    
50   2     | 82   R     | 114  r    
51   3     | 83   S     | 115  s    
52   4     | 84   T     | 116  t    
53   5     | 85   U     | 117  u    
54   6     | 86   V     | 118  v    
55   7     | 87   W     | 119  w    
56   8     | 88   X     | 120  x    
57   9     | 89   Y     | 121  y    
58   :     | 90   Z     | 122  z    
59   ;     | 91   [     | 123  {    
60   <     | 92   \     | 124  |    
61   =     | 93   ]     | 125  }    
62   >     | 94   ^     | 126  ~    
63   ?     | 95   _     | 127  DEL
— 魔术章鱼缸
source
1

PHP，163个149 147字节

<?=($p=str_pad)(D,31,"ec Chr   | D"),$p("
",32,"-");whhile($i<96)printf("%s%-4d%-6s",$i%3?"| ":"
",$o=$i%3*32+32+$i/3,$i++?$i<96?chr($o):DEL:Space);

分解

                        # print header
<?=($p=str_pad)(D,31,"ec Chr   | D"),$p("\n",32,"-");
while($i<96)            # loop $i from 0 to 96
    printf("%s%-4d%-6s",    # print formatted:
                            # string, 4 space decimal leftbound, 6 space string leftbound
        $i%3?"| ":"\n",                 # linebreak for 1st column, pipe+space else
        $o=$i%3*32+32+$i/3,             # ($i mapped to) ASCII value
        $i++?$i<96?chr($o):DEL:Space    # character
    );

%-N值得使用的数字将保存右边界数字和字符。

— 提图斯
source
在我看来，以相同的字节数看起来更好。在线尝试！
— 约尔格Hülsermann
0

T-SQL，242个字节

DECLARE @ INT=32PRINT'Dec  Chr   | Dec  Chr   | Dec  Chr
'+REPLICATE('-',34)L:PRINT CONCAT(@,'   ',IIF(@=32,'Space | ',CHAR(@)+'     | '),@+32,'   ',CHAR(@+32),'     | ',@+64,SPACE(5-LEN(@+64)),IIF(@=63,'DEL',CHAR(@+64)))SET @+=1IF @<64GOTO L

格式：

DECLARE @ INT=32
PRINT'Dec  Chr   | Dec  Chr   | Dec  Chr
' + REPLICATE('-',34)
L:
    PRINT CONCAT(@,'   ',IIF(@=32,'Space | ',CHAR(@)+'     | ')
                ,@+32,'   ',CHAR(@+32),'     | ',
                 @+64,SPACE(5-LEN(@+64)),IIF(@=63,'DEL',CHAR(@+64)))
    SET @+=1
IF @<64 GOTO L

尝试了一些变体，包括用其他变量替换各种通用字符串，但这是我发现的最短版本。

— 布拉德
source
0

Python 3，154个字节

for l in[['Dec  Chr  ']*3,['-'*35]]+[[f"{x:<5}{['Space',chr(x),'DEL'][(x>32)+(x>126)]:5}"for x in(c,c+32,c+64)]for c in range(32,64)]:print(' | '.join(l))

在线尝试！

— ovs
source
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.