Mã đo Golf © 2019

Hexdumps được sử dụng với xxdcái nhìn như thế này:

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

Nhiệm vụ của bạn là chuyển đổi một hexdump ở dạng này thành số byte được sử dụng.

Quy tắc:

• Sơ hở thông thường bị cấm.
• Đây là mã golf , vì vậy câu trả lời hợp lệ ngắn nhất tính theo byte thắng.
• Bạn có thể hoặc không bao gồm dòng mới ở cuối văn bản ( 0a). Điều này có nghĩa là nếu hexdump kết thúc trong một dòng mới ( 0a), đầu vào đó có thể khiến đầu ra của nó giảm đi một.
• Một đầu vào trống (không có nghĩa đen: danh sách trống / chuỗi / v.v.) phải xuất 0.
• Đầu vào có thể được thực hiện dưới mọi hình thức
• Đầu vào sẽ là ASCII hợp lệ, không có ký tự điều khiển
• Đầu vào phải chứa toàn bộ hexdump

Các trường hợp thử nghiệm:

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

trả lại 28 hoặc 27

00000000: 0a                                       .

trả về 1 hoặc 0

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

trả lại 10 hoặc 9

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

trả lại 13

trả về 0 (Đây đúng là không có gì: danh sách trống / chuỗi / v.v.)

Giải thích sẽ tốt cho các ngôn ngữ không chuẩn.

Võng mạc 0.8.2 , 8 byte

.{51}

.

Hãy thử trực tuyến! Giải trình:

.{51}

Xóa 51 ký tự đầu tiên của mỗi dòng. (Các dòng chỉ có thể có từ 52 đến 67 ký tự, vì vậy, dòng này luôn khớp một lần trên mỗi dòng.)

.

Đếm các ký tự không phải dòng mới.

7 byte nếu đầu vào trống không phải được hỗ trợ:

.{52}

Hãy thử trực tuyến! Giải trình:

.{52}

Xóa 52 ký tự đầu tiên của mỗi dòng. (Các dòng chỉ có thể có từ 52 đến 67 ký tự, vì vậy, dòng này luôn khớp một lần trên mỗi dòng.)

Đếm 1 nhiều hơn số lượng ký tự còn lại (bao gồm cả dòng mới).

tcsh , 12 byte

xxd -r|wc -c

Hãy thử trực tuyến!

V (vim) , 7 byte

Î51x
Ø.

Hãy thử trực tuyến!

Giải trình:

Î       " 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...

Võng mạc , 7 byte

Điều này đếm tổng số chuỗi đơn có độ dài 52. Có thể làm điều gì đó tương tự %52,`., nhưng tôi đã thất bại trong việc tìm cách khắc phục điều đó.

w`.{52}

Hãy thử trực tuyến!

APL (Dyalog mở rộng) , 18 byte

Chương trình đầy đủ. Lời nhắc cho danh sách các chuỗi (tức là danh sách các ký tự).

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

Hãy thử trực tuyến!

⎕ lời nhắc

49↑¨ lấy 49 ký tự đầu tiên từ mỗi ký tự

(... )¨áp dụng các chức năng ngầm sau đây để mỗi:

 ⊢ tranh luận

 ⊆ chặt chém các nhân vật

 ≠ khác với ký tự đệm (dấu cách)

 1↓ bỏ "từ" đầu tiên

∊ ε nlist (flatten)

≢ kiểm đếm

2÷⍨ chia cho hai

Thạch , 5 byte

Ẉ_51S

Một liên kết đơn âm chấp nhận một danh sách các dòng mang lại số byte nguyên.

Hãy thử trực tuyến!

Làm sao?

Ẉ_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 byte

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

Hãy thử trực tuyến!

9 byte bị loại bỏ nhờ YSC!

Đây là một phiên bản mỏng manh hơn được lấy cảm hứng từ giải pháp JavaScript của Arnauld, có thể thất bại đối với các đầu vào dài:

C (gcc) , 50 byte

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

Hãy thử trực tuyến!

Python 3, 48 46 byte

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

Đầu vào được truyền dưới dạng một chuỗi cho hàm. Hàm tăng chiều dài của đầu vào (bao gồm cả dòng mới), sau đó trừ 52 cho mỗi dòng.

