Medidor de golfe de código © 2019

Hexdumps usados com xxdalgo parecido com isto:

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

Sua tarefa é converter um hexdump neste formulário no número de bytes usados.

Regras:

Falhas usuais proibidas.
Isso é código-golfe , então a resposta válida mais curta em bytes vence.
Você pode ou não incluir a nova linha no final do texto ( 0a). Isso significa que, se o hexdump terminar em uma nova linha ( 0a), essa entrada poderá ter sua saída reduzida em um.
Uma entrada vazia (literalmente nada: lista vazia / string / etc.) Deve gerar 0.
A entrada pode ser obtida de qualquer forma
A entrada será ASCII válida sem caracteres de controle
A entrada deve conter todo o hexdump

Casos de teste:

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

retorna 28 ou 27

00000000: 0a                                       .

retorna 1 ou 0

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

retorna 10 ou 9

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

retorna 13

retorna 0 (literalmente nada: lista vazia / string / etc.)

Explicações seria bom para idiomas não-padrão.

code-golf string hexadecimal

— gadzooks02
fonte

Podemos assumir que a entrada é ascii? Ele pode conter caracteres de controle? Quais são as regras de entrada? Alguns idiomas não podem manipular a entrada em várias linhas. Podemos preencher a última linha para que todas as linhas sejam igualmente longas? Por que incluir a entrada em branco?

— Stewie Griffin

@StewieGriffin Sim; não; sim; porque se xxdé alimentado com uma string vazia, ele não gera nada.

— gadzooks02 7/10

1

@StewieGriffin Você editou seu comentário enquanto eu respondia, então aqui está uma expansão: Sim; Não; pode ser inserido como quiser, desde que todo o despejo esteja incluído; Veja a última resposta; Sim; Porque se xxd é alimentado uma cadeia vazia, ele produz nada

— gadzooks02

1

@ JonathanAllan Oh sim, bem localizado.

— gadzooks02 7/10

1

Contar um formato hexdump que não inclui os dados ASCIIfied à direita pode ser interessante. Todo mundo está apenas tirando a parte hexadecimal e contando o resto por bytes. Se o desafio fosse fazer isso com apenas a última linha do hexdump, isso forçaria a análise do número hexadecimal (a posição) e a contagem do número de dígitos hexadecimais nessa linha. (Como faço manualmente, ao olhar para objdumpdesmontagem ou nasmlistagens para obter respostas de código de máquina.) Acho que devo postar isso na caixa de areia ...

— Peter Cordes

12

Retina 0.8.2 , 8 bytes

.{51}

.

Experimente online! Explicação:

.{51}

Exclua os primeiros 51 caracteres de cada linha. (As linhas só podem ter entre 52 e 67 caracteres, portanto, isso sempre corresponde uma vez por linha.)

Conte os caracteres restantes que não são de nova linha.

7 bytes se a entrada vazia não tiver que ser suportada:

.{52}

Experimente online! Explicação:

.{52}

Exclua os primeiros 52 caracteres de cada linha. (As linhas só podem ter entre 52 e 67 caracteres, portanto, isso sempre corresponde uma vez por linha.)

Conte 1 mais que o número de caracteres restantes (incluindo novas linhas).

— Neil
fonte

7 com &`.{52}.

— Grimmy

@ Grimy Isso é simplesmente ... incrível ... você deve postar isso como sua própria resposta.

— Neil

Eu não percebi no começo, mas na verdade já existe uma resposta quase idêntica .

— Grimmy

11

tcsh , 12 bytes

xxd -r|wc -c

Experimente online!

— Krzysztof Szewczyk
fonte

1

Muito robusto e faça exatamente o que o OP deseja.

— tsh 10/10

7

V (vim) , 7 bytes

Î51x
Ø.

Experimente online!

Explicação:

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

— DJMcMayhem
fonte

6

Retina , 7 bytes

Isso conta o número total de strings de linha única de comprimento 52. Talvez seja possível fazer algo semelhante %52,`., mas não encontrei uma maneira de corrigir isso.

w`.{52}

Experimente online!

— meu pronome é monicareinstate
fonte

1

Também: &`.{52}para Retina 0.8.2.

— Grimmy

5

APL (Dyalog Extended) , 18 bytes

Programa completo. Solicita a lista de strings (ou seja, de listas de caracteres).

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

