Anda akan diberikan 3 bilangan bulat sebagai input. Input mungkin atau mungkin tidak berbeda satu sama lain. Anda harus mengeluarkan 1 jika ketiga input berbeda satu sama lain, dan 0 jika ada input yang diulang lebih dari satu kali.

Ini kode-golf , jadi buat kode Anda sesingkat mungkin!

Python 3 , 23 21 20 byte

lambda*a:len({*a})>2

Cobalah online!

Perl 6 , 7 byte

*.Set>2

Cobalah online!

R , 13 byte

Solusi berbeda untuk @ Kirill dengan menggunakan mad()untuk tujuan yang tidak diinginkan!

mad(scan())>0

Cobalah online!

R , 24 22 20 byte

all(table(scan())<2)

Cobalah online!

Mengembalikan boolean, tetapi karena orang sudah membahas tentang jawaban Python , ini seharusnya OK.

Terima kasih kepada digEmAll untuk menghemat 2 byte.

JavaScript, 22 byte

Jika kita dapat menampilkan nilai boolean maka 2 byte terakhir dapat dihapus.

a=>new Set(a).size>2&1

Cobalah online

Untuk jumlah byte yang sama, ini bekerja pada array dengan ukuran berapa pun tetapi mengasumsikan input tidak akan pernah mengandung 0dan output adalah boolean.

a=>!a[new Set(a).size]

Cobalah online

Ruby , 16 byte

->a{1-(a<=>a|a)}

Cobalah online!

Cubix , 55 25 byte

-29 Terima kasih kepada Jo King

O@O1u|@O@II-!/;I-!/;u^?-p

Cobalah online!

Seharusnya dimungkinkan untuk bermain golf beberapa byte.

05AB1E , 2 byte

ÙQ

Cobalah online atau verifikasi beberapa kasus lagi .

Penjelasan:

Ù     # Uniquify the (implicit) input
 Q    # Check if it's still equal to the (implicit) input

Mathematica, 13 byte

