সলমেট সন্ধানে

Question

পূর্ণসংখ্যার একটি nonempty সসীম তালিকা দেওয়া, আউটপুট একটি 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]

Comments

আমি মনে করি আমরা ধরে নিতে পারি না যে পূর্ণসংখ্যাগুলি সর্বদা 10 এর চেয়ে কম হবে?

— মার্টিন এন্ডার

হ্যাঁ যদি আপনার ভাষা কোনও বৃহত্তর পূর্ণসংখ্যাকে সমর্থন করে না।

— flawr

ধারাবাহিকতার দ্বারা আপনি কী বোঝাতে চান ?

— flawr

এইচএনকিউয়ের শীর্ষে এটি দেখেছিলেন এবং ভেবেছিলেন যে আমরা চূড়ান্ত আন্তঃব্যক্তিতে পৌঁছে যাব। প্রশ্ন

— gnskn

@ ওয়ালফ্র্যাট এটি আপনার নিজের চ্যালেঞ্জ হিসাবে পোস্ট করুন। এছাড়াও এই জাতীয় প্রতিক্রিয়া সাধারণত স্যান্ডবক্সে প্রশংসা করা হয়।

— flawr

Answer 1

পাইথন 3, 30 28 বাইট

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

এটি অনলাইন চেষ্টা করুন!

{*m}তালিকাটিকে কোনও setঅবজেক্টে কাস্ট করে , নকল ছাড়াই আইটেমের একটি আনর্ডারড তালিকা। এটি করার ফলে তালিকাগুলির নকল সংখ্যা দ্বারা সর্বদা তালিকার দৈর্ঘ্য হ্রাস পাবে। দৈর্ঘ্য কতটুকু বদলেছে তা গণনা করে আমরা সহজেই জানাতে পারি যে তালিকার কোনও নকল ছিল কিনা এবং পরীক্ষার ফলাফলটি ফিরিয়ে দিন।

^{-২ বাইটস ওভসকে ধন্যবাদ}

Comments

ঠিক আমার কাছে সমাধানটি ছিল, তবে {*m}শর্টকাটের পরিবর্তে ভুলে গিয়েছিলাম setভাল গল্ফ!

— ফ্লিপট্যাক

অবহেলা জন্য 27 বাইট । (মিথ্যা যখন সত্য হওয়া উচিত ইত্যাদি)

— mbomb007

এটি করার আরেকটি অদ্ভুত উপায় এখানেও ( lambda m:~-len(m[len({*m}):])

— অবহেলাও

Answer 2

কাস্তে , 4 বাইট

εṠ-u

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

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

Answer 3

এমএটিএল , 7 , 6 বাইট

&=sp4=

এটি অনলাইন চেষ্টা করুন!

একটি বাইট @ গুয়েসপ্পকে ধন্যবাদ রক্ষা করেছে!

ব্যাখ্যা:

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

Comments

যেহেতু sহয় sumএবং sumপ্রথম অ Singleton মাত্রা বরাবর অঙ্কের (কলাম), এবং ম্যাট্রিক্স প্রতিসম, এই মাত্র হবে না পারে sপরিবর্তে Xs?

— জিউসেপ 21

@ জিউসেপ আহ, টিআইএল ধন্যবাদ!

— ডিজেএমসিএমহেম

Answer 4

হাস্কেল , 34 বাইট

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

এটি অনলাইন চেষ্টা করুন! এইচ.পি.উইজ'র উত্তরের ভিত্তিতে ।

Answer 5

জেলি , 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সত্যবাদী এবং মিথ্যার জন্য অন্য কোনও ধনাত্মক সংখ্যার ফলাফল দেয় (ধন্যবাদ @ জনাথন অ্যালান)

Comments

QL_L-1সত্যবাদী এবং মিথ্যা -1বা তার চেয়ে কম সংখ্যার কম আউটপুট 0দেয় (উদাহরণস্বরূপ [1,6,3,4,4,7,9,9,9]ফিরে আসবে -3, যখন [1,6,3,4,7,9]ফিরে আসবে 0)।

— জোনাথন অ্যালান

@ জোনাথান অ্যালান ওহ হ্যাঁ আমি অনুমান করি যে উদাহরণগুলি আমি এটি পরীক্ষা করে দেখেছি সেগুলি আবার ফিরে আসবে -2।

— ই

Answer 6

জাভাস্ক্রিপ্ট (ES6), 30 বাইট

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

এটি অনলাইনে চেষ্টা করুন

Answer 7

পুশি , 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 টি হ্রাস পাবে works

এটি অনলাইন চেষ্টা করুন!

Comments

বাহ, যুগে যুগে কোনও পুশি উত্তর দেখেনি! +1

— ই

পুনঃটুইট করুন এটি কেবল আরও শক্তিশালী ফিরে আসবে।

— ফ্লিপট্যাক

Answer 8

অক্টাভা , 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

এটি অনলাইন চেষ্টা করুন!

এবং কারণ কোনও প্রোগ্রাম বিনা সংকল্প ব্যতীত সম্পূর্ণ হবে না (কোনও ভুল সমাধানের জন্য ধন্যবাদ @ লুইস মেন্ডো):

অক্টাভা , 40 বাইট

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

এটি অনলাইন চেষ্টা করুন!

Comments

আপনি আমাকে এই পদ্ধতির সাথে আসতে অনুপ্রাণিত করেছেন :)

