กำหนดรายชื่อ จำกัด ว่างของจำนวนเต็ม, เอาท์พุทtruthyค่าถ้ามีตรงสองรายการที่เท่าเทียมกันและรายการอื่น ๆ ทั้งหมดที่มีความแตกต่างและfalseyคุ้มค่าเป็นอย่างอื่น

ตัวอย่าง

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

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

ลองออนไลน์!

{*m}ปลดเปลื้องรายการไปยังsetวัตถุซึ่งเป็นรายการที่ไม่มีการเรียงลำดับโดยไม่ซ้ำกัน การทำเช่นนี้จะลดความยาวของรายการตามจำนวนซ้ำในนั้น โดยการคำนวณความยาวที่มีการเปลี่ยนแปลงเราสามารถบอกได้อย่างง่ายดายว่ารายการนั้นมีความซ้ำซ้อนและส่งคืนผลการทดสอบหรือไม่

^{-2 ไบต์ต้องขอบคุณ ovs}

Husk , 4 ไบต์

εṠ-u

ลองออนไลน์!

คำอธิบาย

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

MATL , 7 , 6 ไบต์

&=sp4=

ลองออนไลน์!

บันทึกหนึ่งไบต์ต้องขอบคุณ @Guiseppe!

คำอธิบาย:

&=  % 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 ไบต์

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

ลองออนไลน์! ขึ้นอยู่กับคำตอบ H.PWiz'

เจลลี่ , 8ไบต์ 5

QL‘=L

ลองออนไลน์!

คำอธิบาย

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

หากค่าเอาต์พุตสามารถเป็นค่าที่สอดคล้องกันได้ดังนั้นจะQL_Lทำงานซึ่งเอาต์พุต-1สำหรับความจริงและจำนวนที่ไม่เป็นบวกอื่น ๆ สำหรับความผิดพลาด (ขอบคุณ @JonathanAllan)

JavaScript (ES6), 30 ไบต์

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

ลองออนไลน์

รุก 8 ไบต์

ใช้งานง่ายของการตรวจสอบว่าlen(set(list)) == len(list)-1:

LtvuL^=#

คำอธิบาย:

       \ 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

สิ่งนี้ทำงานเป็นความยาวจะลดลง 1 เท่านั้นหากมีเพียงจำนวนเต็ม 1 ตัวเท่านั้นที่ไม่แตกต่างกันในรายการเริ่มต้น

ลองออนไลน์!

อ็อกเทฟ 25 ไบต์

นี่ไม่ใช่การใช้วิธีการgroupหรือuniqueคำตอบอื่น ๆ มากมาย แต่เป็น "ผลิตภัณฑ์คาร์ทีเซียน" ของการเปรียบเทียบที่เป็นไปได้ทั้งหมด

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

คำอธิบาย

             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

ลองออนไลน์!

และเนื่องจากไม่มีโปรแกรมใดที่จะเสร็จสมบูรณ์หากไม่มีการโน้มน้าวใจ (ขอบคุณ @LuisMendo สำหรับการแก้ไขข้อผิดพลาด):

อ็อกเทฟ 40 ไบต์

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

ลองออนไลน์!

J , 7 6 ไบต์

=&#0,=

=ตรวจสอบองค์ประกอบเพื่อความเท่าเทียมกันกับองค์ประกอบที่ไม่ซ้ำกันทุกสร้างเมทริกซ์กับม.แถวสำหรับ  เมตร  องค์ประกอบที่ไม่ซ้ำกัน
0,เพิ่มแถวว่างด้านบน
=&#จำนวนแถวเท่ากับความยาวของอินพุตหรือไม่

ลองออนไลน์!

Retina , 15 12 11 ไบต์

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

D`
Mm2`^$
1

ลองออนไลน์!

อินพุตถูกคั่นด้วยตัวป้อนบรรทัด (ชุดทดสอบใช้การคั่นด้วยเครื่องหมายจุลภาคเพื่อความสะดวก)

คำอธิบาย

D`

คัดลอกบรรทัดในอินพุตอีกครั้งซึ่งจะลบจำนวนเต็มใด ๆ ที่ปรากฏก่อนหน้านี้ (แต่ปล่อยให้ linefeed ที่อยู่โดยรอบ)

Mm2`^$

นับจำนวนบรรทัดว่างเปล่าซึ่งเท่ากับจำนวนซ้ำที่เราลบออก แต่ให้พิจารณาเฉพาะสองแมชแรกเท่านั้น ดังนั้นเอาต์พุตจะเป็น0(ไม่ซ้ำกัน), 1(หนึ่งซ้ำ), 2(ซ้ำสองหรือมากกว่า)

