编码高尔夫测量师©2019

与一起使用的Hexdump xxd看起来像这样：

00000000: 666f 6f20 6261 7220 7370 616d 2065 6767  foo bar spam egg
00000010: 730a                                     s.

您的任务是将这种形式的十六进制转储转换为使用的字节数。

规则：

• 通常的漏洞被禁止。
• 这是代码高尔夫球，因此最短的有效答案（以字节为单位）将获胜。
• 您可以在文本（0a）的末尾添加或不添加换行符。这意味着，如果十六进制转储以换行符（0a）结尾，则该输入可能会将其输出减少一。
• 空输入（实际上什么都没有：空列表/字符串/等）必须输出0。
• 输入可以采用任何形式
• 输入将是有效的ASCII码，没有控制字符
• 输入必须包含整个hexdump

测试用例：

00000000: 4865 6c6c 6f2c 2077 6f72 6c64 2120 4865  Hello, world! He
00000010: 6c6c 6f2c 2077 6f72 6c64 210a            llo, world!.

返回28或27

00000000: 0a                                       .

返回1或0

00000000: 6368 616c 6c65 6e67 650a                 challenge.

返回10或9

00000000: 4865 6c6c 6f2c 2077 6f72 6c64 21         Hello, world!

返回13

返回0 （实际上什么都不是：空列表/字符串/等）

对于非标准语言，解释会很好。

视网膜0.8.2，8字节

.{51}

.

在线尝试！说明：

.{51}

删除每行的前51个字符。（每行只能包含52到67个字符，因此每行始终匹配一次。）

.

计算剩余的非换行符。

如果不需要支持空输入，则为7个字节：

.{52}

在线尝试！说明：

.{52}

删除每行的前52个字符。（每行只能包含52至67个字符，因此每行始终匹配一次。）

比剩余字符（包括换行符）的数量多1。

tcsh，12个字节

xxd -r|wc -c

在线尝试！

V（vim），7个字节

Î51x
Ø.

在线尝试！

说明：

Î       " On every line...
 51x    "   Delete the first 51 characters
Ø.      " Count the number of remaining characters on any line

十六进制转储：

00000000: ce35 3178 0dd8 2e                        .51x...

视网膜，7字节

这将计算长度为52的单行字符串的总数。可能可以执行类似于的操作%52,`.，但是我找不到解决该问题的方法。

w`.{52}

在线尝试！

APL（Dyalog扩展），18字节

完整程序。提示输入字符串列表（即字符列表）。

2÷⍨≢∊(1↓≠⊆⊢)¨49↑¨⎕

在线尝试！

⎕ 提示

49↑¨ 每个取49个字符

(…… )¨对每个应用以下默认功能：

 ⊢ 论点

 ⊆ 切成小段的字符

 ≠ 与填充字符（空格）不同

 1↓ 删除第一个“单词”

∊ ε NLIST（扁平化）

≢ 相符

2÷⍨ 除以二

果冻，5 个字节

Ẉ_51S

一个Monadic Link，接受产生整数字节计数的行列表。

在线尝试！

怎么样？

Ẉ_51S - Link: list of lists of characters, H
Ẉ     - length of each (line in H)
  51  - literal fifty-one
 _    - subtract (vectorises)
    S - sum

C（gcc），64 55字节

r;s[];f(l){while(*s=0,gets(s),l=strlen(s))r+=l-51;l=r;}

在线尝试！

由于YSC，减少了9个字节！

这是一个受Arnauld JavaScript解决方案启发的更脆弱的版本，可能由于输入过多而失败：

C（gcc），50个字节

s[];f(l){l=read(0,s,1<<31);l=l?l/68*16+l%68-51:0;}

在线尝试！

Python 3，48 46字节

lambda s:(len(s)or 51)+1-52*len(s.split('\n'))

输入作为字符串传递给函数。该函数增加输入的长度（包括换行符），然后为每行减去52。

在线尝试

Japt -x，5 个字节

输入为线阵列。

®Ê-51

尝试一下