Experimente online!

⎕ pronto

49↑¨ pegue os primeiros 49 caracteres de cada

(… )¨Aplique a seguinte função tácita a cada um:

⊢ o argumento

⊆ pique em séries de caracteres que são

≠ diferente do caractere de preenchimento (espaço)

1↓ solte a primeira "palavra"

∊ ε nlist (achatar)

≢ registro

2÷⍨ dividir por dois

— Adão
fonte

4

Gelatina , 5 bytes

Ẉ_51S

Um link monádico que aceita uma lista de linhas que produz a contagem de bytes inteiros.

Experimente online!

Quão?

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

— Jonathan Allan
fonte

Você pode aceitar uma lista de linhas. Além disso, você gostaria de adicionar uma explicação?

— gadzooks02 7/10

Ah legal, então a entrada vazia é uma lista vazia OU uma lista com uma única linha vazia? (Isso deve ficar claro no post, pois é um caso delicado.)

— Jonathan Allan

É uma lista / string / etc vazia. Acabei de esclarecer isso.

— gadzooks02 7/10

Obrigado, explicação adicionada agora também.

— Jonathan Allan

3

C (gcc) , 64 55 bytes

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

Experimente online!

9 bytes raspados graças ao YSC!

Aqui está uma versão mais frágil inspirada na solução JavaScript de Arnauld, que provavelmente falha em entradas longas:

C (gcc) , 50 bytes

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

Experimente online!

— G. Sliepen
fonte

1

59 bytes, alterando return rparal=r

— girobuz 8/10

2

@JonathanFrech comportamento indefinido é perfeitamente bom para o código de golfe!

— G. Sliepen

1

@YSC Hum, mas acho que tornar r global viola a regra de que, se você definir uma função para fazer algo (e não é main), deve ser possível chamá-lo várias vezes.

— G. Sliepen

1

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

— ,:

2

@girobuz while()tem o mesmo número de bytes que for(;;). Assim, ;while()um byte é mais longo que for(;;).

— Jonathan Frech

3

Python 3, 48 46 bytes

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

A entrada é passada como uma sequência para a função. A função incrementa o comprimento da entrada (incluindo novas linhas) e subtrai 52 para cada linha.

Experimente online

— IFcoltransG
fonte

2

Pelo que vi, ele f=pode ser movido para o cabeçalho como `f =`, deixando apenas o lambda como código e economizando dois bytes: Experimente online!

— gadzooks02

@ gadzooks02 Obrigado, vai editar. Esse f=é um hábito que peguei no servidor de discórdia Python.

— IFcoltransG

2

Japt `-x` , 5 bytes

Entrada como uma matriz de linhas.

®Ê-51

Tente

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

— Shaggy
fonte

2

Perl 6 , 18 bytes

{.join.comb-51*$_}

Experimente online!

Anônimo Qualquer lambda que pega uma lista de linhas e retorna a soma do número de caracteres, subtraindo 51 para cada linha

— Brincadeira
fonte

2

05AB1E , 8 6 bytes

€g51-O

Experimente online!

Entrada como uma lista de strings.

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

— Dorian
fonte

1

Desculpe, a entrada deve conter todo o hexdump. (O seu pula as letras no final de cada linha)

— gadzooks02

Oh culpa minha. Eu fiz isso no meu smartphone. Não vi que há algo por trás dos códigos hexadecimais. Eu fiz uma correção.

— Dorian em

2

MathGolf , 7 6 bytes (não concorrente)

m£Ex-Σ

Não é concorrente (por enquanto), porque atualmente existe um erro no MathGolf para entradas de string contendo espaços. Eles são automaticamente transformados em uma lista (dividida por espaços). No TIO, substituí todos os espaços por umB para mostrar que ele funciona como pretendido.

Entrada como uma lista de strings.

-1 byte localizando um método para gerar 51 em 2 bytes (consulte o histórico para mais de 10 maneiras de fazê-lo em 3 bytes.)

Experimente online.

Explicação:

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)

— Kevin Cruijssen
fonte

Supondo que você não tenha corrigido o bug no MathGolf desde que você postou esta resposta, ele é inválido e não é concorrente.

— pppery 29/11

2

IBM / Lotus Notes Formula Language, 53 bytes

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

Não há TIO para a fórmula, então, aqui estão as capturas de tela dos casos de teste:

