Biorąc pod uwagę niepustą skończoną listę liczb całkowitych, wypisz prawdziwą wartość, jeśli istnieją dokładnie dwa równe wpisy, a wszystkie inne wpisy są różne, aw przeciwnym razie wartość falsey .

Przykłady

truthy:
[1,1]
[1,2,1]
[1,6,3,4,4,7,9]

falsey:
[0]
[1,1,1]
[1,1,1,2]
[1,1,2,2]
[2,1,2,1,2]
[1,2,3,4,5]

Python 3, 30 28 bajtów

lambda m:len({*m})+1==len(m)

Wypróbuj online!

{*m}rzutuje listę na setobiekt, nieuporządkowaną listę elementów bez duplikatów. Spowoduje to zawsze zmniejszenie długości listy o liczbę duplikatów. Obliczając, jak bardzo zmieniła się długość, możemy łatwo stwierdzić, czy lista miała jeden duplikat, i zwrócić wynik testu.

^{-2 bajty dzięki ovs.}

Łuska , 4 bajty

εṠ-u

Wypróbuj online!

Wyjaśnienie

εṠ-u  Implicit input.
   u  Unique elements.
 Ṡ-   Delete them from input, counting multiplicities.
ε     Is the result a singleton list?

MATL , 7 , 6 bajtów

&=sp4=

Wypróbuj online!

Jeden bajt zapisany dzięki @Guiseppe!

Wyjaśnienie:

&=  % Table of pair-wise equality comparisons
    %
    % [1 0 0 0 0 0 0
    %  0 1 0 0 0 0 0
    %  0 0 1 0 0 0 0
    %  0 0 0 1 1 0 0
    %  0 0 0 1 1 0 0
    %  0 0 0 0 0 1 0
    %  0 0 0 0 0 0 1]
    %
s   % Sum each Column. Stack:
    %
    % [1 1 1 2 2 1 1]
    %
p   % Product of the array. Stack:
    %
    % [4]
    %
4=  % Compare the stack to '4'

Haskell , 34 bajty

f x=[1|a<-x,b<-x,a==b]==1:1:(1<$x)

Wypróbuj online! Na podstawie odpowiedzi H.PWiz .

Galaretka , 8 5 bajtów

QL‘=L

Wypróbuj online!

Wyjaśnienie

QL‘=L  - Main link, argument L (a list)   e.g [1,6,3,4,4,7,9]
Q      - Deduplicated elements                [1,6,3,4,7,9]
 L     - Length                               6
  ‘    - Increment                            7
    L  - Length of the input                  7 ([1,6,3,4,4,7,9])
   =   - Are they equal?                      1

Jeśli wartości wyjściowe mogą być dowolnymi spójnymi wartościami, to QL_Ldziała, co -1daje wyniki dla prawdy i dla każdej innej nie dodatniej liczby dla falsey (dzięki @JonathanAllan)

JavaScript (ES6), 30 bajtów

a=>new Set(a).size==a.length-1

Wypróbuj online

Pushy , 8 bajtów

Prosta implementacja sprawdzania, czy len(set(list)) == len(list)-1:

LtvuL^=#

Wyjaśnienie:

       \ Implicit: Put all input on stack
Ltv    \ Get the stack length - 1, save in auxiliary stack
u      \ Remove non-unique elements
L      \ Get the new length
^=     \ Compare with the previously saved length
#      \ Print result

Działa to, ponieważ długość zmniejszy się tylko o 1, jeśli na liście początkowej była tylko dokładnie 1 nieróżna liczba całkowita.

Wypróbuj online!

Oktawa , 25 bajtów

To nie stosuje grouplub uniquepodejście jak wiele innych odpowiedzi, ale raczej „iloczyn” wszystkich możliwych Porównania.