— স্টিভি গ্রিফিন

@ স্টিভি গ্রিফিন আমি মনে করি এমএটিএল উত্তরটি আপনার সঠিক পদ্ধতির ব্যবহার করেছে :)

— flawr

Answer 9

জে , 7 6 বাইট

=&#0,=

=প্রত্যেক অনন্য উপাদান সঙ্গে সমতার জন্য যে উপাদান পরীক্ষা, সঙ্গে একটি ম্যাট্রিক্স তৈরি করে মি জন্য সারি  মি  অনন্য উপাদান।
0,উপরে একটি খালি সারি যুক্ত করুন।
=&#সারিগুলির সংখ্যা কি ইনপুটটির দৈর্ঘ্যের সমান হয়?

এটি অনলাইন চেষ্টা করুন!

Comments

আমার মনে হয় আপনি প্রতিস্থাপন করতে পারেন .~সঙ্গে=

— H.PWiz

@ এইচ.পি.উইজ সুন্দর, সম্পাদিত।

— ফ্রাউনফ্রোগ

Answer 10

রেটিনা , 15 12 11 বাইট

1 বাইট বাঁচানোর জন্য নীলকে ধন্যবাদ জানাই।

D`
Mm2`^$
1

এটি অনলাইন চেষ্টা করুন!

ইনপুট লাইনফিড-পৃথক। (পরীক্ষার স্যুট সুবিধার জন্য কমা-বিচ্ছেদ ব্যবহার করে))

ব্যাখ্যা

D`

ইনপুটটিতে রেখাগুলি নকল করুন, যা পূর্বে উপস্থিত কোনও পূর্ণসংখ্যা সরিয়ে দেয় (তবে পার্শ্ববর্তী লাইনফিডগুলি ছেড়ে যায়)।

Mm2`^$

খালি রেখার সংখ্যা গণনা করুন, যা আমরা সরিয়ে নকলের সংখ্যার সমান, তবে কেবল প্রথম দুটি ম্যাচ বিবেচনা করুন। সুতরাং আউটপুটটি কেবল 0(কোনও সদৃশ নয়), 1(একটি সদৃশ), 2(দুই বা ততোধিক নকল) হবে।

1

নিশ্চিত হয়ে নিন যে ঠিক একটি নকল সরানো হয়েছিল।

Comments