®Ê-51     :Implicit input of array
®         :Map
 Ê        :  Length
  -51     :  Subtract 51
          :Implicit output of sum of resulting array

Perl 6、18个字节

{.join.comb-51*$_}

在线尝试！

匿名的lambda取行列表并返回字符数的总和，每行减去51

05AB1E，8 6字节

€g51-O

在线尝试！

输入为字符串列表。

€g     get lengths of each line
51-    subtract 51 from each
O      push the sum of the resulting list
       implicitly print

IBM / Lotus Notes公式语言，53字节

@Sum(@Length(@Explode(@Right(@Left(i;"  ");": ")))/2)

没有Formula的TIO，因此以下是测试用例的屏幕截图：

该公式位于计算字段中，该字段提供“返回”之后的值。

说明

这很好地说明了Formula将无需循环就将函数递归应用于列表的方式。公式位于与可编辑输入字段“ i”相同格式的计算字段中。

1. 从中间开始。@Left并@Right允许使用字符串定界符或许多字符。因此，我们:在两个空格的第一个出现位置的右侧搜索，然后在左侧搜索。由于Formula将换行视为列表分隔符，因此它将对输入中的每一行应用换行符。
2. @Explode是Formula的等效split功能，默认为空格,或;。再次将其应用于字段中的每一行，但是这次将结果合并到一个列表中。
3. @Length然后将应用于列表的每个成员。在每种情况下，我们将其返回值除以2。
4. @Sum 整个列表并输出结果。

JavaScript（ES6），34个字节

s=>(n=s.length)&&(n/68<<4)+n%68-51

在线尝试！

已评论

s =>                // s = input string
  (n = s.length) && // n = length of s; return 0 right away if n = 0 (special case)
  (n / 68 << 4) +   // otherwise compute the number of full lines and multiply it by 16
  n % 68 - 51       // add the length of the last line minus 51

红色，81 55字节

func[s][n: 0 foreach l s[n: n - 51 + length? l]max 0 n]

在线尝试！

将输入作为字符串列表。

JavaScript，33 32字节

a=>a.map(x=>a=~~a+x.length-51)|a

在线尝试！

感谢Arnauld，节省了1个字节。

Befunge-98（FBBI），16个字节

"c- cw|r- dxx"=@

在线尝试！

Stax，5 个字节

ôφß→ê

运行并调试

sh，36个字节

使用zsh的默认标志：

for l (${(f)1})((c+=$#l-52))
<<<$[c]

在线尝试！

${(f)1}$1在换行符上分割，并丢弃空行。在$[ arithmetic expansion ]对空的情况下，当循环不落卫士$c。

sh，28个字节

与-o extendedglob：

<<<${#${(F)${(f)1}#?(#c52)}}

在线尝试！

(f)在换行符上进行拆分，${ #?(#c52)}删除前52个字符，(F)在换行符上进行合并，以便按字符计数而不是按列表${# }计数来计数字符。

asm2bf，135个字节

高尔夫球版：

lbl 3
mov r2,51
lbl 1
in_ r1
dec r2
jz_ r1,4
jnz r2,1
lbl 2
in_ r1
jz_ r1,4
sub r1,10
jz_ r1,3
inc r3
jmp 2
lbl 4
out r3

评论版本：

lbl 3               ; Main loop - the kinda entry point

    mov r2, 51      ; Loop 51 times.
    lbl 1           ; Loop start.
        in_ r1      ; Read character
        dec r2      ; Decrement the loop accumulator.
        jz_ r1, 4   ; If zero was read, end.
        jnz r2, 1   ; If we still loop, loop again.

    lbl 2           ; Second loop, accumulating the result.
        in_ r1      ; Read a character.
        jz_ r1, 4   ; If character is zero, end the loop and print result.
        sub r1, 10  ; Decrement r1 by 10 for next check.
        jz_ r1, 3   ; If the character - 10 (the newline) is zero, jump to 3
        inc r3      ; Increment character read amount.
        jmp 2
lbl 4
    out r3          ; Print out the result as an ASCII character.