Mam problem w pracy. Muszę porównać dwie liczby, które są ciągami znaków z dwóch różnych baz danych. Liczby mogą zawierać początkowe zera i / lub początkowe / końcowe spacje. Więc mogę mieć "0001 "z jednej bazy danych iz " 1 "drugiej.

Rozwiązałem problem w języku C # za pomocą następującego kodu:

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

Wyzwanie

To naprawdę proste wyzwanie, odpowiednie dla początkujących i każdego rodzaju ezoterycznych języków. Biorąc pod uwagę dwie liczby jako ciągi znaków, które mogą zawierać początkowe zera i / lub wiodące / końcowe spacje, napisz najkrótszy kod, który sprawdza, czy dwa ciągi reprezentują tę samą liczbę.

• Dane wejściowe muszą być dwoma łańcuchami lub odpowiednikiem w twoim języku (tablica znaków jest OK) i zawsze będą reprezentować wartości całkowite większe od zera.
• Dane wyjściowe muszą być dowolnymi dwiema spójnymi wartościami, które reprezentują prawdziwą wartość i wartość falsey.

Przykłady

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

To jest golf golfowy , więc wygrywa najkrótszy kod dla każdego języka!

JavaScript , 11 bajtów

a=>b=>+a==b

Nadużywanie zasad obsady Javascript jest trochę; +awymusza ana typ numeryczny.

-6 bajtów dzięki Shaggy i Martinowi Enderowi ♦

Również fajne ujęcie LiefdeWen :

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

05AB1E , 1 bajt

Q

Wypróbuj online!

Wyjaśnienie

Porównanie równości Qautomatycznie spróbuje ocenić ciągi znaków jako ints przed porównaniem.

Operacyjny język skryptowy Flashpoint , 33 bajty

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

Zadzwoń z:

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]

Wydajność:

Alternatywna wersja (41 bajtów):

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

Nadal 5 bajtów krótszych niż te bardziej proste f={t=_this;call(t select 0)==call(t select 1)}

39 bajtów:

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

count(który zwraca rozmiar tablicy) działa zamiast forEach, ponieważ można nadać mu „lambda”, która jest używana jako warunek do zliczania tylko elementów tablicy, które spełniają ten warunek. „Warunek” użyty w tym przypadku nie jest prawidłowym warunkiem, ale nie ma tutaj znaczenia, ponieważ nie powoduje błędu, a zwracana wartość countnie jest potrzebna.

Taxi , 488 bajtów

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.

Wypróbuj online!

Nie golfowany:

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.

Taxi jest (względnie) dobrze przystosowane do tego wyzwania, ponieważ ciągi są jedynym dozwolonym typem wejścia lub wyjścia. The Babelfisheryjest tym, co konwertuje ciągi na liczbę (i odwrotnie) i obsługuje usuwanie wszystkich spacji i zer wiodących. Będzie również obsługiwać liczby ujemne, jeśli -będzie znajdować się bezpośrednio przed pierwszą cyfrą. Następnie Equal's Cornersprawdza dwie wartości względem siebie i Writer's Depotudostępnia dane wyjściowe w formacie ciągu. Wyjście jest 1dla prawdy i 0dla falsey.

C (gcc) , 27 bajtów

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

Z -O0 (co jest ustawieniem domyślnym).

Wypróbuj online!

C, 32 bajty

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

Wypróbuj online!

J , 4 bajty

=&do

Porównaj =po &dokonaniu oceny do. Może być również =&". Wypróbuj online!

Siatkówka , 11 bajtów

.+
$*
D`
¶$

Wypróbuj online!

Dane wejściowe są oddzielone od linii, ale zestaw testów używa separacji przecinków dla wygody. Wydruki1 dla równości i 0nierówności.

Wyjaśnienie

.+
$*

Konwertuj każdą linię na unary. To ignoruje wiodące zera i spacje.

D`

Deduplikacja: wyczyść drugą linię, jeśli obie są takie same.

¶$

Sprawdź, czy łańcuch kończy się teraz na linii.

Python 3 , 25 bajtów

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

Wypróbuj online!

Brain-Flak , 22 bajty

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

Wypróbuj online!

Zaoszczędzono 4 bajty dzięki Jo Kingowi .

Trójkątność , 17 bajtów

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

Wypróbuj online!

Trójkątność jest raz konkurencyjna!

Jak to działa

Trójkątność wymaga, aby kod miał trójkątny rozkład kropek. Oznacza to, że długość każdego wiersza musi być równa liczbie wierszy pomnożonej przez 2 i zmniejszonej, a każdy wiersz musi mieć (z każdej strony) liczbę kropek równą swojej pozycji w programie (dolny wiersz to wiersz 0, ten powyżej to rząd 1 i tak dalej). Mając to na uwadze, przeanalizujmy, jak działa kod:

..).. || 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 bajtów

X/n
o@i

Wypróbuj online!

Działa dowolny separator inny niż cyfrowy. Wydruki1 dla równości i0 nie tylko.

Wyjaśnienie

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.

Japt , 3 bajty

¥Vn

Spróbuj

Konwertuje drugie wejście na liczbę całkowitą i porównuje równość z pierwszym.

APL (Dyalog) , 4 bajty

