Code Golf Measurer©2019

使用されるHexdumpsはxxd次のようになります。

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

あなたの仕事は、この形式の16進ダンプを使用バイト数に変換することです。

ルール：

• 通常の抜け穴は禁止されています。
• これはcode-golfであるため、バイト単位の最短の有効な回答が優先されます。
• テキストの最後に改行を含める場合も含めない場合もあります（0a）。これは、hexdumpが改行（0a）で終わる場合、その入力の出力が1つ減る可能性があることを意味します。
• 空の入力（文字通り何もない：空のリスト/文字列など）は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を返します（これは文字通り何もありません：空のリスト/文字列など）

説明は、非標準言語に適しています。

Retina 0.8.2、8バイト

.{51}

.

オンラインでお試しください！説明：

.{51}

各行の最初の51文字を削除します。（行には52〜67文字しか使用できないため、これは常に行ごとに1回一致します。）

.

残りの非改行文字をカウントします。

空の入力をサポートする必要がない場合は7バイト：

.{52}

オンラインでお試しください！説明：

.{52}

各行の最初の52文字を削除します。（行には52〜67文字しか使用できないため、これは常に行ごとに1回一致します。）

残りの文字数（改行を含む）よりも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

Hexdump：

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

網膜、7バイト

これは、長さ52の単一行ストリングの総数をカウントします。に類似したことを行うことは可能かもしれませんが%52,`.、それを修正する方法を見つけることができませんでした。

w`.{52}

オンラインでお試しください！

APL（Dyalog Extended）、18バイト

完全なプログラム。文字列のリスト（つまり、文字のリスト）のプロンプト。

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

オンラインでお試しください！

⎕ プロンプト

49↑¨ それぞれから最初の49文字を取ります

(… )¨次の暗黙関数をそれぞれに適用します。

 ⊢ 引数

 ⊆ ある文字の実行に切り刻む

 ≠ パディング文字（スペース）とは異なります

 1↓ 最初の「単語」をドロップします

∊ ϵ nlist（平坦化）

≢ 集計

2÷⍨ 2で割る

ゼリー、5 バイト

Ẉ_51S

整数バイトカウントを生成する行のリストを受け入れる単項リンク。

オンラインでお試しください！

どうやって？

Ẉ_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*$_}

オンラインでお試しください！

行のリストを取得し、各行の51を減算して、文字数の合計を返す匿名Whateverラムダ

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

MathGolf、7 6 バイト（非競合）

m£Ex-Σ

現在、MathGolfにはスペースを含む文字列入力のバグがあるため、競合していません（現時点では）。それらは自動的にリストに変換されます（スペースで分割されます）。TIOでは、すべてのスペースをa Bに置き換えて、意図したとおりに機能することを示しました。

文字列のリストとして入力します。

512バイトで生成するメソッドを見つけて-1バイト（3バイトでそれを行う10以上の方法の履歴を参照してください。）

オンラインでお試しください。

説明：

m    # Map each string in the (implicit) input-list
 £   #  Pop the string and get the length
E    # Push 15
 x   # Reverse, but keep it an integer
     # (NOTE: simply `51` would be interpret as two values on the stack: 5 and 1)
  -  # Subtract each of the lengths by this
Σ    # Take the sum of the list
     # (after which the entire stack joined together is output implicitly as result)

IBM / Lotus Notes式言語、53バイト

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

FormulaにはTIOがないため、テストケースのスクリーンショットを以下に示します。

式は計算フィールドにあり、「Returns」の後に値を提供します。

説明

これは、Formulaがループを必要とせずにリストに関数を再帰的に適用する方法の良いデモンストレーションです。式は、編集可能な入力フィールド「i」と同じフォームの計算フィールドにあります。

1. 途中から始めます。@Leftまた@Right、文字列の区切り文字または複数の文字を使用できます。したがって:、最初に出現する2つのスペースの右側を検索し、次に左側を検索します。Formulaは改行をリスト区切り文字と見なしているため、これを入力の各行に適用します。
2. @ExplodeFormulaと同等の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"=@

オンラインでお試しください！

スタックス、5 バイト

ôφß→ê

実行してデバッグする

Zsh、36バイト

zshのデフォルトフラグの場合：

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

オンラインでお試しください！

${(f)1}$1改行で分割し、空の行を破棄します。$[ arithmetic expansion ]ループが設定したことがない空の場合、デバイスを保護$c。

Zsh、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.