Tôi có một vấn đề trong công việc. Tôi cần so sánh hai số đến dưới dạng chuỗi từ hai cơ sở dữ liệu khác nhau. Các con số có thể đi kèm với các số 0 đứng đầu và / hoặc khoảng trắng đầu / cuối. Vì vậy, tôi có thể có "0001 "từ một cơ sở dữ liệu và " 1 "từ cơ sở dữ liệu khác.

Tôi đã giải quyết vấn đề trong C # với đoạn mã sau:

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

Các thách thức

Đây là một thử thách thực sự đơn giản, phù hợp cho người mới bắt đầu và bất kỳ loại ngôn ngữ bí truyền nào. Cho hai số là các chuỗi có thể đi kèm với các số 0 đứng đầu và / hoặc khoảng trắng hàng đầu / dấu, hãy viết mã ngắn nhất để kiểm tra xem hai chuỗi có đại diện cho cùng một số không.

• Các đầu vào cần phải là hai chuỗi hoặc tương đương trong ngôn ngữ của bạn (một mảng char là OK) và chúng sẽ luôn đại diện cho các giá trị nguyên lớn hơn 0.
• Đầu ra phải là bất kỳ hai giá trị nhất quán nào đại diện cho một giá trị trung thực và giá trị falsey.

Ví dụ

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

Đây là môn đánh gôn , vì vậy có thể mã ngắn nhất cho mỗi ngôn ngữ sẽ giành chiến thắng!

Javascript , 11 byte

a=>b=>+a==b

Lạm dụng quy tắc truyền của Javascript một chút; +aép buộc athành một loại số.

-6 byte nhờ Shaggy và Martin Ender ♦

Cũng là một tuyệt vời của LiefdeWen :

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

05AB1E , 1 byte

Q

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

Giải trình

So sánh cho đẳng thức Qsẽ tự động cố gắng đánh giá các chuỗi như ints trước khi so sánh.

Hoạt động ngôn ngữ kịch bản Flashpoint , 33 byte

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

Gọi với:

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]

Đầu ra:

Phiên bản thay thế (41 byte):

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

Vẫn ngắn hơn 5 byte so với đơn giản hơn f={t=_this;call(t select 0)==call(t select 1)}

39 byte:

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

count(trả về kích thước của một mảng) hoạt động thay vì forEach, bởi vì bạn có thể cung cấp cho nó một "lambda" được sử dụng như một điều kiện để chỉ đếm các phần tử mảng đáp ứng điều kiện đó. "Điều kiện" được sử dụng trong trường hợp này không phải là điều kiện hợp lệ, nhưng nó không quan trọng ở đây vì nó không gây ra lỗi và giá trị trả về của countkhông cần thiết.

Taxi , 488 byte

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.

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

Ung dung:

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 (tương đối) rất phù hợp với thử thách này bởi vì chuỗi là loại đầu vào hoặc đầu ra duy nhất được phép. The Babelfisherylà những gì chuyển đổi chuỗi thành số (và ngược lại) và nó xử lý tước tất cả các khoảng trắng và số 0 đứng đầu. Nó cũng sẽ xử lý các số âm nếu -là ngay trước chữ số đầu tiên. Sau đó, Equal's Cornerkiểm tra hai giá trị với nhau và Writer's Depotcung cấp đầu ra ở định dạng chuỗi. Đầu ra là 1cho sự thật và 0cho falsey.

C (gcc) , 27 byte

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

Với -O0(đó là cài đặt mặc định).

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

C, 32 byte

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

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

J , 4 byte

=&do

So sánh =sau khi &đánh giá do. Cũng có thể là=&". thử trực tuyến!

Võng mạc , 11 byte

.+
$*
D`
¶$

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

Đầu vào được phân tách dòng, nhưng bộ kiểm tra sử dụng phân tách dấu phẩy để thuận tiện. In 1cho bình đẳng và 0bất bình đẳng.

Giải trình

.+
$*

Chuyển đổi từng dòng thành unary. Điều này bỏ qua các số không và không gian hàng đầu.

D`

