คุณจะได้รับ 3 จำนวนเต็มเป็นอินพุต อินพุตอาจแตกต่างกันหรือไม่ก็ได้ คุณต้องเอาท์พุท 1 หากอินพุตทั้งสามนั้นแตกต่างกันและเป็น 0 ถ้าอินพุตใดซ้ำหลายครั้ง

นี่คือรหัส - กอล์ฟดังนั้นทำให้รหัสของคุณสั้นที่สุด!

Python 3 , 23 21 20 ไบต์

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

ลองออนไลน์!

Perl 6 , 7 ไบต์

*.Set>2

ลองออนไลน์!

R , 13 ไบต์

วิธีแก้ปัญหาที่แตกต่างสำหรับ @Kirill โดยใช้ mad()เพื่อวัตถุประสงค์ที่ไม่ได้ตั้งใจ!

mad(scan())>0

ลองออนไลน์!

R , 24 22 20 ไบต์

all(table(scan())<2)

ลองออนไลน์!

คืนค่าบูลีน แต่เมื่อผู้คนได้พูดถึงคำตอบของ Pythonแล้วก็ควรจะเป็นเช่นนั้น

ขอบคุณ digEmAll สำหรับการบันทึก 2 ไบต์

JavaScript ขนาด 22 ไบต์

หากเราสามารถส่งออกค่าบูลีนแล้ว 2 ไบต์สุดท้ายสามารถลบได้

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

ลองออนไลน์

สำหรับจำนวนไบต์เดียวกันนี้จะทำงานในอาร์เรย์ที่มีขนาดใดก็ได้ แต่สมมติว่าอินพุตจะไม่ประกอบด้วย a 0และเอาต์พุตเป็นบูลีน

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

ลองออนไลน์

ทับทิมขนาด 16 ไบต์

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

ลองออนไลน์!

Cubix , 55 25 ไบต์

-29 ขอบคุณ Jo King

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

ลองออนไลน์!

มันเป็นไปได้ที่จะตีกอล์ฟออกไปไม่กี่ไบต์

05AB1E , 2 ไบต์

ÙQ

ลองมันออนไลน์หรือตรวจสอบกรณีที่บางมากขึ้น

คำอธิบาย:

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

Mathematica ขนาด 13 ไบต์

Boole[E!=##]&

ฟังก์ชั่นบริสุทธิ์ ใช้จำนวนเต็มสามจำนวนเป็นอินพุตและส่งคืน0หรือ1เป็นเอาต์พุต ฉันรู้ว่าสิ่งนี้ค่อนข้างคล้ายกับคำตอบของ David G. Storkแต่มันเป็นการหาประโยชน์SlotSequenceเพื่อกำจัดไบต์ (เทียบกับBoole@*Unequal)

brainfuck , 91 ไบต์

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

ลองออนไลน์!

มันทำงานอย่างไร

,>,>,                   '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 ไบต์

eUâ

ลองมัน

คำอธิบาย

Uâdeduplicates อินพุตและeการทดสอบถ้ามันเท่ากับต้นฉบับ

J, 4 bytes

-:~.

Try it online!

Explanation:

Is the argument equal -: to itself after removing the duplicates ~.

C (gcc), 25 26 bytes

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

Try it online!

K (oK), 4 bytes

3=#?

Try it online!

Does the count of the distinct elements equal 3?

Powershell, 27 25 bytes

-2 bytes thanks @AdmBorkBork

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

Test script:

$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

Explanation:

    $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 bytes

QƑ

Try it online!

Common Lisp, 25 2 bytes

/=

Try it online!

-23 bytes thanks to @ceilingcat!

APL (Dyalog Unicode), 3 bytes^SBCS

Anonymous tacit prefix function. Takes list as argument.

∪≡⊢

Try it online!

∪ does the set of unique elements from the argument

≡ match

⊢ the unmodified argument?

Clean, 32 bytes

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

Try it online!

Attache, 10 bytes

`==#Unique

Try it online!

This is a fork of the operator `== and Unique, equivalent to:

{ _ == Unique[_] }

Alternatives

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

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

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

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

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

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

Java 9, 43 27 bytes

thanks to @Olivier Grégoire

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

Previous attempt:

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

Red, 21 bytes

func[b][b = unique b]

Try it online!

T-SQL, 39 bytes

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

Input is taken as separate columns a, b, c from a pre-existing table s, per our IO standards.

Tried a variation using COUNT DISTINCT from input taken as separate rows, but that was a couple bytes longer.

Pyth, 3 bytes

s{I

Takes input as a list.
Try it here

Explanation

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

If we're allowed to treat True and False as 1 and 0 (which they are under the hood in Pyth), we can drop the s to get down to 2 bytes.

SmileBASIC, 25 24 bytes

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

Brachylog, 6 bytes

d?∧1|0

Try it online!

short explanation

d? deduplcates input an test if still equal to input(?)

∧1 if true return 1

|0 else return 0

><>, 19 17 bytes

-2 bytes by Jo King.

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

Try it online!

q 14 bytes

{x~distinct x}

Technically this solution will return '1b' or '0b', which is the way a boolean value is distinguished from a numeric type, though it retains all arithmetic functionality, and so is in essence a 1 or 0:

q)1b +35
36

To return 1 or 0 non-boolean you have the below, which takes the byte count to 21

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

JavaScript (Node.js), 67 bytes

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

Try it online!

Jelly, 5 6 bytes

ɠḲQL=3

Try it online!

From 5 to 6 bytes because this is my first time and I messed up (whoops) fixed it now

ɠḲ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