1

ตรวจสอบให้แน่ใจว่าได้ลบสำเนาที่ซ้ำกันหนึ่งรายการแล้ว

05AB1E , 4 ไบต์

{¥_O

ลองออนไลน์!

แสดงผล1เป็นจริงจำนวนเต็มใด ๆ ที่ไม่เป็นลบเป็นเท็จ ใน 05AB1E 1เป็นตัวเลขจริงเท่านั้น (ขอบคุณ @Emigna สำหรับข้อมูลเชิงลึก!)

คำอธิบาย

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

Ruby, 32 ไบต์

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

C # (.NET Core) , 35 + 18 ไบต์

18 System.Linqสำหรับการใช้

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

ลองออนไลน์!

ทางเลือก 67 ไบต์โดยไม่มี Linq:

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

ลองออนไลน์!

Excel, 42 ไบต์

รุ่นภาษาเดนมาร์ก

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

Aถือว่าแต่ละจำนวนเต็มจากรายการในเซลล์ที่แยกจากกันในคอลัมน์
หากเราได้รับอนุญาตให้ใช้ค่าfalsey ที่ไม่สอดคล้องกันเราสามารถบันทึกได้ 3 ไบต์:

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

รุ่นภาษาอังกฤษ (44 ไบต์)

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

R , 32 31 ไบต์

-1 ไบต์ขอบคุณ @JarkoDubbeldam

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

ลองออนไลน์!

อ่านจาก stdin เขียนถึง stdout

duplicatedวนซ้ำผ่านรายการแทนที่ค่าlด้วยTRUEหากค่านั้นเกิดขึ้นก่อนหน้านี้ในรายการและFALSEอื่น ๆ หากมีคู่ที่ไม่ซ้ำกันของพรากควรจะมีอีกหนึ่งความคุ้มค่าเพื่อให้ผลรวมที่ควรจะเป็นTRUE1

PowerShell , 40 37 ไบต์

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

ลองออนไลน์!

Sort-Objectคำสั่ง (นามสมมุติsort) กับ-uธง nique ดึงเอาเฉพาะส่วนประกอบที่เป็นเอกลักษณ์ของการป้อนข้อมูล ตัวอย่างเช่นสำหรับการป้อนข้อมูลนี้จะส่งผลให้@(1,3,3,2)@(1,2,3)

ดังนั้นเราเพียงแค่ต้องตรวจสอบให้แน่ใจว่า.countวัตถุนี้ (เช่นจำนวนองค์ประกอบที่มี) เป็น-equal ไปยัง.countอาร์เรย์ของเราใส่-1(เช่นเรามีรายการที่ซ้ำกันอย่างแน่นอน)

บันทึก 3 ไบต์ด้วย Sinusoid
แก้ไขข้อผิดพลาดด้วย TessellatingHeckler

Perl 5 , 36 + 1 ( -a) = 37 ไบต์

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

ลองออนไลน์!

Haskell , 37 ไบต์

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

ลองออนไลน์!

ระดับแปดเสียง / MATLAB (พร้อมแพ็คเกจสถิติ / กล่องเครื่องมือ) ขนาด 21 ไบต์

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

ฟังก์ชั่นไม่ระบุชื่อ อินพุตเป็นเวกเตอร์คอลัมน์ เอาท์พุทคือtrue(แสดงเป็น1) หรือfalse(แสดงเป็น0)

ลองออนไลน์!

คำอธิบาย

pdist(x)xคำนวณเวกเตอร์ของระยะทางแบบยุคลิดระหว่างคู่แถวทั้งหมดจาก จะพิจารณาแต่ละคู่เพียงครั้งเดียว (คำสั่งของทั้งสองแถวไม่สำคัญ) และไม่พิจารณาคู่ที่เกิดขึ้นจากแถวเดียวกันสองครั้ง

ในกรณีของเราxคือเวกเตอร์คอลัมน์ระยะทางแบบยุคลิดระหว่างสองแถวนั้นแตกต่างกันอย่างสิ้นเชิงระหว่างตัวเลขสองตัว

~เป็นตรรกะ (บูลีน) ปฏิเสธnnzคือจำนวนของ nonzeros และเมื่อเปรียบเทียบกับ==1 1ผลที่ได้คือtrueถ้าหากมีเพียงคู่เดียวเท่านั้นที่ให้ระยะทางเป็นศูนย์

Jq 1.5 , 53 25 ไบต์

length-(unique|length)==1

แรงบันดาลใจจากคำตอบของไรลีย์และสั้นลงกว่าเดิมมาก

ลองออนไลน์!

Julia, 39 26 ไบต์

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

คำอธิบาย

โค้ดจะสร้างตารางบูลีน 2 มิติซึ่งจะถูกรวบรวมโดยใช้ฟังก์ชันผลรวมนับจำนวนคู่องค์ประกอบเดียวกันในตารางคาร์ทีเซียนของ A. จากนั้นนี่จะถูกเปรียบเทียบกับความยาวของสตริงบวกสองและ ปริมาณจะเท่ากันก็ต่อเมื่อมีอักขระซ้ำหนึ่งตัวเท่านั้น

รหัสนี้นิยามใหม่ของตัวดำเนินการ NOT

Pyth , 6 ไบต์

qtlQl{

ตรวจสอบกรณีทดสอบทั้งหมด

• l{ - รับจำนวนขององค์ประกอบที่ไม่ซ้ำกัน

• tlQ - รับความยาวของรายการอินพุตที่ลดลง

• q - ตรวจสอบความเท่าเทียมกัน

7 ไบต์

q1l.-Q{

ตรวจสอบกรณีทดสอบทั้งหมด

อ็อกเทฟ23 23ไบต์

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

ลองออนไลน์!

x==x'ส่วนหนึ่งได้รับแรงบันดาลใจจากคำตอบของ flawr นี่ยาวกว่าคำตอบของหลุยส์ แต่ไม่ได้ใช้กล่องเครื่องมือใด ๆ

คำอธิบาย:

นี่คือฟังก์ชั่นที่ไม่ระบุชื่อที่ใช้เวกเตอร์xเป็นอินพุตและเปรียบเทียบกับ transposed ตัวเอง สิ่งนี้จะให้เมทริกซ์ว่าองค์ประกอบเส้นทแยงมุมทั้งหมดอยู่ที่ไหนและองค์ประกอบแนวทแยง1ใด ๆ ส่งสัญญาณว่ามีองค์ประกอบที่ซ้ำกัน

ผลรวมตามคอลัมน์ที่ระบุแสดงจำนวนซ้ำของจำนวนนั้น เราต้องการให้ตัวเลขสองตัวมีค่าซ้ำกันดังนั้นเราสองค่าเท่ากับสองและส่วนที่เหลือไม่เท่ากันสองค่า

ถ้าเราเอาผลคูณของเมทริกซ์นี้มาเราจะได้4ถ้ามีองค์ประกอบเท่ากันสองตัวเท่านั้น ( 2*2*1*1*1*1*...) และสิ่งอื่นที่ไม่ใช่4ว่ามีซ้ำกันหรือมากกว่าสองรายการ

PHP, 46 ไบต์

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

นับจำนวนรายการใน$argvและเปรียบเทียบกับจำนวนรายการที่ไม่ซ้ำกัน หากว่าอดีตสูงกว่าอันที่ 1 เป็นความจริงก็เป็นเท็จ

ลองใช้กับ eval.in!

05AB1E , 6 5 ไบต์

{¥>ΘO

ลองออนไลน์!

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

1เป็นค่าความจริงเพียงอย่างเดียวใน 05AB1E เราสามารถหยุดที่นี่ (ขอบคุณ @Emigna สำหรับการชี้ว่า)

หากต้องการรับค่าที่แตกต่างเพียงสองค่าเราสามารถเลือกเพิ่ม:

     Θ  # equals 1?                 -> 1

APL (Dyalog Unicode) , 7 ไบต์^SBCS

1=≢-≢∘∪

ลองออนไลน์!

คำอธิบาย:

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

เยลลี่ 10 ไบต์

ċ@€`QṢ⁼1,2

ลองออนไลน์!

แนวทางที่ยาวขึ้น แต่แตกต่างกัน

Japtap, 7 ไบต์

â ʶUÊÉ

ลองมัน

คำอธิบาย

ลบรายการที่ซ้ำกัน ( â) รับความยาว ( Ê) และเปรียบเทียบความเท่าเทียมกัน ( ¶) กับความยาว ( Ê) ของอินพุต ( U) ลบ 1 ( É)

Haskell , 37 ไบต์

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

ลองออนไลน์!

05AB1E , 5 ไบต์

gIÙg-

ลองออนไลน์!

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

ใน 05AB1E 1 เป็นค่าความจริงเท่านั้นดังนั้นเพื่อผลลัพธ์ที่เป็นความจริงจะต้องมีองค์ประกอบที่ซ้ำกัน 1 รายการที่ลบออกโดย uniquify