@(x)nnz(triu(x==x',1))==1

Wyjaśnienie

             x==x'        %create a matrix where the entry at (i,j) compares whether x(i) == x(ju)
        triu(x==x',1)     %only consider the strict upper triangular matrix
    nnz(triu(x==x',1))    %count the number of nonzero entries
@(x)nnz(triu(x==x',1))==1 %check whether this number is actually 1

Wypróbuj online!

A ponieważ żaden program nie byłby kompletny bez splotu (dzięki @LuisMendo za naprawienie błędu):

Oktawa , 40 bajtów

@(x)nnz(~conv(sort(x),-1:2:1,'same'))==1

Wypróbuj online!

J , 7 6 bajtów

=&#0,=

=sprawdzaj równość każdego elementu z każdym unikalnym elementem, tworzy macierz z m rzędami dla  m  unikalnych elementów.
0,dodaj pusty wiersz na górze.
=&#czy liczba wierszy jest równa długości danych wejściowych?

Wypróbuj online!

Siatkówka , 15 12 11 bajtów

Podziękowania dla Neila za zaoszczędzenie 1 bajtu.

D`
Mm2`^$
1

Wypróbuj online!

Wejście jest oddzielone od linii. (Dla wygody zestaw testów używa rozdzielania przecinków).

Wyjaśnienie

D`

Deduplikuj linie na wejściu, co usuwa wszelkie liczby całkowite, które pojawiły się wcześniej (ale pozostawiają otaczające kanały).

Mm2`^$

Policz liczbę pustych linii, która jest równa liczbie duplikatów, które usunęliśmy, ale rozważ tylko dwa pierwsze dopasowania. Tak więc wynik będzie tylko 0(bez duplikatów), 1(jeden duplikat), 2(dwa lub więcej duplikatów).

1

Upewnij się, że dokładnie jeden duplikat został usunięty.

05AB1E , 4 bajty

{¥_O

Wypróbuj online!

Wyprowadza 1jako prawda, każda inna nieujemna liczba całkowita jako fałsz. W 05AB1E 1jest jedyną prawdziwą liczbą (dzięki @Emigna za wgląd!).

Wyjaśnienie

{       Implicit input. Sort
 ¥      Consecutive differences
  _     Boolean negate
   O    Sum. Implicit display

Rubinowy, 32 bajty

->(s){s.uniq.length==s.length-1}

C # (.NET Core) , 35 + 18 bajtów

+18 za użycie System.Linq.

n=>n.Distinct().Count()==n.Length-1

Wypróbuj online!

67 bajtowa alternatywa bez Linq:

n=>new System.Collections.Generic.HashSet<int>(n).Count==n.Length-1

Wypróbuj online!

Excel, 42 bajty

Duńska wersja językowa

=TÆLV(A:A)=SUM(--(FREKVENS(A:A,A:A)>0))+1

Zakłada każdą liczbę całkowitą z listy w osobnej komórce w kolumnie A.
Gdybyśmy mieli niespójne wartości falsey , moglibyśmy zaoszczędzić 3 bajty:

=TÆLV(A:A)+SUM(-(FREKVENS(A:A,A:A)>0))

Wersja angielska (44 bajty)

=COUNTA(A:A)=SUM(--(FREQUENCY(A:A,A:A)>0))+1

R , 32 31 bajtów

-1 bajt dzięki @JarkoDubbeldam

cat(sum(duplicated(scan()))==1)

Wypróbuj online!

Odczytuje ze standardowego, zapisuje na standardowe.

duplicatediteracji listy, zastępując wartości lze TRUEjeśli wartość nastąpi wcześniej na liście, a FALSEinaczej. Jeśli istnieje unikalna para bratnich dusz, powinna istnieć dokładnie jedna TRUEwartość, więc suma powinna wynosić 1.

PowerShell , 40 37 bajtów

($args|sort -u).count-eq$args.count-1

Wypróbuj online!

Sort-ObjectPoleceń (pseudonim sort) z -unique flagą wyciąga tylko unikalne składniki wejścia. Na przykład dla danych wejściowych @(1,3,3,2)spowoduje to @(1,2,3).

Dlatego musimy tylko upewnić się, że .countten obiekt (tj. Ile ma elementów) jest -eqzgodny .countz naszą tablicą wejściową -1(tj. Mamy dokładnie jeden zduplikowany wpis).

Zaoszczędzono 3 bajty dzięki Sinusoid.
Naprawiono błąd dzięki TessellatingHeckler.

Perl 5 , 36 + 1 ( -a) = 37 bajtów

map$k{$_}++,@F;@a=keys%k;say@a+1==@F

Wypróbuj online!

Haskell , 37 bajtów

f x=sum[1|a<-x,b<-x,a==b]==2+length x

Wypróbuj online!

Octave / MATLAB (z pakietem statystyk / zestawem narzędzi), 21 bajtów

@(x)nnz(~pdist(x))==1

Funkcja anonimowa. Dane wejściowe to wektor kolumny. Wyjście to true(wyświetlane jako 1) lub false(wyświetlane jako 0).

Wypróbuj online!

Wyjaśnienie

pdist(x)oblicza wektor odległości euklidesowych między wszystkimi parami rzędów od x. Bierze każdą parę tylko raz (kolejność dwóch rzędów nie ma znaczenia) i nie bierze pod uwagę par utworzonych przez ten sam rząd dwa razy.

W naszym przypadku xjest to wektor kolumnowy, więc odległość euklidesowa między dwoma rzędami jest absolutną różnicą między dwiema liczbami.

~jest logiczną (logiczną) negacją, nnzjest liczbą nonzerów i ==1porównuje się z 1. Wynik jest truewtedy i tylko wtedy, gdy jest tylko jedna para, która daje zerową odległość.

Jq 1,5 , 53 25 bajtów

length-(unique|length)==1

Zainspirowany odpowiedzią Riley i znacznie krótszą niż moje oryginalne rozwiązanie.

Wypróbuj online!

Julia, 39 26 bajtów

!a=sum(a.==a')==endof(a)+2

Wyjaśnienie

Kod generuje dwuwymiarową tabelę wartości logicznych, która jest następnie gromadzona za pomocą funkcji sumowania, zliczając liczbę par tego samego elementu w kartezjańskim kwadracie A. Następnie porównuje się to z długością ciągu plus dwa, a Ilości są równe tylko wtedy, gdy jest dokładnie jeden znak powtarzalny.

Ten kod przedefiniowuje operator NOT.

Pyth , 6 bajtów

qtlQl{

Sprawdź wszystkie przypadki testowe.

• l{ - Pobiera liczbę unikalnych elementów.

• tlQ - Pobiera długość listy danych wejściowych, zmniejszoną.

• q - Sprawdza równość.

7 bajtów

q1l.-Q{

Sprawdź wszystkie przypadki testowe

Oktawa , 23 26 bajtów

@(x)prod(sum(x==x'))==4

Wypróbuj online!

Ta x==x'część została zainspirowana odpowiedzią flawr . To jest dłuższe niż odpowiedź Luisa, ale nie używa żadnych skrzynek z narzędziami.

Wyjaśnienie:

Jest to anonimowa funkcja, która przyjmuje wektor xjako dane wejściowe i porównuje go z samą transpozycją. To da macierz, w której znajdują się wszystkie elementy ukośne 1, a wszelkie elementy nie przekątne sygnalizują, że istnieją elementy zduplikowane.

Suma wzdłuż dowolnej kolumny pokazuje, ile jest duplikatów tej liczby. Chcemy, aby dwie liczby miały duplikaty, więc mamy dwie wartości równe dwóm, a reszta nierówna dwóm.

Jeśli weźmiemy iloczyn tej macierzy, otrzymamy, 4jeśli będą tylko dwa równe elementy ( 2*2*1*1*1*1*...) i coś innego niż, 4jeśli nie będzie duplikatów lub więcej niż dwa.

PHP, 46 bajtów

<?=count(array_unique($argv))==count($argv)-1;

Liczy liczbę wpisów $argvi porównuje ją z liczbą unikalnych wpisów. Jeśli ten pierwszy jest wyższy od drugiego o 1, to prawda, w przeciwnym razie falsey.

Wypróbuj na eval.in!

05AB1E , 6 5 bajtów

{¥>ΘO

Wypróbuj online!

{¥>ΘO   # example input:               [1, 6, 3, 4, 4, 7, 9]
{       # sort                      -> [1, 3, 4, 4, 6, 7, 9]
 ¥      # get deltas                -> [  2, 1, 0, 2, 1, 2 ]
  >     # increment                 -> [  3, 2, 1, 3, 2, 3 ]
   Θ    # truthify (only 1 gives 1) -> [  0, 0, 1, 0, 0, 0 ]
    O   # sum                       -> 1

1będąc jedyną prawdziwą wartością w 05AB1E, możemy się tutaj zatrzymać. (Dzięki @Emigna za zwrócenie na to uwagi.)

Aby uzyskać tylko dwie różne wartości, możemy opcjonalnie dodać:

     Θ  # equals 1?                 -> 1

APL (Dyalog Unicode) , 7 bajtów ^SBCS

1=≢-≢∘∪

Wypróbuj online!

Wyjaśnienie:

1=≢-≢∘∪  ⍝ Monadic function train
    ≢∘∪  ⍝ Generate a list of unique items in the input,
         ⍝ and return the length of that list
  ≢-     ⍝ Take the length of the input and subtract the above
1=       ⍝ If the difference is 1, true, otherwise false

Galaretka , 10 bajtów

ċ@€`QṢ⁼1,2

Wypróbuj online!

dłuższe, ale inne podejście

Japt, 7 bajtów

â ʶUÊÉ

Spróbuj

Wyjaśnienie

Usuń duplikaty ( â), uzyskaj length ( Ê) i porównaj równość ( ¶) z długością ( Ê) wejścia ( U) minus 1 ( É).

Haskell , 37 bajtów

f x=sum[1|0<-(-)<$>x<*>x]==2+length x

Wypróbuj online!

05AB1E , 5 bajtów

gIÙg-

Wypróbuj online!

g     # Get number of elements in input
 IÙg  # Get number of unique elements in input
    - # Subtract

W 05AB1E 1 jest jedyną prawdziwą wartością, więc dla prawdziwego wyniku musi być dokładnie 1 zduplikowany element usunięty przez uniquify.