14

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

Это код-гольф , поэтому сделайте ваш код как можно короче!

code-golf number decision-problem Субин Саджу
источник

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 в Python 1 == True, я думаю, что где-то есть мета пост

Стивен

1

@tsh - релевантная мета «если крякает как число, это число» - в Python: False * Trueis 0; False + Trueесть 1; и т.д ...

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

Из соответствующей мета: «это не относится к задачам, где требуется точный вывод строки», поэтому я не уверен, что действительно применимо здесь.

GB

8

Perl 6 , 7 байт

*.Set>2

Попробуйте онлайн!

nwellnhof
источник

8

R 13 байт

Другое решение для @Kirill, использующее mad()для непреднамеренных целей!

mad(scan())>0

Попробуйте онлайн!

j.doe
источник

1

Входные данные для скважины вообще не указаны, поэтому IMO, принимающий 3 значения в качестве входных данных, означает, что мы можем принять вектор

digEmAll

2

R почти конкурирует с языками гольфа! : D

digEmAll

1

Я считаю, что Гаусс придумал madименно для этой цели.

ноября

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, да, у меня это тоже было, но в нынешнем виде спецификация не позволит - будет обновляться, если спецификация изменится.

Лохматый

Ой, подожди. Я могу просто добавить &122 байта.

Лохматый

4

Рубин , 16 байт

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

Попробуйте онлайн!

гигабайт
источник

-3 байта сuniq!

benj2240

Boolean и Integer - это разные типы в Ruby.

ГБ

Ах, ты прав. Я недостаточно внимательно прочитал задачу и предположил, что достаточно правдивого / фальшивого вывода.

benj2240

4

Cubix , 55 25 байт

-29 благодаря Джо Кингу

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

Попробуйте онлайн!

Должно быть возможным отключить несколько байтов.

Люк
источник

26 байт

Джо Кинг,

Большое спасибо. Мне удалось сбрить еще 1 байт, чтобы получить в общей сложности 25 байтов

Лука,

Я думаю, что вы можете пропустить @вместо .9-го места. Заставляет это делать некоторые забавные вещи для 1 2 2.

MickyT

3

05AB1E , 2 байта

ÙQ

Попробуйте онлайн или проверьте еще несколько случаев .

Объяснение:

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

Кевин Круйссен
источник

Использование стандартных правил правдивости / ложности для решения проблемы , учитывая, что 1это единственное достоверное значение в 05AB1E, ¢Pработает так же, как альтернативный 2-байтовый.

г-н Xcoder

1

@ Mr.Xcoder Я не уверен, что это действительно актуально в настоящее время - вопрос требует выводов 1 и 0 - 4например, ни, 1ни 0, ни не действует как 1или 0(как Trueи Falseв Python). Вопрос, вероятно, следует задавать для Truthy / Falsey, но в настоящее время это не так.

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

3

Mathematica, 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
]

Prismo
источник

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

Попробуйте онлайн!

gastropner
источник

Не работает [4,2,3]

ГБ

@ ГБ Совершенно верно!

гастропнер

2

K (ок) , 4 байта

3=#?

Попробуйте онлайн!

Число отдельных элементов равно 3?

streetster
источник

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

Mazzy
источник

1

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

AdmBorkBork

отличный! и спасибо

Маззи

2

Желе , 2 байта

QƑ

Попробуйте онлайн!

dylnan
источник

2

Common Lisp, 25 2 байта

/=

Попробуйте онлайн!

-23 байта благодаря @ceilingcat!

Renzo
источник

Спасибо, @ceilingcat, я обновил ответ!

Renzo

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 байт

благодаря @ Оливье Грегуар

