Çıkışı, tamsayılar bir boş olmayan sonlu liste Verilen truthy orada tam iki eşit girişleri ve diğer tüm girişleri ayrıdır, değer ve Falsey aksi değer.

Örnekler

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 bayt

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

Çevrimiçi deneyin!

{*m}setListeyi, kopyaları olmayan sıralanmamış bir eşya listesi olan bir nesneye gönderir. Bunu yapmak, listenin uzunluğunu daima içindeki kopyaların sayısını azaltacaktır. Uzunluğun ne kadar değiştiğini hesaplayarak, listenin tek bir kopyası olup olmadığını kolayca söyleyebiliriz ve testin sonucunu döndürürüz.

^{Ovs sayesinde -2 bayt.}

Kabuğu , 4 bayt

εṠ-u

Çevrimiçi deneyin!

açıklama

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

MATL , 7 , 6 bayt

&=sp4=

Çevrimiçi deneyin!

@Guiseppe sayesinde bir bayt kurtarıldı!

Açıklama:

&=  % 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 bayt

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

Çevrimiçi deneyin! H.PWiz'in cevabına dayanarak .

Jöle , 8 5 bayt

QL‘=L

Çevrimiçi deneyin!

açıklama

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

Eğer çıktı değerleri tutarlı bir değer olabilirse, o zaman QL_Lişe -1yarıyor ve falsey için pozitif olmayan herhangi bir sayı çıkarıyor (thanks @JonathanAllan)

JavaScript (ES6), 30 bayt

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

Çevrimiçi deneyin

Pushy , 8 bayt

Aşağıdakileri kontrol etmenin basit bir uygulaması len(set(list)) == len(list)-1:

LtvuL^=#

Açıklama:

       \ 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

Bu, başlangıç ​​listesinde yalnızca tam olarak 1 farklı tam sayı olması durumunda uzunluk yalnızca 1 oranında azalacak şekilde çalışır.

Çevrimiçi deneyin!

Octave , 25 bayt

Bu, diğer cevapların çoğunda olduğu gibi bir yaklaşımı groupya da uniqueyaklaşımı değil, olası tüm karşılaştırmaların "kartezyen ürününü" kullanmaktır.

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

açıklama

             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

Çevrimiçi deneyin!

