14

Вам буде надано 3 цілі числа як вхідні дані. Вхідні дані можуть відрізнятися один від одного. Ви повинні вивести 1, якщо всі три входи відрізняються один від одного, і 0, якщо будь-який вхід повторюється більше одного разу.

Це код-гольф , тому зробіть свій код якомога коротшим!

code-golf number decision-problem

— subin saju
джерело

1

Ласкаво просимо до PPCG. Гарний перший виклик. Ми досить суворі щодо об'єктивних критеріїв виграшу на цьому сайті. Код-гольф, здається, є очевидним вибором тут, тому я додам це до вашого допису. Виправте мене, якщо я помиляюся.

— Адам

1

Деякі тестові випадки були б непогані.

— Адам

19

Хто бідував на всі відповіді, повинен хоча б пояснити, чому ...

— Арнальд,

1

@ Adám Я думаю, що більш точним буде заголовок Чи всі три цілі числа відрізняються?

— Арнольд

5

Мій голосовий голос - молоток, але можливий дублікат " Визначте, чи всі десяткові цифри унікальні " Трохи різні, але більшість відповідей все одно можна перенести.

— Кевін Кройсейсен

10

Python 3 , 23 21 20 байт

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

Спробуйте в Інтернеті!

— TFeld
джерело

ОП попросив 1 проти 0, тому, можливо, вам знадобиться ще один байт:lambda*a:len({*a})//3

— tsh

@tsh в Python 1 == True, я думаю, що десь є метапост

— Стівен,

1

@tsh - відповідна мета "якщо воно б'ється як число, це число" - в Python: False * Trueє 0; False + Trueє 1; тощо ...

— Джонатан Аллан

З відповідної мета: "це не стосується викликів, коли потрібен точний вихід рядків", тому я не впевнений, що тут дійсно застосовується

— GB

8

Perl 6 , 7 байт

*.Set>2

Спробуйте в Інтернеті!

— nwellnhof
джерело

8

R , 13 байт

Інше рішення для @Kirill, використовуючи mad()непередбачувані цілі!

mad(scan())>0

Спробуйте в Інтернеті!

— Дж. До
джерело

1

Вхідні колодязі взагалі не вказані, тому IMO, приймаючи 3 значення як введення, означає, що ми можемо прийняти вектор

— digEmAll

2

R майже конкуруючи з мовами гольфу! : D

— digEmAll

1

Я вважаю, що Гаусс винайшов madсаме для цієї мети.

— ngm

5

R , 24 22 20 байт

all(table(scan())<2)

Спробуйте в Інтернеті!

Повертається булевим, але оскільки люди вже обговорювали відповідь на Python , це повинно бути нормально.

Завдяки digEmAll за збереження 2 байтів.

— Кирило Л.
джерело

2

20 байт портація R рішення дуже схоже запитання

— digEmAll

11 байт - якщо вам дозволено мати будь-яке число> 0 як truthey. В іншому випадку додайте >0для TRUE/FALSEвиведення в 13 байт.

— J.Doe

1

Нічого собі, навіть не знали про цю функцію. Я б запропонував опублікувати його окремо (відредагувати та відновити видалену відповідь), але я думаю, що вам доведеться дотримуватися 13 байтів - тоді як T / F дійсно діє як 1/0, 1,48 не відповідає.

— Кирило Л.

5

JavaScript, 22 байти

Якщо ми можемо вивести булеві значення, то останні 2 байти можна видалити.

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

Спробуйте в Інтернеті

Для одного і того ж числа байтів, це працює на масивах будь-якого розміру, але припускає, що вхід ніколи не містить a, 0а вихід булевий.

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

Спробуйте в Інтернеті

— Кудлатий
джерело

Припускаючи, що ми можемо взяти вхід як масив і повернути булеве значення:a=>new Set(a).size>2

— Arnauld

@Arnauld, так, у мене це теж було, але, як він стоїть, специфікація цього не дозволить - буде оновлено, якщо специфікація зміниться.

— Кудлатий

Зачекайте. Я можу просто застосувати &122 байти.

— Кудлатий

4

Рубін , 16 байт

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

Спробуйте в Інтернеті!

— ГБ
джерело

-3 байти зuniq!

— benj2240,

Boolean і Integer - різні типи в Ruby.

— ГБ

