ตัววัดสนามกอล์ฟรหัส© 2019

Hexdumps ใช้กับxxdดูสิ่งนี้:

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

งานของคุณคือการแปลง hexdump ในรูปแบบนี้เป็นจำนวนไบต์ที่ใช้

กฎ:

• ห้ามช่องโหว่ปกติ
• นี่คือcode-golfดังนั้นคำตอบที่ถูกต้องสั้นที่สุดในหน่วยไบต์ชนะ
• คุณสามารถหรือไม่รวมบรรทัดใหม่ในตอนท้ายของข้อความ ( 0a) ซึ่งหมายความว่าหาก hexdump สิ้นสุดใน newline ( 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

hexdump:

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

เรติน่า 7 ไบต์

นี่จะนับจำนวนทั้งหมดของสตริงความยาวบรรทัดเดียว 52 ความเป็นไปได้ที่จะทำสิ่งที่คล้ายกัน%52,`.แต่ฉันไม่สามารถหาวิธีแก้ไขได้

w`.{52}

ลองออนไลน์!

APL (Dyalog Extended) , 18 ไบต์

โปรแกรมเต็มรูปแบบ แจ้งให้สำหรับรายการของสตริง (เช่นรายการของตัวละคร)

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

ลองออนไลน์!

⎕ รวดเร็ว

49↑¨ ใช้อักขระ 49 ตัวแรกจากแต่ละอักขระ

(... )¨ใช้ฟังก์ชัน tacit ต่อไปนี้กับแต่ละรายการ:

 ⊢ อาร์กิวเมนต์

 ⊆ สับเข้าไปในการทำงานของตัวละครที่มี

 ≠ แตกต่างจากอักขระ padding (ช่องว่าง)

 1↓ วาง "คำแรก"

∊ ϵ รายการ (แผ่)

≢ นับ

2÷⍨ หารด้วยสอง

เยลลี่ 5 ไบต์

Ẉ_51S

ลิงก์ monadic ยอมรับรายการของบรรทัดที่ให้ผลนับจำนวนเต็ม

ลองออนไลน์!

อย่างไร?

Ẉ_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;}

ลองออนไลน์!

9 ไบต์ถูกลบล้างขอบคุณ YSC!

นี่เป็นรุ่นที่บอบบางกว่าซึ่งได้แรงบันดาลใจจากโซลูชัน JavaScript ของ Arnauld ซึ่งอาจล้มเหลวสำหรับอินพุตที่ยาว:

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 สำหรับแต่ละบรรทัด

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)

ไม่มี TIO สำหรับสูตรดังนั้นนี่คือภาพหน้าจอของกรณีทดสอบ:

สูตรอยู่ในฟิลด์ที่คำนวณซึ่งให้ค่าหลังจาก "ส่งคืน"

คำอธิบาย

นี่เป็นการสาธิตที่ดีเกี่ยวกับวิธีที่สูตรจะใช้ฟังก์ชันซ้ำกับรายการโดยไม่จำเป็นต้องวนซ้ำ สูตรอยู่ในเขตข้อมูลที่คำนวณในรูปแบบเดียวกับเขตข้อมูลอินพุตที่สามารถแก้ไขได้ `i '

1. เริ่มตรงกลาง @Leftและ@Rightอนุญาตให้ใช้ตัวคั่นสตริงหรือจำนวนอักขระ ดังนั้นเราจึงค้นหาทางด้านขวา:แล้วไปทางซ้ายของการเกิดครั้งแรกของสองช่องว่าง เนื่องจากสูตรเห็นบรรทัดใหม่เป็นตัวคั่นรายการมันจะใช้สิ่งนี้กับแต่ละบรรทัดในอินพุต
2. @Explodeเป็นสูตรของเทียบเท่าของ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

ลองออนไลน์!

บันทึก 1 ไบต์ขอบคุณ Arnauld

Befunge-98 (FBBI) , 16 ไบต์

"c- cw|r- dxx"=@

ลองออนไลน์!

Stax , 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 ไบต์

รุ่น Golfed:

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.