Saya punya masalah di tempat kerja. Saya perlu membandingkan dua angka yang datang sebagai string dari dua basis data yang berbeda. Angka-angka mungkin datang dengan angka nol di depan dan / atau spasi di depan / belakang. Jadi saya mungkin punya "0001 "dari satu database dan " 1 "dari yang lain.

Saya memecahkan masalah dalam C # dengan kode berikut:

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

Tantangan

Ini adalah tantangan yang sangat sederhana, cocok untuk pemula dan segala jenis bahasa esoterik. Diberi dua angka sebagai string yang mungkin datang dengan angka nol di depan dan / atau spasi di depan / belakang, tulis kode terpendek yang memeriksa apakah kedua string tersebut mewakili angka yang sama.

• Input harus berupa dua string atau setara dalam bahasa Anda (array char OK), dan mereka akan selalu mewakili nilai integer lebih besar dari nol.
• Keluaran harus berupa dua nilai yang konsisten yang mewakili nilai kebenaran dan nilai palsu.

Contohnya

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

Ini adalah kode-golf , jadi semoga kode terpendek untuk setiap bahasa menang!

Javascript , 11 byte

a=>b=>+a==b

Menyalahgunakan aturan casting Javascript sedikit; +amemaksa amenjadi tipe numerik.

-6 byte terima kasih kepada Shaggy dan Martin Ender ♦

Juga take keren oleh LiefdeWen :

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

05AB1E , 1 byte

Q

Cobalah online!

Penjelasan

Perbandingan untuk persamaan Qakan secara otomatis mencoba untuk mengevaluasi string sebagai int sebelum membandingkan.

Operasi bahasa scripting Flashpoint , 33 byte

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

Telepon dengan:

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]

Keluaran:

Versi alternatif (41 byte):

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

Masih 5 byte lebih pendek dari yang lebih mudah 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(yang mengembalikan ukuran array) berfungsi sebagai ganti forEach, karena Anda bisa memberikannya "lambda" yang digunakan sebagai kondisi untuk menghitung hanya elemen array yang memenuhi kondisi itu. "Kondisi" yang digunakan dalam kasus ini bukan kondisi yang valid, tetapi tidak masalah di sini karena tidak menyebabkan kesalahan dan nilai pengembalian counttidak diperlukan.

Taksi , 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.

Cobalah online!

Tidak Disatukan:

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.

Taksi (relatif) sangat cocok untuk tantangan ini karena string adalah satu-satunya tipe input atau output yang diperbolehkan. The Babelfisheryadalah apa yang mengubah string menjadi angka (dan sebaliknya) dan itu menangani pengupasan semua ruang dan memimpin nol. Ini juga akan menangani angka negatif jika -tepat sebelum digit pertama. Setelah itu, Equal's Cornerperiksa kedua nilai terhadap satu sama lain dan Writer's Depotmemberikan output dalam format string. Keluaran adalah 1untuk kebenaran dan 0untuk kepalsuan.

C (gcc) , 27 byte

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

Dengan -O0(yang merupakan pengaturan default).

Cobalah online!

C, 32 byte

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

Cobalah online!

J , 4 byte

=&do

Bandingkan =setelah &mengevaluasi do. Dapat juga =&". Coba online!

Retina , 11 byte

.+
$*
D`
¶$

Cobalah online!

Input dipisahkan dengan umpan baris, tetapi ruang uji menggunakan pemisahan koma untuk kenyamanan. Mencetak 1untuk persamaan dan 0untuk ketidaksetaraan.

Penjelasan

.+
$*

Konversi setiap baris ke unary. Ini mengabaikan nol dan spasi terkemuka.

D`

Deduplicate: bersihkan baris kedua jika keduanya sama.

¶$

Pastikan string sekarang diakhiri dengan linefeed.

Python 3 , 25 byte

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

Cobalah online!

Brain-Flak , 22 byte

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

Cobalah online!

Disimpan 4 byte berkat Jo King .

Triangularity , 17 byte

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

Cobalah online!

Triangularity, untuk sekali, kompetitif!

Bagaimana itu bekerja

Triangularity memerlukan kode untuk memiliki distribusi titik-titik. Artinya, panjang setiap baris harus sama dengan jumlah baris dikalikan 2 dan dikurangi, dan setiap baris harus memiliki (di setiap sisi) sejumlah titik yang sama dengan posisinya dalam program (baris bawah adalah baris 0, yang di atasnya adalah baris 1 dan seterusnya). Ingatlah ini, mari kita menganalisis bagaimana kode bekerja:

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

Cobalah online!

Pemisah non-digit berfungsi. Mencetak 1untuk kesetaraan dan 0sebaliknya.

Penjelasan

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

Cobalah

Mengonversi input kedua ke integer dan membandingkan persamaan dengan yang pertama.

APL (Dyalog) , 4 byte

3 byte disimpan berkat @ Adám

=/⍎¨

Cobalah online!

jq, 24 karakter

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

2 string dilewatkan sebagai item dari array.

Contoh dijalankan:

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

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

Cobalah online! ( Semua kasus uji )

Sekam , 3 byte

¤=r

Cobalah online!

Penjelasan

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

PowerShell , 20 byte

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

Mirip dengan jawaban JavaScript, hanya lebih lama karena PowerShell tidak memiliki currying. Menggunakan +untuk melemparkan string pertama ke integer, dan kemudian -equals secara otomatis melemparkan string kedua ke integer. Output Benar / Salah.