Boole[E!=##]&

Fungsi murni. Mengambil tiga bilangan bulat sebagai input dan mengembalikan 0atau 1sebagai output. Saya tahu bahwa ini agak mirip dengan jawaban David G. Stork , tetapi ia mengeksploitasi SlotSequenceuntuk mengurangi byte (dibandingkan dengan Boole@*Unequal).

brainfuck , 91 byte

,>,>,[-<-<->>]>>+++++++[>+++++++<-]+<<<<[>]>>[<<<[-<->]<[>]>>->[>.<<<->>-]<+]<+[>>>[>]<-.>]

Cobalah online!

Bagaimana itu bekerja

,>,>,                   'read input as A, B, and C
[-<-<->>]>>+            'compute A-C, B-C
++++++[>+++++++<-]+     'prepare output
<<<<[>]>>               'if A-C != 0 && B-C != 0
[
    <<<[-<->]           'compute A-B
    <[>]>>->            'if A-B != 0
    [>.<<<->>-]         'print 1
    <+
]
<+
[                       'else (this else is for both of the if statements, even though they are nested... wierd, I know)
    >>>[>]              
    <-.>                'print 0
]

Japt -N, 3 byte

eUâ

Cobalah

Penjelasan

Uâdeduplikasi input dan etes jika sama dengan aslinya.

J , 4 byte

-:~.

Cobalah online!

Penjelasan:

Apakah argumen sama -:dengan dirinya sendiri setelah menghapus duplikat~.

C (gcc) , 25 26 byte

f(a,b,c){a=a-b&&a-c&&b-c;}

Cobalah online!

K (oK) , 4 byte

3=#?

Cobalah online!

Apakah jumlah elemen yang berbeda sama dengan 3?

Powershell, 27 25 byte

-2 byte terima kasih @AdmBorkBork

+!(($args|group).Count-3)

Skrip uji:

$f = {
+!(($args|group).Count-3)
}

&$f 1 2 3
&$f 3 2 1
&$f 2 1 3
&$f 2 2 3
&$f 2 1 1
&$f 2 1 2

Penjelasan:

    $args|group           # Group arguments
   (           ).Count    # Count of groups 
  (                   -3) # is 0 if inputed integers are unique
 !                        # operator not converts int to boolean: true if integers are unique
+                         # converts boolean to int: 1 if integers are unique, otherwise 0

Jelly , 2 byte

QƑ

Cobalah online!

Gangguan Umum, 25 2 byte

/=

Cobalah online!

-23 byte, terima kasih kepada @ceilingcat!

APL (Dyalog Unicode) , 3 byte ^SBCS

Fungsi awalan diam-diam anonim. Mengambil daftar sebagai argumen.

∪≡⊢

Cobalah online!

∪ apakah set elemen unik dari argumen

≡ pertandingan

⊢ argumen yang tidak dimodifikasi?

Bersih , 32 byte

import Data.List
$l|hasDup l=0=1

Cobalah online!

Attache , 10 byte

`==#Unique

Cobalah online!

Ini adalah garpu dari operator `==dan Unique, setara dengan:

{ _ == Unique[_] }

Alternatif

{#_=#Unique[_]} (15 byte)

Any##Same=>Pairs@Sort (21 byte)

Any@{`=&>_[[0'1,1'2,2'0]]} (26 byte)

&${not(x=y or y=z or x=z)} (26 byte)

&${x/=y and y/=z and x/=z} (26 byte)

{Any!Same=>Chop&2!_[0'1'1'2'2'0]} (33 byte)

Java 9, 43 27 byte

terima kasih kepada @Olivier Grégoire

(a,b,c)->a!=b&b!=c&a!=c?1:0 

Upaya sebelumnya:

(a)->a[0]==a[1]||a[0]==a[2]||a[1]==a[2]?0:1

Merah , 21 byte

func[b][b = unique b]

Cobalah online!

T-SQL, 39 byte

SELECT IIF(a=b OR b=c OR c=a,0,1)FROM s

Input diambil sebagai kolom terpisah a, b, c dari yang sudah ada meja s , per standar IO kami .

Mencoba variasi menggunakan COUNT DISTINCTdari input yang diambil sebagai baris terpisah, tapi itu beberapa byte lebih lama.

Pyth, 3 byte

s{I

Mengambil input sebagai daftar.
Coba di sini

Penjelasan

s{I
 {IQ     Check if the (implicit) input is invariant under deduplication.
s        Cast to int.

Jika kita diizinkan untuk memperlakukan True dan False sebagai 1 dan 0 (yang mereka berada di bawah tenda Pyth), kita dapat menjatuhkannya suntuk turun ke 2 byte.

SmileBASIC, 25 24 byte

READ A,B,C?A-B&&B-C&&C-A

Brachylog , 6 byte

d?∧1|0

Cobalah online!

penjelasan singkat

d? d eduplcates input tes jika masih sama dengan input ( ? )

∧1 jika benar mengembalikan 1

|0 lain kembali 0

> <> , 19 17 byte

-2 byte oleh Jo King.

:{:{:{=}=}=++0=n;

Cobalah online!

q 14 byte

{x~distinct x}

Secara teknis solusi ini akan mengembalikan '1b' atau '0b', yang merupakan cara nilai boolean dibedakan dari tipe numerik, meskipun ia mempertahankan semua fungsi aritmatika, dan pada dasarnya adalah 1 atau 0:

q)1b +35
36

Untuk mengembalikan 1 atau 0 non-boolean Anda memiliki yang di bawah ini, yang mengambil hitungan byte ke 21

{$[x~distinct x;1;0]}

JavaScript (Node.js) , 67 byte

f=a=>a.map((m,i)=>a.map((n,j)=>m==n&i!=j).every(z=>!z)).every(y=>y)

Cobalah online!

Jeli , 5 6 byte

ɠḲQL=3

Cobalah online!

Dari 5 hingga 6 byte karena ini adalah pertama kalinya saya dan saya mengacaukannya (whoops) memperbaikinya sekarang

ɠḲQL=3
^^^^^
||||Is it equal to three?
|||How many unique numbers do we have? (length of unique numbers array)
||Sort By Unique
|Split by Spaces
Read Input