3 bajty zapisane dzięki @ Adám

=/⍎¨

Wypróbuj online!

jq, 24 znaki

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

2 ciągi znaków są przekazywane jako elementy tablicy.

Przykładowy przebieg:

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

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

Wypróbuj online! ( Wszystkie przypadki testowe )

Łuska , 3 bajty

¤=r

Wypróbuj online!

Wyjaśnienie

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

PowerShell , 20 bajtów

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

Podobne do odpowiedzi JavaScript, tylko dłużej, ponieważ PowerShell nie ma curry. Używa +rzutowania pierwszego ciągu na liczbę całkowitą, a następnie-eq uals automatycznie rzuca drugi ciąg na liczbę całkowitą. Dane wyjściowe to prawda / fałsz.

Wypróbuj online!

PowerShell , 19 bajtów

$args-join'-eq'|iex

Wypróbuj online!

-jointablica argumentów ( $args) z reprezentacją ciągu operatora porównania ( -eq), a następnie oceń wyrażenie za pomocą Invoke-Expression( iex).

Q (Kdb +), 13 bajtów

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

Wyjaśnienie

(x; y): lista dwóch danych wejściowych.

„J” $: rzutowanie każdego wejścia na długi (7j) typ z ciągu (10c), który może poprawnie interpretować
białe znaki i początkowe zera.

= /: sprawdza równość elementów na liście (każda kolejna para).
Ponieważ jest tylko jedna para, zwraca pojedynczy boolian 0b / 1b.

T-SQL, 35 bajtów

Zgodnie z naszymi standardami dane są wprowadzane za pomocą wcześniej istniejącej tabeli tz varcharpolami ai b.

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

Zwraca, 1jeśli pasują, jeśli nie pasują 0.

Kilka funkcji matematycznych (w tym SQL ABS, FLOORi CEILING) zrobi niejawna konwersja do numeryczny jeśli podane parametry ciąg ten jest krótszy niż jawne CAST(a AS INT)lub CONVERT(INT,b)i działa w tym przypadku, ponieważ wiemy, że wartości wejściowe są zawsze pozytywne.

IIF jest specyficzny dla MS SQL 2012 i wyższych, więc nie ma gwarancji na inne implementacje.

Excel VBA, 27 16 bajtów

-9 Dzięki @Nayrb i @TaylorScott

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

Gdzie wpisujesz wartości w komórkach za pomocą 'string.

Gdzie xi ysą wejściowymi ciągami znaków i zsą wynikiem logicznym.

Jeśli CInt (x) = CInt (y) to z = 1

Korzystanie z CInt

R , 28 27 bajtów

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

Odczytuje liczby jako ciągi znaków, konwertuje je na liczby podwójne i sprawdza, czy ich różnica nie jest równa zero.

Wypróbuj online!

-1 bajt dzięki Giuseppe

Lua , 20 bajtów

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

Wypróbuj online!

Haskell, 20 bytes

-11 bajtów dzięki Laikoni. -2 bajty dzięki Zgarb.

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

Wypróbuj online!

Gema, 21 characters

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

No boolean in Gema. As the @get-switch{}/@set-switch{} functions use 0 and 1 to represent switch statuses, also used 0 and 1.

The 2 strings are passed on separate input lines.

Sample run:

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

$_=$_==<>

try it online

Stacked, 8 bytes

[#~\#~=]

Try it online!

Explanation

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

Attache, 11 bytes

Same@Map&:N

Try it online!

This takes an array of strings, such as V["0001", "1 "]. Simply stated, Map&:N is a function that maps N over its argument, and Same checks that the array contains only equal members. (Fun fact: this function works for more than 2 string arguments.)

SNOBOL4 (CSNOBOL4), 42 bytes

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

Try it online!

Outputs 1 for truthy, nothing for falsey. Since (space) is the concatenation operator in SNOBOL, EVALing a number with leading/trailing spaces yields the number itself, and it also neatly takes care of any leading zeroes. EQ tests for numerical equality, conditionally setting OUTPUT to 1 on Success.

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

New solution thanks to Neil (thanks for the tip).

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

This solution requires user input, so enter in two strings with white spaces and/or leading zeros, or enter two strings of non-equal numeric value; 0 is false and 1 is true once line three has compared the value of each string entered.

Old solution: Sinclair ZX81/Timex TS1000/1500 BASIC, ~46 tokenized BASIC bytes

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

The actual check is done in line three, which is only ~16 tokenized BASIC bytes; so entering each test case pair using direct mode will save ~30 bytes from the listing. Note that this byte count does not include the var stack.

APL (NARS2000), 7 bytes

=⍥⍎

Well, yes, I do know NARS2000 can't compete over Dyalog here since it uses Unicode, but I thought I'd rather show off ⍥ (called Composition in NARS2000, even though it's actually unrelated to function composition), something Dyalog doesn't have as a built-in and I haven't ever seen used here. In Dyalog, it has to be implemented as {(⍵⍵⍺)⍺⍺⍵⍵ ⍵}. What it does is call the right operand monadic function on both the left and right argument, and then call the left operand dyadic function on the results.

Here, the right operand is ⍎ (Execute, i.e. eval) and the left operand is = (Equal To, i.e. check if its arguments are equal).