Eu tenho um problema no trabalho. Eu preciso comparar dois números que vêm como seqüências de caracteres de dois bancos de dados diferentes. Os números podem vir com zeros à esquerda e / ou espaços à esquerda / à direita. Então eu posso ter "0001 "de um banco de dados e " 1 "do outro.

Resolvi o problema em C # com o seguinte código:

Func<string, string, bool> f = (a,b) => int.Parse(a.Trim()) == int.Parse(b.Trim())

O desafio

Este é um desafio realmente simples, adequado para iniciantes e qualquer tipo de linguagem esotérica. Dado dois números como cadeias que podem vir com zeros à esquerda e / ou espaços à esquerda / à direita, escreva o código mais curto que verifica se as duas cadeias representam o mesmo número.

• As entradas precisam ter duas strings ou o equivalente no seu idioma (uma matriz de caracteres é OK) e sempre representam valores inteiros maiores que zero.
• A saída deve ter quaisquer dois valores consistentes que representem um valor de verdade e um valor de falsey.

Exemplos

A          B          Result
----------------------------
"0001"     "1    "    true
"1450"     "1450 "    true
"0010001 " " 10001  " true
"0010000"  "  10  "   false
"101023"   "101024"   false

Este é o código-golfe , portanto, pode ganhar o código mais curto para cada idioma!

Javascript , 11 bytes

a=>b=>+a==b

Abusando um pouco das regras de elenco do Javascript; +acoage aem um tipo numérico.

-6 bytes graças a Shaggy e Martin Ender ♦

Também uma tomada legal por LiefdeWen :

a=>b=>~~a==~~b

05AB1E , 1 byte

Q

Experimente online!

Explicação

A comparação por igualdade Qtentará avaliar automaticamente as strings como ints antes de comparar.

Linguagem de script da operação Flashpoint , 33 bytes

f={call format(["%1==%2"]+_this)}

Ligue para:

hint format["%1\n%2\n%3\n%4\n%5",
    ["0001", "1    "] call f,
    ["1450", "1450 "] call f,
    ["0010001 ", " 10001  "] call f,
    ["0010000", "  10  "] call f,
    ["101023", "101024"] call f]

Saída:

Versão alternativa (41 bytes):

f={{t=call _x;r=t==s;s=t}forEach _this;r}

Ainda 5 bytes mais curto que o mais simples f={t=_this;call(t select 0)==call(t select 1)}

39 bytes:

f={{t=call _x;r=t==s;s=t}count _this;r}

count(que retorna o tamanho de uma matriz) funciona em vez de forEach, porque você pode atribuir um "lambda" usado como condição para contar apenas os elementos da matriz que atendem a essa condição. A "condição" usada neste caso não é uma condição válida, mas não importa aqui porque não causa um erro e o valor de retorno do countnão é necessário.

Táxi , 488 bytes

Go to Post Office:w 1 l 1 r 1 l.Pickup a passenger going to The Babelfishery.Pickup a passenger going to The Babelfishery.Go to The Babelfishery:s 1 l 1 r.Pickup a passenger going to Equal's Corner.Pickup a passenger going to Equal's Corner.Go to Equal's Corner:n 1 l 1 l 1 l.Switch to plan "b" if no one is waiting.'1' is waiting at Writer's Depot.[b]'0' is waiting at Writer's Depot.Go to Writer's Depot:n 1 l 1 r.Pickup a passenger going to Post Office.Go to Post Office:n 1 r 2 r 1 l.

Experimente online!

Ungolfed:

Go to Post Office: west 1st left 1st right 1st left.
Pickup a passenger going to The Babelfishery.
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery: south 1st left 1st right.
Pickup a passenger going to Equal's Corner.
Pickup a passenger going to Equal's Corner.
Go to Equal's Corner: north 1st left 1st left 1st left.
Switch to plan "b" if no one is waiting.
'1' is waiting at Writer's Depot.
[b]
'0' is waiting at Writer's Depot.
Go to Writer's Depot: north 1st left 1st right.
Pickup a passenger going to Post Office.
Go to Post Office: north 1st right 2nd right 1st left.

O táxi é (relativamente) adequado para esse desafio, porque as strings são o único tipo de entrada ou saída permitido. The Babelfisheryé o que converte seqüências de caracteres em número (e vice-versa) e lida com a remoção de todos os espaços e zeros à esquerda. Ele também manipulará números negativos se o -for imediatamente antes do primeiro dígito. Depois disso, Equal's Cornerverifica os dois valores entre si e Writer's Depotfornece a saída no formato de sequência. A saída é 1para verdade e 0para falsey.

C (gcc) , 27 bytes

f(s,t){s=atoi(s)==atoi(t);}