(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

Quintec
источник

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. Я должен был прочитать документацию более внимательно, извините за это. Я отредактирую, как только получу на свой компьютер.

Quintec

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

Входные данные взяты как отдельные столбцы a, b, c из ранее существующей таблицы s , в соответствии с нашими стандартами IO .

Попробовал вариант, используя COUNT DISTINCTвходные данные, взятые как отдельные строки, но это было на пару байтов длиннее.

BradC
источник

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

Брахилог , 6 байт

d?∧1|0

Попробуйте онлайн!

краткое объяснение

d? d вводит тест, если он по-прежнему равен input ( ? )

∧1 если true, верните 1

|0 еще вернуть 0

Kroppeb
источник

1

> <> , 19 17 байт

-2 байта Джо Кинг.

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

Попробуйте онлайн!

PidgeyUsedGust
источник

17 байт

Джо Кинг,

Я должен был определенно поймать это, спасибо!

PidgeyUsedGust

@RushabhMehta Пожалуйста, не играйте в гольф посты других пользователей, используя подсказки других игроков.

Джонатан Фрех,

1

q 14 байтов

{x~distinct x}

Технически это решение будет возвращать «1b» или «0b», что отличает логическое значение от числового типа, хотя оно сохраняет все арифметические функции и, по сути, равно 1 или 0:

q)1b +35
36

Чтобы вернуть 1 или 0 не-логическое значение, у вас есть ниже, который принимает количество байтов до 21

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

Thaufeki
источник

1

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

НГН

1

JavaScript (Node.js) , 67 байт

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

Попробуйте онлайн!

источник

Извините, но ответ J уже здесь, и код точно такой же.

Bubbler

мой плохой @Bubbler не ожидал этого.

изменил на JS ответ

@Bubbler Повторяющиеся записи не запрещены .

Джонатан Фрех

1

Желе , 5 6 байт

ɠḲQL=3

Попробуйте онлайн!

От 5 до 6 байт, потому что это мой первый раз, и я испортил (упс) исправил это сейчас

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

Котенок Хаггер
источник

1

Привет и добро пожаловать в PPCG. Ваш код также работает 3 integers, или он функционален только для трех цифр?

Джонатан Фрех

@Jonathan Frech К сожалению, он работает только для трех однозначных чисел, он делает это путем сортировки ввода по уникальным символам, а затем проверяет, совпадает ли количество уникальных символов с длиной ввода. Может быть, есть способ заставить его работать с любыми тремя целыми числами, но я думаю, что это хорошая попытка для меня, по крайней мере!

Котенок Хаггер,

2

В задании указано, что вам дадут 3 целых числа в качестве входных данных. что делает ваш ответ недействительным.

Джонатан Фрех

@JonathanFrech Исправлено сейчас! Я впервые так делал, поэтому я не самый лучший в этом.

Котенок Хаггер,

Все три целых числа различны?

Ответы:

Python 3 , 23 21 20 байт

Perl 6 , 7 байт

R 13 байт

R , 24 22 20 байт

JavaScript, 22 байта

Рубин , 16 байт

Cubix , 55 25 байт

05AB1E , 2 байта

Mathematica, 13 байт

брейкфук , 91 байт

Как это устроено

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

объяснение

J , 4 байта

Объяснение:

C (gcc) , 25 26 байтов

K (ок) , 4 байта

Powershell, 27 25 байт

Желе , 2 байта

Common Lisp, 25 2 байта

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

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

Атташе , 10 байт

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

Java 9, 43 27 байт

Красный , 21 байт

T-SQL, 39 байт

Pyth, 3 байта

объяснение

SmileBASIC, 25 24 байта

Брахилог , 6 байт

краткое объяснение

> <> , 19 17 байт

q 14 байтов

JavaScript (Node.js) , 67 байт

Желе , 5 6 байт

Все три целых числа различны?

Ответы:

Python 3 , 23 21 20 байт

Perl 6 , 7 байт

R 13 байт

R , 24 22 20 байт

JavaScript, 22 байта

Рубин , 16 байт

Cubix , 55 25 байт

05AB1E , 2 байта

Mathematica, 13 байт

брейкфук , 91 байт

Как это устроено

Japt -N, 3 байта

объяснение

J , 4 байта

Объяснение:

C (gcc) , 25 26 байтов

K (ок) , 4 байта

Powershell, 27 25 байт

Желе , 2 байта

Common Lisp, 25 2 байта

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

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

Атташе , 10 байт

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

Java 9, 43 27 байт

Красный , 21 байт

T-SQL, 39 байт

Pyth, 3 байта

объяснение

SmileBASIC, 25 24 байта

Брахилог , 6 байт

краткое объяснение

> <> , 19 17 байт

q 14 байтов

JavaScript (Node.js) , 67 байт

Желе , 5 6 байт

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

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