Ах, ти маєш рацію. Я недостатньо уважно прочитав виклик, і припустив, що результату "truthy / falsey" буде достатньо.

— benj2240

4

Cubix , 55 25 байт

-29 завдяки Джо Кінгу

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

Спробуйте в Інтернеті!

Потрібно мати можливість відіграти в гольф досить багато байтів.

— Лука
джерело

26 байт

— Джо Кінг

Дуже дякую. Мені вдалося поголити ще 1 байт, щоб отримати загальний

— Люк,

Я думаю, що ти можеш пропустити @місце .на 9-му місці. Змушує це робити кілька прикольних речей для 1 2 2.

— MickyT

3

05AB1E , 2 байти

ÙQ

Спробуйте в Інтернеті або перевірте ще кілька справ .

Пояснення:

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

— Кевін Круїссен
джерело

Використання стандартних правил truthy / falesy для вирішення проблеми , маючи на увазі, що 1це єдине значення truthy в 05AB1E, ¢Pпрацює також як альтернативний 2-байт.

— Містер Xcoder

1

@ Mr.Xcoder Я не впевнений , що на насправді в даний час дійсно - питання задає для виходів 1 і 0 - 4, наприклад, не є ні , 1ні 0, ні не діє , як 1і 0(як Trueі Falseроблять в Python). Це питання, мабуть, слід задати Труті / Фолсі, але наразі це не так.

— Джонатан Аллан

3

Математика, 13 байт

Boole[E!=##]&

Чиста функція. Приймає три цілі числа як вхідні дані та повернення 0або 1як вихідні. Я знаю, що це досить схоже на відповідь Девіда Г. Сторка , але він використовує SlotSequenceдля того, щоб стригти байт (порівняно з Boole@*Unequal).

— LegionMammal978
джерело

3

мозковий ебать , 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
]

— Призма
джерело

2

Japt `-N`, 3 байти

eUâ

Спробуй це

Пояснення

Uâрозмножує вхідні дані та eтести, якщо вона дорівнює оригіналу.

— Кудлатий
джерело

2

J , 4 байти

-:~.

Спробуйте в Інтернеті!

Пояснення:

Чи рівний -:сам аргумент після вилучення дублікатів~.

— Гален Іванов
джерело

2

C (gcc) , 25 26 байт

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

Спробуйте в Інтернеті!

— гастропнер
джерело

Виходить з ладу [4,2,3]

— GB

@GB Цілком правильно!

— гастропнер

2

K (oK) , 4 байти

3=#?

Спробуйте в Інтернеті!

Чи дорівнює кількість відокремлених елементів 3?

— вулиця
джерело

2

Powershell, 27 25 байт

-2 байти дякую @AdmBorkBork

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

Тестовий сценарій:

$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

Пояснення:

    $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

— запаморочливий
джерело

1

26 байт -+(($args|group).count-eq3)

— AdmBorkBork

чудово! і спасибі

— mazzy

2

Желе , 2 байти

QƑ

Спробуйте в Інтернеті!

— ділнан
джерело

2

Лист звичайний, 25 2 байти

/=

Спробуйте в Інтернеті!

-23 байти завдяки @ceilingcat!

— Ренцо
джерело

Дякую, @ceilingcat, я оновив відповідь!

— Ренцо

1

APL (Dyalog Unicode) , 3 байти ^SBCS

Функція анонімного мовчазного префікса. Аргумент бере список.

∪≡⊢

Спробуйте в Інтернеті!

∪ робить набір унікальних елементів з аргументу

≡ сірник

⊢ незмінений аргумент?

— Адам
джерело

1

Чистота , 32 байти

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

Спробуйте в Інтернеті!

— Οurous
джерело

1

Приєднати , 10 байт

`==#Unique

Спробуйте в Інтернеті!

Це виделка оператора `==і Unique, еквівалентна:

{ _ == Unique[_] }

Альтернативи