Ded repeatate: xóa dòng thứ hai nếu cả hai giống nhau.

¶$

Kiểm tra xem chuỗi bây giờ kết thúc trong một nguồn cấp dữ liệu.

Python 3 , 25 byte

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

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

Brain-Flak , 22 byte

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

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

Đã lưu 4 byte nhờ Jo King .

Tam giác , 17 byte

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

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

Tam giác là, cho một lần, cạnh tranh!

Làm thế nào nó hoạt động

Tam giác yêu cầu mã phải có phân bố tam giác của các chấm. Nghĩa là, độ dài của mỗi hàng phải bằng số hàng nhân với 2 và giảm dần và mỗi hàng phải có (ở mỗi bên) một số dấu chấm bằng với vị trí của nó trong chương trình (hàng dưới cùng là hàng 0, cái ở trên nó là hàng 1 và cứ thế). Hãy ghi nhớ điều này, hãy phân tích cách thức hoạt động của mã:

..).. || 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 byte

X/n
o@i

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

Bất kỳ dấu tách không chữ số hoạt động. In 1cho bình đẳng và 0khác.

Giải trình

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 byte

¥Vn

Thử nó

Chuyển đổi đầu vào thứ hai thành một số nguyên và so sánh bằng với đầu tiên.

APL (Dyalog) , 4 byte

3 byte được lưu nhờ vào @ Adám

=/⍎¨

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

jq, 24 ký tự

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

2 chuỗi được truyền dưới dạng các mục của một mảng.

Chạy mẫu:

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

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

Hãy thử trực tuyến! ( Tất cả các trường hợp thử nghiệm )

Husk , 3 byte

¤=r

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

Giải trình

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

PowerShell , 20 byte

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

Tương tự như câu trả lời JavaScript, chỉ lâu hơn vì PowerShell không có cà ri. Sử dụng +để truyền chuỗi đầu tiên thành số nguyên, và sau đó-eq uals tự động chuyển chuỗi thứ hai thành số nguyên. Đầu ra là Đúng / Sai.

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

PowerShell , 19 byte

$args-join'-eq'|iex

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

-joinmảng đối số ( $args) với biểu diễn chuỗi của toán tử so sánh ( -eq) sau đó đánh giá biểu thức với Invoke-Expression( iex).

Q (Kdb +), 13 byte

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

Giải trình

(x; y): danh sách hai đầu vào.

"J" $: chuyển từng đầu vào thành một loại dài (7j) từ chuỗi (10c), có thể diễn giải chính xác
khoảng trắng và 0 đầu.

= /: kiểm tra sự bằng nhau trên các phần tử trong danh sách (mỗi cặp tiếp theo).
Vì chỉ có một cặp, trả về boolian đơn 0b / 1b.

T-SQL, 35 byte

Theo tiêu chuẩn của chúng tôi , dữ liệu được nhập thông qua bảng có sẵn tvới varcharcác trường avà b.

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

Trả về 1nếu chúng khớp, 0nếu chúng không.

Một vài trong số các hàm toán học SQL (bao gồm ABS, FLOORvà CEILING) sẽ làm một chuyển đổi ngầm để số nếu được thông số chuỗi, đây là ngắn hơn so với một rõ ràng CAST(a AS INT)hoặcCONVERT(INT,b) , và các công trình trong trường hợp này vì chúng tôi biết các giá trị đầu vào luôn tích cực.

IIF là dành riêng cho MS SQL 2012 trở lên, vì vậy không có gì đảm bảo về việc triển khai khác.

VBA Excel, 27 16 byte

-9 Cảm ơn @Nayrb và @TaylorScott

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

Nơi bạn nhập các giá trị trên các ô với 'string.

Ở đâu xvà ylà đầu vào Strings và zlà một đầu ra Boolean.

Nếu CInt (x) = CInt (y) thì z = 1