Com -O0(que é a configuração padrão).

Experimente online!

C, 32 bytes

f(s,t){return atoi(s)==atoi(t);}

Experimente online!

J , 4 bytes

=&do

Compare =depois de &avaliar do. Também pode ser =&". Experimente online!

Retina , 11 bytes

.+
$*
D`
¶$

Experimente online!

A entrada é separada por avanço de linha, mas o conjunto de testes usa separação por vírgula por conveniência. Imprime 1pela igualdade e 0pela desigualdade.

Explicação

.+
$*

Converta cada linha em unário. Isso ignora zeros e espaços à esquerda.

D`

Desduplicar: limpe a segunda linha se ambas forem iguais.

¶$

Verifique se a sequência agora termina em um avanço de linha.

Python 3 , 25 bytes

lambda a,b:int(a)==int(b)

Experimente online!

Flak cerebral , 22 bytes

(([{}]{})[{(){}}](){})

Experimente online!

Guardado 4 bytes graças a Jo King .

Triangularidade , 17 bytes

..)..
.Ii).
@Ii=.

Experimente online!

A triangularidade é, pela primeira vez, competitiva!

Como funciona

A triangularidade exige que o código tenha uma distribuição triangular dos pontos. Ou seja, o comprimento de cada linha deve ser igual ao número de linhas multiplicado por 2 e decrementado, e cada linha deve ter (em cada lado) um número de pontos igual à sua posição no programa (a linha inferior é a linha 0, o acima é a linha 1 e assim por diante). Tendo isso em mente, vamos analisar como o código funciona:

..).. || Push a 0 onto the stack.
.Ii   || Get the 0th input and cast it to an integer.
   ). || Push another 0 onto the stack.
@I    || Increment the ToS => 1. Get the first input.
  i=. || Then cast it to an integer and compare their equality.

Alice , 7 bytes

X/n
o@i

Experimente online!

Qualquer separador sem dígito funciona. Imprime 1para igualdade ou 0não.

Explicação

X   XOR, does nothing.
/   Switch to Ordinal mode.
i   Read all input as a string.
/   Switch to Cardinal mode.
X   XOR. Implicitly finds all integers in the string and pushes them separately
    onto the stack. The XOR gives 0 if the values are identical.
n   Logical NOT. Gives 1 for equal inputs and 9 otherwise.
/   Switch to Ordinal.
o   Print the 0 or 1 as a string.
/   Switch to Cardinal.
@   Terminate the program.

Japonês , 3 bytes

¥Vn

Tente

Converte a segunda entrada em um número inteiro e compara a igualdade com a primeira.

APL (Dyalog) , 4 bytes

3 bytes salvos graças a @ Adám

=/⍎¨

Experimente online!

jq, 24 caracteres

map(tonumber)|.[0]==.[1]

As 2 strings são passadas como itens de uma matriz.

Exemplo de execução:

bash-4.4$ jq 'map(tonumber)|.[0]==.[1]' <<< '["0010001 ", " 10001  "]'
true

bash-4.4$ jq 'map(tonumber)|.[0]==.[1]' <<< '["0010000", "  10  "]'
false

Experimente online! ( Todos os casos de teste )

Casca , 3 bytes

¤=r

Experimente online!

Explicação

¤    -- combine both arguments of ..
 =   -- .. equality ..
  r  -- .. with read

PowerShell , 20 bytes

param($a,$b)+$a-eq$b

Semelhante à resposta JavaScript, apenas mais porque o PowerShell não tem currying. Usa +para converter a primeira string em número inteiro e, em seguida, os -equals convertem automaticamente a segunda string em número inteiro. A saída é verdadeira / falsa.

Experimente online!

PowerShell , 19 bytes

$args-join'-eq'|iex

Experimente online!

-joino array de argumentos ( $args) com a representação de string do operador de comparação ( -eq) e avalie a expressão com Invoke-Expression( iex).

Q (Kdb +), 13 bytes

=/["J"$(x;y)]

Explicação

(x; y): uma lista das duas entradas.

"J" $: convertendo cada entrada para um tipo longo (7j) da string (10c), que pode interpretar corretamente
o espaço em branco e os 0s iniciais.

= /: verifica a igualdade sobre os elementos em uma lista (cada par subsequente).
Como existe apenas um par, retorna um único booliano 0b / 1b.

T-SQL, 35 bytes

De acordo com nossos padrões , os dados são inseridos por meio de tabela preexistente tcom varcharcampos ae b.

    SELECT IIF(ABS(a)=ABS(b),1,0)FROM t

Retorna 1se eles corresponderem,0 se não corresponderem.