নিউলাইন ম্যাচটি 2 তে সীমাবদ্ধ রেখে একটি বাইট সংরক্ষণ করুন, যাতে তৃতীয় লাইনে ইনপুটটি সর্বদা 0, 1, বা 2 হয়, পরীক্ষার সরলকরণ করে। (বিরক্তিকরভাবে আপনি A`.নিউলাইনগুলি গণনা করতে পারবেন না , কারণ এটি শেষটি ড্রপ করে))

— নীল

@ নীল ধন্যবাদ, সীমাটি একটি ঝরঝরে ধারণা। আমি চেষ্টা করেও চেষ্টা করেছি A`., তবে সমস্যাটি হ'ল আপনি কোনও একটিও ফাঁকা রেখাকে লাইন না থাকা থেকে আলাদা করতে পারবেন না। যদি কোনও লাইন থাকে তবে আমার লাইনফিডের সাথে সমাপ্তি Aএবং Gআউটপুট বিবেচনা করা উচিত । যদিও এটি সম্ভবত একটি বিকল্প হওয়া উচিত যেহেতু আমি কল্পনা করতে পারি যে লাইনফিডটি অন্যান্য পরিস্থিতিতেও বিরক্তিকর হচ্ছে।

— মার্টিন ইন্ডার

একক খালি লাইনের সাথে মিল পাওয়া সহজ - এটাই ঠিক ^$¶।

— নীল

@ নীল নো, আমার অর্থ এই যে আউটপুটটি Aএকক খালি লাইন ধরে রাখে বা সমস্ত লাইন বাতিল করে দেয় তা নির্বিশেষে অভিন্ন।

— মার্টিন এন্ডার

দুঃখিত, এটাই আমি "সর্বশেষটি ড্রপ করে" বোঝাতে চেয়েছি - এটি একটি কম খালি লাইন দেয়, তবে আপনি 0 এবং 1 এর মধ্যে পার্থক্য করতে পারবেন না

— নীল

Answer 11

05 এ বি 1 ই , 4 বাইট

{¥_O

এটি অনলাইন চেষ্টা করুন!

সত্য 1হিসাবে আউটপুট , মিথ্যা হিসাবে অন্য যে কোনও অ-নেতিবাচক পূর্ণসংখ্যার। 05AB1E এ, 1একমাত্র সত্যবাদী সংখ্যা (অন্তর্দৃষ্টিটির জন্য @ এমিগানাকে ধন্যবাদ!)।

ব্যাখ্যা

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

Answer 12

রুবি, 32 বাইট

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

Comments

পিপিসিজিতে আপনাকে স্বাগতম! কারণ এটি কোড গল্ফ, আপনার প্রোগ্রামের বাইট গণনাটি আপনার অন্তর্ভুক্ত করতে হবে। আমি এবার আপনার জন্য এটি করার স্বাধীনতা নিয়েছি।

— পাভেল

কীভাবে Array#size?

— ট্র্যাভিস 21

আপনি ব্যবহার করে 26 বাইটে নামতে পারেন->s{s.uniq.size==s.size-1}

— কনর ও'ব্রায়েন

Answer 13

সি # (.নেট কোর) , 35 + 18 বাইট

ব্যবহারের জন্য +18 System.Linq।

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

এটি অনলাইন চেষ্টা করুন!

লিনক ছাড়াই 67 বাইট বিকল্প:

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

এটি অনলাইন চেষ্টা করুন!

Answer 14

এক্সেল, 42 বাইট

ডেনিশ ভাষার সংস্করণ

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

কলামের পৃথক কক্ষে তালিকা থেকে প্রতিটি পূর্ণসংখ্যা ধরে A।
যদি আমাদের বেমানান মিথ্যা মানগুলির জন্য অনুমতি দেওয়া হয় তবে আমরা 3 বাইট সংরক্ষণ করতে পারি:

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

ইংরেজি ভাষার সংস্করণ (44 বাইট)

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

Answer 15

আর , 32 31 বাইট

-1 বাইট @ জারকো ডাবডেলডামকে ধন্যবাদ

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

এটি অনলাইন চেষ্টা করুন!

স্টিডিনের কাছ থেকে পড়ে, স্টাডাউটকে লেখেন।

duplicatedতালিকা মাধ্যমে iterates, মান প্রতিস্থাপন lসঙ্গে TRUEযদি যে মান তালিকায় আগে, এবং ঘটে FALSEঅন্যথায়। আত্মীয় সহযাত্রীদের যদি একটি অনন্য জুড়ি থাকে তবে এর একমাত্র TRUEমূল্য হওয়া উচিত, তাই যোগফলটি হওয়া উচিত 1।

Comments

31 বাইট

— জেএডি

@ জারকো ডাবডেলডাম অবশ্যই, আহ তোমাকে আবার দেখে ভাল লাগল! কিছুক্ষণ হবে.

— জিউসেপ

অন্য কিছু স্টাফ নিয়ে ব্যস্ত হয়ে পড়েছেন, নিশ্চিত নই যে আমি পুরোপুরি ফিরে এসেছি।

— জেএডি

@ জিউসেপ, আমি কেবল এই প্রশ্নটি পড়েছি এবং তাত্ক্ষণিকভাবে আপনার মূল পদ্ধতির কথা ভেবেছিলাম .... খুব সুন্দর! আমি এই scan()পদ্ধতির কথা ভাবিনি ।

— জোসেফ উড

Answer 16

পাওয়ারশেল , 40 37 বাইট

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

এটি অনলাইন চেষ্টা করুন!

Sort-Objectকমান্ড (ওরফে sort) সঙ্গে -unique পতাকা শুধুমাত্র ইনপুটের অনন্য উপাদান আউট pulls। উদাহরণস্বরূপ, ইনপুট জন্য @(1,3,3,2), এর ফলাফল হবে @(1,2,3)।

সুতরাং, আমরা ঠিক নিশ্চিত করার জন্য প্রয়োজন যে .countএই বস্তুর (অর্থাত, কতগুলি উপাদান এটা আছে) হল -eqথেকে ual .countআমাদের ইনপুট অ্যারের -1(অর্থাত, আমরা ঠিক এক ডুপ্লিকেট এন্ট্রি থাকে)।

সিনুসয়েডকে ধন্যবাদ 3 বাইট সংরক্ষণ করা হয়েছে।
টেসেলেলটিংহেকলারের কাছে স্থির বাগটি ধন্যবাদ।

Comments

একই ফলাফলটিতে পৌঁছানোর জন্য আপনি কি গ্রুপের পরিবর্তে গেট-ইউনিক ওরফে 'গু' ব্যবহার করতে পারেন?

— সাইনোসয়েড

@ সিনুসয়েড হ্যাঁ, আমরা পারি। ধন্যবাদ!

— অ্যাডমবর্কবর্ক

এটি দ্বিতীয় পরীক্ষার ক্ষেত্রে কাজ করে না 1,2,1- get-uniqueকেবল প্রাক-সাজানো ইনপুটটিতে কাজ করে। আপনি ($args|sort -u).count-eq$args.count-1যদি এর f 1 2 1পরিবর্তে পছন্দ করেন তবে 37 টির মধ্যে কীভাবে সমস্ত পরীক্ষার ক্ষেত্রে কাজ করে f 1,2,1?

— TessellatingHeckler

পছন্দ করুন আমি যে পরীক্ষার কাজ করেছিলাম তা সবই পূর্ব-সাজানো ইনপুট ছিল। ধন্যবাদ!

— অ্যাডমবর্কবার্ক

Answer 17

পার্ল 5 , 36 + 1 ( -a) = 37 বাইট

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

এটি অনলাইন চেষ্টা করুন!

Comments

গল্ফ করা যেতে পারে@k{@F}++;say@F==1+keys%k

— নাহুয়েল ফুইলুল

Answer 18

হাস্কেল , 37 বাইট

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

এটি অনলাইন চেষ্টা করুন!

Answer 19

অক্টাভা / এমএটিএলবিএবি (স্ট্যাটিস্টিক্স প্যাকেজ / টুলবক্স সহ), 21 বাইট

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

বেনামে ফাংশন। ইনপুট একটি কলাম ভেক্টর। আউটপুট true(হিসাবে প্রদর্শিত 1) বা false(হিসাবে প্রদর্শিত 0) হয়।

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

pdist(x)সমস্ত জোড় সারি থেকে ইউক্লিডিয়ান দূরত্বের একটি ভেক্টর গণনা করে x। এটি প্রতিটি জুটিকে কেবল একবার বিবেচনা করে (দুই সারির ক্রম কোনও বিবেচনা করে না) এবং একই সারিতে গঠিত জোড়াকে দু'বার বিবেচনা করে না।

আমাদের ক্ষেত্রে xএকটি কলাম ভেক্টর, সুতরাং দুটি সারির মধ্যে ইউক্লিডিয়ান দূরত্ব কেবল দুটি সংখ্যার মধ্যে পরম পার্থক্য।

~যৌক্তিক (বুলিয়ান) nnzঅবহেলা, ননজারো সংখ্যা এবং এর ==1সাথে তুলনা করা 1। সুতরাং ফলাফলটি trueযদি কেবলমাত্র এক জোড়া থাকে যা শূন্য দূরত্ব দেয়।

Answer 20

Jq 1.5 , 53 25 বাইট

length-(unique|length)==1

রিলির উত্তরে অনুপ্রাণিত হয়ে আমার সংক্ষিপ্তসারটি আরও কম করে দিন orter

এটি অনলাইন চেষ্টা করুন!

Answer 21

জুলিয়া, 39 26 বাইট

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

ব্যাখ্যা

কোডটি বুলিয়ানগুলির একটি 2-মাত্রিক টেবিল তৈরি করে, যা পরে যোগফলটি ব্যবহার করে সংগ্রহ করা হয়, এ এর ​​কার্টেসিয়ান বর্গক্ষেত্রে একই-উপাদান যুক্তগুলির সংখ্যা গণনা করে, তবে এটি স্ট্রিং প্লাস দুইয়ের দৈর্ঘ্যের সাথে তুলনা করা হয় এবং পরিমাণগুলি কেবল তখনই সমান হয় যখন ঠিক একই পুনরাবৃত্তি চরিত্র থাকে।

এই কোডটি নোট অপারেটরের নতুন সংজ্ঞা দেয়।

Comments

!a=sum(a.==a')==endof(a)+2কয়েক বাইট সাশ্রয়। এটি অনলাইন চেষ্টা করুন!

— ডেনিস

Answer 22

পাইথ , 6 বাইট

qtlQl{

সমস্ত পরীক্ষার কেস যাচাই করুন।

• l{ - অনন্য উপাদানের সংখ্যা পায়।

• tlQ - ইনপুট তালিকার দৈর্ঘ্য পেয়েছে, হ্রাস পেয়েছে।

• q - সমতা পরীক্ষা করে।

7 বাইট

q1l.-Q{

সমস্ত পরীক্ষার কেস যাচাই করুন

Answer 23

অক্টাভা , 23 26 বাইট

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

এটি অনলাইন চেষ্টা করুন!

x==x'অংশ দ্বারা অনুপ্রাণিত হয় flawr এর উত্তর । এটি লুইসের উত্তরের চেয়ে দীর্ঘ, তবে এটি কোনও সরঞ্জামবাক্স ব্যবহার করে না।

ব্যাখ্যা:

এটি একটি বেনাম ফাংশন যা কোনও ভেক্টরকে xইনপুট হিসাবে গ্রহণ করে এবং এটি নিজেকে স্থানান্তরিত করে তুলনা করে। এটি একটি ম্যাট্রিক্স দেবে যেখানে সমস্ত তির্যক উপাদান রয়েছে 1এবং কোনও তির্যক উপাদান সিগন্যাল দেয় যে নকল উপাদান রয়েছে।

যে কোনও কলামের যোগফলটি দেখায় যে সেই সংখ্যার কতটি নকল রয়েছে। আমরা দুটি সংখ্যার একটি সদৃশ করতে চাই, সুতরাং আমরা দুটি মানের সমান দুটি এবং বাকি দুটিতে অসম।

যদি আমরা এই ম্যাট্রিক্সের পণ্যটি গ্রহণ করি তবে আমরা 4কেবল দুটি সমতুল্য উপাদান ( 2*2*1*1*1*1*...), এবং 4কোনও নকল না থাকলে বা দুটিরও বেশি কিছু পেয়ে থাকব ।

Answer 24

পিএইচপি, 46 বাইট

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

এন্ট্রি সংখ্যা গণনা করে $argvএবং এটি অনন্য এন্ট্রি সংখ্যার সাথে তুলনা করে। যদি পূর্বেরটি 1 টির চেয়ে বেশি হয় তবে সত্য, অন্যথায় মিথ্যা।

এটি চেষ্টা করুন eval.in এ!

Comments

পরিবর্তিত নামটি কী আপনাকে ব্যবহার করতে হবে - আরজিভি আপনি কেবল তার পরিবর্তে ব্যবহার করতে পারবেন না?

— dading84

@ ডেডিং 84 $argvহ'ল কমান্ড লাইন পরামিতিগুলির তালিকা। সুতরাং: না, তিনি কেবল ব্যবহার করতে পারবেন না $a।

— তিতাস

Answer 25

05 এ বি 1 ই , 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

105AB1E এর একমাত্র সত্যবাদী মান হওয়ায় আমরা এখানে থামতে পারি। (এটি নির্দেশ করার জন্য @ এমিগানাকে ধন্যবাদ))

মাত্র দুটি স্বতন্ত্র মান পেতে, আমরা বিকল্পভাবে যুক্ত করতে পারি:

     Θ  # equals 1?                 -> 1

Comments

যদি মিথ্যা মামলাগুলির জন্য কোনও ভুয়া মান ফিরিয়ে দেওয়া ঠিক হয় তবে আপনি 05 এফ 1 ই এর একমাত্র সত্যবাদী মান Θহিসাবে এড়িয়ে যেতে পারেন 1।

— এমিগানা 21

@ এমিগনা ধন্যবাদ! এটি ওপি দ্বারা অনুমোদিত হয়েছিল কিনা তা সম্পর্কে আমি নিশ্চিত ছিলাম না তবে আমি অনুমান করি এটি is

— আর্নল্ড

আমি ভীত যে আপনাকে আগের সমাধানে ফিরে যেতে ¢হবে কারণ এটি কাজ করবে না। এটি গণনা হবে [19,4,4,9]মিথ্যা বলছে এবং [19,9]সত্য হিসাবে যেহেতু এটি খুঁজে বের করে 0এ 10।

— এমিগানা

এমিলিগা এটি সন্ধানের জন্য ধন্যবাদ। আমি স্থির মনে করি।

— আর্নল্ড

{¥_Oপাশাপাশি ঠিক করা উচিত।

— Emigna

Answer 26

এপিএল (ডায়ালগ ইউনিকোড) , 7 বাইট ^{এসবিসিএস}

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

Answer 27

জেলি , 10 বাইট

ċ@€`QṢ⁼1,2

এটি অনলাইন চেষ্টা করুন!

একটি দীর্ঘ কিন্তু ভিন্ন পদ্ধতির

Answer 28

জাপট, 7 বাইট

â ʶUÊÉ

চেষ্টা করে দেখুন

---

ব্যাখ্যা

সদৃশ ( â) সরান , দৈর্ঘ্য ( Ê) পান এবং সমতা ( ¶) এর সাথে Êইনপুট ( U) বিয়োগ 1 ( É) এর দৈর্ঘ্য ( ) এর সাথে তুলনা করুন ।

Comments

এটা কি 12 বাইট না? âÊɶমাল্টিবাইট চরিত্রগুলি না ?

— রেডক্লোভার

Answer 29

হাস্কেল , 37 বাইট

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

এটি অনলাইন চেষ্টা করুন!

Answer 30

05 এ বি 1 ই , 5 বাইট

gIÙg-

এটি অনলাইন চেষ্টা করুন!

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

05AB1E 1 এ একমাত্র সত্যবাদী মান, সুতরাং সত্যবাদী ফলাফলের জন্য অবশ্যই বৈদ্যুতিন দ্বারা 1 টি সদৃশ উপাদান মুছে ফেলা উচিত।