Sử dụng CInt

R , 28 27 byte

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

Đọc các số dưới dạng chuỗi, chuyển đổi chúng thành số đôi và kiểm tra xem sự khác biệt của chúng có phải không.

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

Byte1 byte nhờ Giuseppe

Lua , 20 byte

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

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

Haskell , 20 byte

-11 byte nhờ Laikoni. -2 byte nhờ Zgarb.

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

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

Gema , 21 ký tự

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

Không có boolean trong Gema. Như@get-switch{}@set-switch{} hàm / sử dụng 0 và 1 để biểu thị trạng thái chuyển đổi, cũng được sử dụng 0 và 1.

2 chuỗi được truyền trên các dòng đầu vào riêng biệt.

Chạy mẫu:

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 byte

$_=$_==<>

thử trực tuyến

Xếp chồng , 8 byte

[#~\#~=]

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

Giải trình

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

Tùy viên , 11 byte

Same@Map&:N

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

Điều này có một loạt các chuỗi, chẳng hạn như V["0001", "1 "]. Nói một cách đơn giản, Map&:Nlà một hàm ánh xạ Nđối số của nó và Samekiểm tra xem mảng chỉ chứa các thành viên bằng nhau. (Sự thật thú vị: hàm này hoạt động với hơn 2 đối số chuỗi.)

SNOBOL4 (CSNOBOL4) , 42 byte

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

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

Kết quả 1 cho sự thật, không có gì cho falsey. Vì (dấu cách) là toán tử ghép trong SNOBOL, nên EVALmột số có khoảng trắng ở đầu / cuối sẽ tự tạo ra số đó và nó cũng chăm sóc gọn gàng cho bất kỳ số 0 đầu nào. EQkiểm tra sự bằng nhau về số, đặt điều kiện thành OUTPUT1 trên Success.

Sinclair ZX81 / Timex TS1000 / 1500 BASIC, ~ 29 byte BASIC được mã hóa

Giải pháp mới nhờ Neil (cảm ơn vì tiền boa).

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

Giải pháp này yêu cầu đầu vào của người dùng, vì vậy hãy nhập hai chuỗi có khoảng trắng và / hoặc các số 0 đứng đầu hoặc nhập hai chuỗi có giá trị số không bằng nhau; 0là sai và1 đúng khi dòng ba đã so sánh giá trị của mỗi chuỗi được nhập.

Giải pháp cũ: Sinclair ZX81 / Timex TS1000 / 1500 BASIC, ~ 46 byte BASIC được mã hóa

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

Việc kiểm tra thực tế được thực hiện trong dòng ba, chỉ có ~ 16 byte BASIC được mã hóa; vì vậy, nhập từng cặp trường hợp thử nghiệm bằng chế độ trực tiếp sẽ tiết kiệm ~ 30 byte từ danh sách. Lưu ý rằng số byte này không bao gồm var stack.

APL (NARS2000) , 7 byte

=⍥⍎

Vâng, vâng, tôi biết NARS2000 không thể cạnh tranh với Dyalog ở đây vì nó sử dụng Unicode, nhưng tôi nghĩ rằng tôi muốn thể hiện hơn ⍥(được gọi là Thành phần trong NARS2000, mặc dù nó thực sự không liên quan đến thành phần chức năng), nhưng điều gì đó Dyalog không có sẵn như là một tích hợp và tôi chưa từng thấy được sử dụng ở đây. Trong Dyalog, nó phải được thực hiện như {(⍵⍵⍺)⍺⍺⍵⍵ ⍵}. Những gì nó làm là gọi hàm đơn thức toán hạng bên phải trên cả đối số bên trái và bên phải, và sau đó gọi hàm toán hạng bên trái trên các kết quả.

Ở đây, toán hạng bên phải là ⍎( Thực thi , tức là eval) và toán hạng bên trái là =( Bằng , nghĩa là kiểm tra xem các đối số của nó có bằng nhau không).