Algumas funções matemáticas do SQL (incluindo ABS, FLOORe CEILING) farão uma conversão implícita em numérico se forem fornecidos parâmetros de string, isso é mais curto que um explícitoCAST(a AS INT) ou CONVERT(INT,b)e funciona nesse caso, pois sabemos que os valores de entrada são sempre positivos.

IIF é específico para o MS SQL 2012 e superior, portanto, não há garantia sobre outras implementações.

Excel VBA, 27 16 bytes

-9 Obrigado a @Nayrb e @TaylorScott

[C1]=[A1]-[B1]=0

Onde você insere os valores nas células com 'string .

Onde xe ysão as seqüências de entrada e zé uma saída booleana.

Se CInt (x) = CInt (y) Então z = 1

Usando CInt

R , 28 27 bytes

!diff(as.double(scan(,'')))

Lê números como strings, converte-os em duplas e verifica se a diferença não é zero.

Experimente online!

-1 byte graças a Giuseppe

Lua , 20 bytes

print(...-arg[2]==0)

Experimente online!

Haskell , 20 bytes

-11 bytes graças a Laikoni. -2 bytes graças ao Zgarb.

a#b=0+read a==read b

Experimente online!

Gema , 21 caracteres

*\n*=@cmpn{*;*;0;1;0}

Não é booleano no Gema. Enquanto o@get-switch{} /@set-switch{} funções usam 0 e 1 para representar os status da chave, também são usados ​​0 e 1.

As 2 strings são passadas em linhas de entrada separadas.

Exemplo de execução:

bash-4.4$ gema '*\n*=@cmpn{*;*;0;1;0}' <<< $'0010001\n10001  '
1

bash-4.4$ gema '*\n*=@cmpn{*;*;0;1;0}' <<< $'0010000\n  10  '
0

Perl 5, 9 + 1 ( -p) = 10 bytes

$_=$_==<>

experimente online

Empilhados , 8 bytes

[#~\#~=]

Experimente online!

Explicação

[#~\#~=]   anonymous function
 #~        eval TOS
   \       swap top two
    #~     eval TOS
      =    push equality of top two

Anexo , 11 bytes

Same@Map&:N

Experimente online!

Isso requer uma matriz de seqüências de caracteres, como V["0001", "1 "]. Em termos simples, Map&:Né uma função que mapeia Nseu argumento e Sameverifica se a matriz contém apenas membros iguais. (Curiosidade: essa função funciona para mais de 2 argumentos de string).

SNOBOL4 (CSNOBOL4) , 42 bytes

	OUTPUT =EQ(EVAL(INPUT),EVAL(INPUT)) 1
END

Experimente online!

Saídas 1 para verdade, nada para falsey. Como (space) é o operador de concatenação no SNOBOL, EVALum número com espaços à esquerda / à direita gera o próprio número e também cuida de todos os zeros à esquerda. EQtesta a igualdade numérica, configurando condicionalmente OUTPUTcomo 1 ativado Success.

Sinclair ZX81 / Timex TS1000 / 1500 BASIC, ~ 29 bytes BASIC tokenizados

Nova solução graças a Neil (obrigado pela dica).

 1 INPUT A$
 2 INPUT B$
 3 PRINT VAL A$=VAL B$

Essa solução requer entrada do usuário; portanto, insira duas strings com espaços em branco e / ou zeros à esquerda, ou insira duas strings de valor numérico não igual; 0é falso e1 verdadeiro quando a linha três compara o valor de cada sequência inserida.

Solução antiga: Sinclair ZX81 / Timex TS1000 / 1500 BASIC, ~ 46 bytes BASIC tokenizados

 1 LET A$=" 001 "
 2 LET B$="1"
 3 PRINT (VAL A$=VAL B$)

A verificação real é feita na linha três, que tem apenas ~ 16 bytes BASIC tokenizados; portanto, inserir cada par de casos de teste usando o modo direto economizará ~ 30 bytes da listagem. Observe que essa contagem de bytes não inclui o var stack.

APL (NARS2000) , 7 bytes

=⍥⍎

Bem, sim, eu sei que o NARS2000 não pode competir com o Dyalog aqui, pois usa Unicode, mas achei que preferia me exibir ⍥(chamado Composition no NARS2000, mesmo que não esteja relacionado à composição da função), algo que o Dyalog não faz. tem como um built-in e eu nunca vi usado aqui. No Dyalog, ele deve ser implementado como{(⍵⍵⍺)⍺⍺⍵⍵ ⍵} . O que ele faz é chamar a função monádica do operando da direita no argumento esquerdo e direito e, em seguida, chamar a função diádica do operando da esquerda nos resultados.

Aqui, o operando direito é ⍎( Executar , ou seja, eval) e o operando esquerdo é =( Igual a , ou seja, verifique se seus argumentos são iguais).