Cobalah online!

PowerShell , 19 byte

$args-join'-eq'|iex

Cobalah online!

-joinarray argumen ( $args) dengan representasi string dari operator perbandingan ( -eq) kemudian mengevaluasi ekspresi dengan Invoke-Expression( iex).

Q (Kdb +), 13 byte

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

Penjelasan

(x; y): daftar dua input.

"J" $: casting setiap input ke tipe panjang (7j) dari string (10c), yang dapat menafsirkan
ruang putih dengan benar dan memimpin 0s.

= /: memeriksa persamaan elemen dalam daftar (setiap pasangan berikutnya).
Karena hanya ada satu pasangan, mengembalikan boolian 0b / 1b tunggal.

T-SQL, 35 byte

Sesuai standar kami , data dimasukkan melalui tabel yang sudah ada sebelumnya tdengan varcharbidang adan b.

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

Kembali 1jika mereka cocok, 0jika mereka tidak.

Beberapa fungsi matematika SQL (termasuk ABS, FLOORdan CEILING) akan melakukan konversi implisit ke numerik jika diberi parameter string, ini lebih pendek daripada eksplisit CAST(a AS INT)atau CONVERT(INT,b), dan berfungsi dalam kasus ini karena kita tahu nilai input selalu positif.

IIF khusus untuk MS SQL 2012 dan di atasnya, jadi tidak ada jaminan tentang implementasi lainnya.

Excel VBA, 27 16 Bytes

-9 Terima kasih kepada @Nayrb dan @TaylorScott

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

Di mana Anda memasukkan nilai pada Sel dengan 'string.

Di mana xdan di mana ystring input dan zmerupakan output Boolean.

Jika CInt (x) = CInt (y) Kemudian z = 1

Menggunakan CInt

R , 28 27 byte

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

Membaca angka sebagai string, mengubahnya menjadi dua kali lipat dan memeriksa apakah perbedaannya tidak nol.

Cobalah online!

Byte1 byte terima kasih kepada Giuseppe

Lua , 20 byte

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

Cobalah online!

Haskell , 20 byte

-11 byte terima kasih kepada Laikoni. -2 byte terima kasih kepada Zgarb.

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

Cobalah online!

Gema , 21 karakter

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

Tidak ada boolean di Gema. Karena @get-switch{}/ @set-switch{}fungsi menggunakan 0 dan 1 untuk mewakili status sakelar, juga menggunakan 0 dan 1.

2 string dilewatkan pada jalur input yang terpisah.

Contoh dijalankan:

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

$_=$_==<>

coba online

Ditumpuk , 8 byte

[#~\#~=]

Cobalah online!

Penjelasan

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

Attache , 11 byte

Same@Map&:N

Cobalah online!

Ini mengambil array string, seperti V["0001", "1 "]. Secara sederhana, Map&:Nadalah fungsi yang memetakan Nargumennya, dan Samememeriksa bahwa array hanya berisi anggota yang sama. (Fakta menyenangkan: fungsi ini berfungsi untuk lebih dari 2 argumen string.)

SNOBOL4 (CSNOBOL4) , 42 byte

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

Cobalah online!

Keluaran 1 untuk kebenaran, tidak ada untuk falsey. Karena (spasi) adalah operator concatenation di SNOBOL, EVALing nomor dengan spasi terdepan / tertinggal menghasilkan nomor itu sendiri, dan itu juga rapi mengurus setiap nol terkemuka. EQmenguji kesetaraan numerik, dengan pengaturan OUTPUT1 ke kondisi aktif Success.

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

Solusi baru terima kasih kepada Neil (terima kasih atas tipnya).

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

Solusi ini membutuhkan input pengguna, jadi masukkan dalam dua string dengan spasi putih dan / atau nol di depan, atau masukkan dua string dengan nilai numerik yang tidak sama; 0salah dan 1benar sekali baris ketiga telah membandingkan nilai dari setiap string yang dimasukkan.

Solusi lama: Sinclair ZX81 / Timex TS1000 / 1500 BASIC, ~ 46 byte BASIC tokenized

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

Pemeriksaan aktual dilakukan pada baris tiga, yang hanya ~ 16 byte BASIC tokenized; jadi memasuki setiap pasangan uji menggunakan mode langsung akan menghemat ~ 30 byte dari daftar. Perhatikan bahwa jumlah byte ini tidak termasuk var stack.

APL (NARS2000) , 7 byte

=⍥⍎

Ya, saya tahu NARS2000 tidak dapat bersaing dengan Dyalog di sini karena menggunakan Unicode, tapi saya pikir saya lebih suka pamer ⍥(dipanggil Komposisi dalam NARS2000, meskipun sebenarnya tidak terkait dengan fungsi komposisi), sesuatu yang tidak dilakukan Dyalog miliki sebagai built-in dan saya belum pernah melihat digunakan di sini. Di Dyalog, itu harus diimplementasikan sebagai {(⍵⍵⍺)⍺⍺⍵⍵ ⍵}. Apa yang dilakukannya adalah memanggil fungsi operan monadik kanan pada argumen kiri dan kanan, dan kemudian memanggil fungsi dyadic operan kiri pada hasil.

Di sini, operan kanan adalah ⍎( Execute , ie eval) dan operan kiri adalah =( Equal To , yaitu periksa apakah argumennya sama).