Dùng thử trực tuyến

Japt -x , 5 byte

Đầu vào như một mảng của dòng.

®Ê-51

Thử nó

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

Perl 6 , 18 byte

{.join.comb-51*$_}

Hãy thử trực tuyến!

Ẩn danh Bất cứ lambda nào lấy danh sách các dòng và trả về tổng số lượng ký tự, trừ 51 cho mỗi dòng

05AB1E , 8 6 byte

€g51-O

Hãy thử trực tuyến!

Nhập dưới dạng danh sách các chuỗi.

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

MathGolf , 7 6 byte (không cạnh tranh)

m£Ex-Σ

Nó không cạnh tranh (hiện tại) vì hiện tại có lỗi trong MathGolf đối với các chuỗi đầu vào có chứa khoảng trắng. Chúng được tự động chuyển thành một danh sách (chia theo dấu cách). Trong TIO tôi đã thay thế tất cả các không gian bằng một Bđể hiển thị nó hoạt động như dự định.

Nhập dưới dạng danh sách các chuỗi.

-1 byte bằng cách tìm một phương thức để tạo 51thành 2 byte (xem lịch sử để biết hơn 10 cách thực hiện trong 3 byte ..)

Hãy thử trực tuyến.

Giải trình:

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)

Ngôn ngữ công thức ghi chú của IBM / Lotus, 53 byte

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

Không có TIO cho Công thức, vì vậy đây là ảnh chụp màn hình của các trường hợp thử nghiệm:

Công thức nằm trong trường được tính toán cung cấp giá trị sau "Trả về".

Giải trình

Đây là một minh chứng tốt về cách Công thức sẽ áp dụng đệ quy một hàm cho danh sách mà không cần vòng lặp. Công thức nằm trong một trường được tính toán trên cùng một dạng với trường đầu vào có thể chỉnh sửa `i '.

1. Bắt đầu ở giữa. @Leftvà @Rightcho phép một dấu phân cách chuỗi hoặc một số ký tự được sử dụng. Do đó, chúng tôi tìm kiếm ở bên phải của: và sau đó ở bên trái của sự xuất hiện đầu tiên của hai không gian. Vì Công thức xem dòng mới dưới dạng phân tách danh sách, nên nó sẽ áp dụng điều này cho từng dòng trong đầu vào.
2. @Explodelà công thức tương đương với một splithàm và mặc định cho không gian, ,hoặc; . Một lần nữa, nó được áp dụng cho từng dòng trong trường nhưng lần này kết quả được kết hợp thành một danh sách.
3. @Lengthsau đó sẽ được áp dụng cho từng thành viên trong danh sách. Trong mỗi trường hợp, chúng tôi chia giá trị trả về cho 2.
4. @Sum toàn bộ danh sách và xuất kết quả.

JavaScript (ES6), 34 byte

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

Hãy thử trực tuyến!

Đã bình luận

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

Màu đỏ , 81 55 byte

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

Hãy thử trực tuyến!

Lấy đầu vào là một danh sách các chuỗi.

JavaScript, 33 32 byte

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

Hãy thử trực tuyến!

Đã lưu 1 byte nhờ Arnauld.

Befunge-98 (FBBI) , 16 byte

"c- cw|r- dxx"=@

Hãy thử trực tuyến!

Stax , 5 byte

ôφß→ê

Chạy và gỡ lỗi nó

Zsh , 36 byte

Với các cờ mặc định của zsh:

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

Hãy thử trực tuyến!

${(f)1}chia nhỏ $1trên dòng mới và loại bỏ các dòng trống. Các $[ arithmetic expansion ]vệ sĩ chống lại trường hợp trống rỗng, khi vòng lặp không bao giờ thiết lập $c.

Zsh , 28 byte

Với -o extendedglob:

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

Hãy thử trực tuyến!

(f)Tách trên các dòng mới, ${ #?(#c52)}loại bỏ 52 ký tự hàng đầu, (F)tham gia vào các dòng mới để việc đếm theo từng ký tự thay vì liệt kê, ${# }đếm các ký tự.

asm2bf , 135 byte

Phiên bản chơi gôn:

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

Phiên bản đã bình luận:

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.