{#_=#Unique[_]} (15 байт)

Any##Same=>Pairs@Sort (21 байт)

Any@{`=&>_[[0'1,1'2,2'0]]} (26 байт)

&${not(x=y or y=z or x=z)} (26 байт)

&${x/=y and y/=z and x/=z} (26 байт)

{Any!Same=>Chop&2!_[0'1'1'2'2'0]} (33 байти)

— Конор О'Брайен
джерело

1

Java 9, 43 27 байт

завдяки @Olivier Grégoire

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

Попередня спроба:

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

— Квінтек
джерело

1

Чому б не порахувати його як 43 байти

— лише для ASCII,

1

27 байт : (a,b,c)->a!=b&b!=c&a!=c?1:0.

— Олів'є Грегоар

Крім того, перший код (100 байт) не компілює і не використовує, ==що не застосовується Stringбез проблем, з якими ви стикаєтесь тут (після виправлення компіляції), а у другому коді Set.ofметод викине, IllegalArgumentExceptionякщо надається якийсь дублікат . Мені спокуса -1, щоб взагалі не тестувати.

— Олів'є Грегоар

@olivier Вибачення - було пізно, і я переплутав кілька різних ідей у голові. Щодо Set.of, я просто експериментував з перевагами Java 9, а сам Java 9 не мав. Я повинен був уважніше прочитати документацію, вибачте за це. Я відредагую, як тільки перейду на комп’ютер.

— Квінтек

1

Червоний , 21 байт

func[b][b = unique b]

Спробуйте в Інтернеті!

— Гален Іванов
джерело

1

T-SQL, 39 байт

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

Введення береться в вигляді окремих стовпців а, b, с з попередньо існуючої таблиці з , в відповідно з нашими стандартами IO .

Спробував варіацію, використовуючи COUNT DISTINCTдані, взяті як окремі рядки, але це було на пару байт довше.

— БредК
джерело

1

Pyth, 3 байти

s{I

Вводиться як список.
Спробуйте тут

Пояснення

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

Якщо нам дозволено трактувати True та False як 1 і 0 (що вони знаходяться під кришкою в Pyth), ми можемо скинути цю точку, sщоб опуститися до 2 байтів.

1

SmileBASIC, 25 24 байти

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

— 12Me21
джерело

1

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

— Kroppeb
джерело

1

><>, 19 17 bytes

-2 bytes by Jo King.

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

Try it online!

— PidgeyUsedGust
джерело

17 bytes

— Jo King

I should have definitely caught that, thanks!

— PidgeyUsedGust

@RushabhMehta Please do not golf other user's posts using other user's golfing suggestions.

— Jonathan Frech

1

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]}

— Thaufeki
джерело

1

{1&/0N>':x?x}

— ngn

1

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!

Sorry, but J answer is already here and the code is exactly the same.

— Bubbler

my bad @Bubbler didn't see that coming.

changed to JS answer

@Bubbler Duplicate entries are not disallowed.

— Jonathan Frech

1

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

— Kitten Hugger
джерело

1

Hello and welcome to PPCG. Does your code also work for 3 integers, or is it only functional for three digits?

— Jonathan Frech

@Jonathan Frech Sadly, it only works for three 1 Digit numbers, it does this by sorting the input by unique characters, then testing if the amount of unique characters is the same length as the input. Maybe there is a way to get it to work with any 3 integers, but I think this is a good attempt for me at least!

— Kitten Hugger

2

The challenge specifies You will be given 3 integers as input. which seems to render your answer invalid.

— Jonathan Frech

@JonathanFrech Fixed it now! Was my first time doing this sort of thing so, I'm not the greatest at it.

— Kitten Hugger

Чи всі три цілі числа відрізняються?

Python 3 , 23 21 20 байт

Perl 6 , 7 байт

R , 13 байт

R , 24 22 20 байт

JavaScript, 22 байти

Рубін , 16 байт

Cubix , 55 25 байт

05AB1E , 2 байти

Математика, 13 байт

мозковий ебать , 91 байт

Як це працює

Japt -N, 3 байти

Пояснення

J , 4 байти

Пояснення:

C (gcc) , 25 26 байт

K (oK) , 4 байти

Powershell, 27 25 байт

Желе , 2 байти

Лист звичайний, 25 2 байти

APL (Dyalog Unicode) , 3 байти SBCS

Чистота , 32 байти

Приєднати , 10 байт

Альтернативи

Java 9, 43 27 байт

Червоний , 21 байт

T-SQL, 39 байт

Pyth, 3 байти

Пояснення

SmileBASIC, 25 24 байти

Brachylog, 6 bytes

short explanation

><>, 19 17 bytes

q 14 bytes

JavaScript (Node.js), 67 bytes

Jelly, 5 6 bytes

Japt `-N`, 3 байти

APL (Dyalog Unicode) , 3 байти ^SBCS