Ve hiçbir program bir evrişim olmadan tamamlanamaz (bir hatayı düzelttiği için @LuisMendo'ya teşekkürler):

Oktav , 40 bayt

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

Çevrimiçi deneyin!

J , 7 6 bayt

=&#0,=

=her eşsiz elemanı ile eşitlik için her eleman kontrol ile bir matris oluşturur m için satır  m  benzersiz unsurları.
0,üstüne boş bir satır ekleyin.
=&#satır sayısı girdi uzunluğuna eşit mi?

Çevrimiçi deneyin!

Retina , 15 12 11 bayt

1 baytı kurtardığı için Neil'e teşekkürler.

D`
Mm2`^$
1

Çevrimiçi deneyin!

Giriş satır besleme ile ayrılmıştır. (Test paketi kolaylık sağlamak için virgülle ayırma kullanır.)

açıklama

D`

Girdideki satırları tekilleştirin; bu, daha önce görüntülenen tüm tamsayıları kaldırır (ancak çevredeki satır besleme (ler) i terk eder).

Mm2`^$

Kaldırdığımız kopya sayısına eşit olan boş satır sayısını sayın, ancak yalnızca ilk iki eşleşmeyi göz önünde bulundurun. Böylece çıktı yalnızca 0(kopya yok), 1(bir kopya), 2(iki veya daha fazla kopya) olacaktır.

1

Tam olarak bir kopyanın kaldırıldığından emin olun.

05AB1E , 4 bayt

{¥_O

Çevrimiçi deneyin!

Çıkışlar 1truthy olarak, falsy gibi herhangi bir başka negatif olmayan bir tam sayı. 05AB1E'de, 1tek gerçek sayıdır (içgörü için @Emigna!).

açıklama

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

Ruby, 32 bayt

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

C # (.NET Core) , 35 + 18 bayt

Kullanmak için +18 System.Linq.

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

Çevrimiçi deneyin!

Linq'sız 67 byte alternatif:

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

Çevrimiçi deneyin!

Excel, 42 bayt

Danimarka dili versiyonu

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

Listedeki her tamsayı, sütundaki ayrı bir hücrede varsayar A.
Tutarsız falsey değerleri için izin verilirse , 3 bayt kazanabiliriz:

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

İngilizce versiyonu (44 bayt)

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

R , 32 31 bayt

@JarkoDubbeldam sayesinde -1 bayt

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

Çevrimiçi deneyin!

Stdin'den okur, stdout'a yazar.

duplicateddeğerlerini yerine listesini yineler, lile TRUEbu değeri listede daha erken ve oluşursa FALSEaksi. Eşsiz bir ruh çifti çifti varsa, tam olarak bir TRUEdeğer olmalı, bu yüzden toplam olmalı 1.

PowerShell , 40 37 bayt

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

Çevrimiçi deneyin!

Sort-ObjectKomutu (diğer adı sortile birlikte) -unique bayrak girişinin sadece tek bileşenlerini çeker. Örneğin, giriş için @(1,3,3,2)bu sonuçlanacaktır @(1,2,3).

Bu nedenle, sadece .countbu nesnenin (yani kaç öğeye sahip olduğunu) giriş -eqdizimizinki için geçerli olduğundan emin olmamız gerekir (yani, tam olarak bir kopya girişimiz var)..count-1

Sinusoid sayesinde 3 byte kurtarıldı.
TessellatingHeckler sayesinde sabit hata.

Perl 5 , 36 + 1 ( -a) = 37 bayt

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

Çevrimiçi deneyin!

Haskell , 37 bayt

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

Çevrimiçi deneyin!

Octave / MATLAB (İstatistik paketi / araç kutusu ile), 21 bayt

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

Anonim işlev Giriş bir sütun vektörüdür. Çıkış true(olarak görüntülenir 1) veya false(olarak görüntülenir 0).

Çevrimiçi deneyin!

açıklama

pdist(x)Tüm satır çiftleri arasındaki Öklid mesafelerinin bir vektörünü hesaplar x. Her bir çifti yalnızca bir kez göz önünde bulundurur (iki sıranın sırası önemli değildir) ve aynı sırada iki kez oluşturulan çiftleri dikkate almaz.

Bizim durumumuzda xbir sütun vektörü olduğu için iki sıra arasındaki Öklid mesafesi iki sayı arasındaki mutlak farktır.

~mantıklı (Boolean) olumsuzlama, nnzsıfır olmayan sayıdır ve ==1karşılaştırır 1. Sonuç, trueeğer sıfır mesafe veren sadece bir çift varsa ve olur.

Jq 1.5 , 53 25 bayt

length-(unique|length)==1

Riley'nin cevabından esinlenilmiş ve orijinal çözümümden çok daha kısa.

Çevrimiçi deneyin!

Julia, 39 26 bayt

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

açıklama

Kod, daha sonra toplam işlevi kullanılarak toplanan ve A'nın kartezyen karesindeki aynı eleman çiftlerinin sayısını sayan, 2 boyutlu bir booleans tablosu oluşturur. miktarlar yalnızca tam olarak bir yineleme karakteri olduğunda eşittir.

Bu kod NOT işlecini yeniden tanımlar.

Pyth , 6 bayt

qtlQl{

Tüm test durumlarını doğrulayın.

• l{ - Eşsiz elemanların sayısını alır.

• tlQ - Girdi listesinin uzunluğunu azaltır, azaltılır.

• q - Eşitliği kontrol eder.

7 bayt

q1l.-Q{

Tüm test durumlarını doğrulayın

Octave , 23 26 bayt

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

Çevrimiçi deneyin!

Bu x==x'bölüm kusurun cevabından ilham aldı . Bu Luis'in cevabından daha uzun, ama hiçbir araç kutusu kullanmıyor.

Açıklama:

Bu, bir vektörü xgirdi olarak alan ve onu kendisinin translasyonuyla karşılaştıran isimsiz bir fonksiyondur . Bu, tüm çapraz elemanların olduğu 1ve herhangi bir çapraz olmayan elemanın da yinelenen elemanlar olduğuna işaret ettiği bir matris verecektir .

Herhangi bir sütundaki toplam, bu sayının kaç tekrarı olduğunu gösterir. Sayıların ikisinin bir kopyasına sahip olmasını istiyoruz, bu yüzden iki değer ikiye eşit, gerisi de iki değere eşit değildir.

Bu matrisin ürününü alırsak 4, sadece iki eşit element ( 2*2*1*1*1*1*...) 4varsa ve yinelemeli olmayan veya ikiden fazla olmayan bir şey alırız .

PHP, 46 bayt

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

Girişlerin sayısını sayar ve $argvbenzersiz girişlerin sayısını karşılaştırır. İlki 1'den daha yüksekse, o zaman hakikaten falsey.

Eval.in'de dene!

05AB1E , 6 5 bayt

{¥>ΘO

Çevrimiçi deneyin!

{¥>Θ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

105AB1E'deki tek acımasız değer olarak burada durabiliriz. (Buna dikkat çektiğiniz için teşekkürler @Emigna.)

Yalnızca iki farklı değer elde etmek için isteğe bağlı olarak şunları ekleyebiliriz:

     Θ  # equals 1?                 -> 1

APL (Dyalog Unicode) , 7 bayt ^SBCS

1=≢-≢∘∪

Çevrimiçi deneyin!

Açıklama:

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

Jöle , 10 bayt

ċ@€`QṢ⁼1,2

Çevrimiçi deneyin!

daha uzun ama farklı bir yaklaşım

Japt, 7 bayt

â ʶUÊÉ

Dene

açıklama

Kopyaları ( â) çıkarın , uzunluk ( Ê) alın ve eşitliği ( ¶) Êgirişin ( U) eksi 1 ( É) uzunluğu ile karşılaştırın .

Haskell , 37 bayt

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

Çevrimiçi deneyin!

05AB1E , 5 bayt

gIÙg-

Çevrimiçi deneyin!

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

05AB1E'de 1, sadece truthy değeridir, bu nedenle, truthy sonucu için, uniquify tarafından kaldırılan tam olarak 1 yinelenen eleman bulunmalıdır.