A fórmula está no campo calculado que fornece o valor após "Retornos".

Explicação

Esta é uma boa demonstração da maneira como a Formula aplicará recursivamente uma função a uma lista sem precisar de um loop. A fórmula está em um campo calculado no mesmo formato do campo de entrada editável `i '.

Comece no meio. @Lefte @Rightpermita que um delimitador de sequência ou um número de caracteres seja usado. Portanto, procuramos à direita :e depois à esquerda da primeira ocorrência de dois espaços. Como a Fórmula vê a nova linha como um separador de lista, ela será aplicada a cada linha da entrada.
@Explodeé o equivalente de uma splitfunção da fórmula e o padrão é espaço, ,ou ;. Novamente, é aplicado a cada linha do campo, mas desta vez os resultados são combinados em uma única lista.
@Lengthserá aplicado a cada membro da lista. Em cada caso, dividimos seu valor de retorno por 2.
@Sum a lista inteira e produza o resultado.

— ElPedro
fonte

1

Você tem um link para um intérprete (online ou baixado)?

— gadzooks02

Infelizmente não. Formula é uma linguagem proprietária vinculada ao produto IBM (perguntei à Meta há algum tempo se isso é permitido neste site e a resposta foi "sim", mas não para os desafios de Cops & Robbers). A última vez que procurei, o Domino Designer (que suporta Formula) ainda estava disponível para download gratuito na IBM. Infelizmente, apenas o Windows e como eu executo o Linux em casa, não posso confirmar. Esta resposta foi escrita durante o meu horário de almoço, pois tenho a infelicidade de ainda suportar alguns aplicativos herdados do Notes e ainda ter o Notes na minha máquina no trabalho :-)

— ElPedro

1

BTW, se você pesquisar no Lotus Notes neste site, descobrirá que sou o único cara que é estúpido o suficiente para tentar jogar golfe neste idioma :-)

— ElPedro

1

JavaScript (ES6), 34 bytes

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

Experimente online!

Comentado

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

— Arnauld
fonte

1

Vermelho , 81 55 bytes

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

Experimente online!

Toma a entrada como uma lista de seqüências de caracteres.

— Galen Ivanov
fonte

1

JavaScript, 33 32 bytes

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

Experimente Online!

Guardado 1 byte graças a Arnauld.

— Shaggy
fonte

0

Befunge-98 (FBBI) , 16 bytes

"c- cw|r- dxx"=@

Experimente online!

— Krzysztof Szewczyk
fonte

0

Stax , 5 bytes

ôφß→ê

Execute e depure

— recursivo
fonte

0

Zsh , 36 bytes

Com os sinalizadores padrão do zsh:

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

Experimente online!

${(f)1}divide $1em novas linhas e descarta linhas vazias. Os $[ arithmetic expansion ]guardas contra a caixa vazia, quando o loop nunca se ajusta $c.

Zsh , 28 bytes

Com -o extendedglob:

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

Experimente online!

(f)Divida em novas linhas, ${ #?(#c52)}remova 52 caracteres (F)iniciais, junte-se a novas linhas para que a contagem seja caractere em vez de listar, ${# }conte caracteres.

— GammaFunction
fonte

0

asm2bf , 135 bytes

Versão 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

Versão comentada:

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.

— Krzysztof Szewczyk
fonte

Medidor de golfe de código © 2019

Medidor de golfe de código © 2019

Regras:

Casos de teste:

Retina 0.8.2 , 8 bytes

tcsh , 12 bytes

V (vim) , 7 bytes

Retina , 7 bytes

APL (Dyalog Extended) , 18 bytes

Gelatina , 5 bytes

Quão?

C (gcc) , 64 55 bytes

C (gcc) , 50 bytes

Python 3, 48 46 bytes

Japt -x , 5 bytes

Perl 6 , 18 bytes

05AB1E , 8 6 bytes

MathGolf , 7 6 bytes (não concorrente)

IBM / Lotus Notes Formula Language, 53 bytes

JavaScript (ES6), 34 bytes

Comentado

Vermelho , 81 55 bytes

JavaScript, 33 32 bytes

Befunge-98 (FBBI) , 16 bytes

Stax , 5 bytes

Zsh , 36 bytes

Zsh , 28 bytes

asm2bf , 135 bytes

Japt `-x` , 5 bytes