সর্বাধিক সাধারণ একাধিক

Question

লেস্ট কমন একাধিকের সাথে বিভ্রান্ত হওয়ার দরকার নেই ।

একাধিক উপাদান সহ ধনাত্মক পূর্ণসংখ্যার একটি তালিকা দেওয়া হয়েছে, অ্যারের মধ্যে দুটি উপাদানের সর্বাধিক সাধারণ পণ্যটি ফিরিয়ে দিন।

উদাহরণস্বরূপ, তালিকার এমসিএম [2,3,4,5,6]হ'ল 12, পণ্যগুলির একটি সারণি হ'ল:

    2  3  4  5  6
  ---------------
2 | #  6  8  10 12
3 | #  #  12 15 18
4 | #  #  #  20 24
5 | #  #  #  #  30
6 | #  #  #  #  #

টেবিলে ধন্যবাদ ডিজেএমসিএমহেমকে

12সর্বাধিক বার হিসাবে প্রদর্শিত হয় (হিসাবে দুইবার 2*6এবং হিসাবে 3*4)। মনে রাখবেন যে আমরা কোনও উপাদান এবং তার নিজস্ব পণ্য অন্তর্ভুক্ত করছি না, তাই 2*2বা 4*4এই তালিকায় উপস্থিত হয় না। যাইহোক, অভিন্ন উপাদানগুলি এখনও বহুগুণ হবে, সুতরাং দেখতে টেবিলটি [2,3,3]দেখতে দেখতে:

    2  3  3
  ----------
2 | #  6  6 
3 | #  #  9
3 | #  #  #

এমসিএম থাকায় 6।

টাই হওয়ার ক্ষেত্রে, আপনি কোনও বাঁধা উপাদান বা তাদের সকলের একটি তালিকা ফিরে আসতে পারেন।

• এটি কোড-গল্ফ , তাই প্রতিটি ভাষার জন্য সংক্ষিপ্ততম বাইট গণনা!

টেস্ট-মামলা:

[2,3,4,5,6] -> 12
[7,2] -> 14
[2,3,3] -> 6
[3,3,3] -> 9
[1,1,1,1,2,2] -> 2
[6,200,10,120] -> 1200
[2,3,4,5,6,7,8,8] -> 24
[5,2,9,10,3,4,4,4,7] -> 20
[9,7,10,9,7,8,5,10,1] -> 63, 70, 90 or [63,70,90]

Comments

স্যান্ডবক্স (মুছে ফেলা)

— জো কিং

প্রস্তাবিত পরীক্ষার কেস: এক যেখানে সমস্ত উপাদান একই (যেমন [3,3,3] -> 9)। আপনার সমস্ত বর্তমান পরীক্ষার কেসগুলি যে কোনও জোড়গুলিকে ফিল্টার করে যেখানে উপাদানগুলি একই থাকে (এমনকি একই পরীক্ষার ক্ষেত্রেও [2,3,3]একই মান রয়েছে) এখনও সঠিক পরীক্ষার ফলাফল রাখবে, তবে এই পরীক্ষার ক্ষেত্রে ব্যর্থ হবে কারণ ফিল্টারিংয়ের পরে আর কিছু থাকবে না।

— কেভিন ক্রুইজসেন

@ কেভিন ভাল পরামর্শ, যোগ করেছেন

— জো কিং

Answer 1

ব্র্যাচল্যাগ , 11 বাইট

{⊇Ċ×}ᶠọtᵒth

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

ব্যাখ্যা

{   }ᶠ          Find all:
 ⊇Ċ×              Product of a subset of 2 elements
      ọtᵒ       Order by occurrences
         th     Take the last element and discard the number of occurrences

Comments

আমি জানি না যে কোড গল্ফ সাধারণত কীভাবে কাজ করে তবে স্ট্যান্ডার্ড 256 কোড পয়েন্টগুলির বাইরে এই অক্ষরগুলির কিছু নয় এবং তাই প্রতিটি একাধিক বাইট?

— ফাঁকা

@ হোলোয়ে ব্র্যাচল্যাগ একটি কাস্টম কোড পৃষ্ঠা ব্যবহার করেছে

— আগস্টকে ফ্যাটালাইজ করুন

Answer 2

আর , 54 50 41 বাইট

order(-tabulate(combn(scan(),2,prod)))[1]

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

বিকল্পভাবে, 54 53 44 বাইটের জন্য:

names(sort(-table(combn(scan(),2,prod))))[1]

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

নীতিগতভাবে, পরবর্তী সংস্করণটি namesকার্যকারিতা ছাড়াই প্রাসঙ্গিক ফলাফলকে আউটপুট দেয় তবে এর পরে এমন ঘন ঘন পণ্যগুলি গণনা করা হয়, যার জন্য জিজ্ঞাসা করা হয় না ...

-4 এবং -1 এর জন্য ক্রিমিনালিভালগার এবং উভয়কে জিউসেপ -9-এর জন্য ধন্যবাদ।

Comments

দ্বিতীয়টিতে আপনি -1 এর জন্য = সত্যের পরিবর্তে-টেবিল () ব্যবহার করতে পারেন। যদিও আমি প্রথমটির চতুরতা সত্যিই পছন্দ করি। সম্পাদনা: ঠিক বুঝতে পেরেছি যে আপনি -4 এর জন্য প্রথমটিতে এটি প্রয়োগ করতে পারেন, তাই আছে। এটি অনলাইন চেষ্টা করুন!

— অপরাধমূলকভাবে

combn(scan(),2,prod)ব্যবহারের পরিবর্তে কাজ করেapply

— জিউসেপ

Answer 3

জেলি , 6 বাইট

ŒcP€Æṃ

এটি অনলাইন চেষ্টা করুন! বা পরীক্ষার স্যুটটি পরীক্ষা করে দেখুন ।

কিভাবে এটা কাজ করে

PcP € Æṃ - সম্পূর্ণ প্রোগ্রাম / মোনাডিক লিঙ্ক।
--C - প্রতিস্থাপন ছাড়াই আনর্ডার্ড জোড়।
  পি € - প্রতিটি পণ্য।
    Æṃ - মোড (সর্বাধিক সাধারণ উপাদান)।

বিকল্প: ZcZPÆṃ

Answer 4

পাইথ, 12 বাইট

eo/QN=*M.cQ2

পরীক্ষা স্যুট

প্রথমত, আমরা প্রতিস্থাপন ( .cQ2) ছাড়াই ইনপুটটির সমস্ত 2 টি উপাদান সংমিশ্রণ গ্রহণ করি । তারপরে, আমরা এই জোড়াটি তাদের পণ্য ( *M) এ ম্যাপ করি । এরপরে, আমরা পণ্যগুলির তালিকা ( =) এর সাথে ইনপুট ভেরিয়েবলটি ওভাররাইট করি । এরপরে, আমরা পণ্যের তালিকায় উপস্থিতিগুলির সংখ্যা অনুসারে পণ্যগুলির তালিকাটি সাজান ( o/QN)। অবশেষে, সাজানো তালিকার চূড়ান্ত উপাদানটি নিন ( e)।

Answer 5

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

2XN!pXM

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

(@ মি। এক্সকোডারের জেলি উত্তরটি থেকে পদ্ধতিটি ব্যবহার করে বাইট করুন ))

2XN     % nchoosek - get all combinations of 2 elements from input
!p      % get the product of each combination
XM      % 'mode': get the most common value from that

---

পুরানো উত্তর:

8 বাইট

&*XRXzXM

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

&*    % multiply input by its transpose,
      %  getting all elementwise products
XR    % take the upper-triangular portion of that,
      %  zeroing out repetitions and mainly self-multiplications
Xz    % remove the zeroed out parts
XM    % 'mode' calculation - get the most common value from that

Answer 6

05 এ বি 1 ই , 8 6 বাইট

æ2ùP.M

-2 ধন্যবাদ বাইট @Kaldo ।

এটি অনলাইনে চেষ্টা করুন বা সমস্ত পরীক্ষার কেস যাচাই করুন ।

ব্যাখ্যা:

æ         # Take the powerset of the input-list
          #  i.e. [2,3,3] → [[],[2],[3],[3],[2,3],[2,3],[3,3],[2,3,3]]
 2ù       # Leave only the inner lists of size 2:
          #  i.e. [[],[2],[3],[3],[2,3],[2,3],[3,3],[2,3,3]] → [[2,3],[2,3],[3,3]]
   P      # Take the product of each remaining pair
          #  i.e. [[2,3],[2,3],[3,3]] → [6,6,9]
    .M    # Only leave the most frequent value(s) in the list
          #  i.e. [6,6,9] → [6]

Comments

by2ùP.M 6 বাইটের জন্য

— কল্ডো

ক্যাল্ডো ধন্যবাদ! সম্পর্কে সম্পূর্ণরূপে ভুলে গেছি ù।

— কেভিন ক্রুইজসেন

Answer 7

গণিত, 32 বাইট

^{-১ by বাইট (এবং একটি স্থির) জংহওয়ান মিনকে ধন্যবাদ ।}

Commonest[1##&@@@#~Subsets~{2}]&

খাঁটি ফাংশন। ইনপুট হিসাবে সংখ্যার একটি তালিকা নেয় এবং এমসিএমগুলির তালিকা আউটপুট হিসাবে দেয়।

Comments

আসলে দেখে মনে হচ্ছে আমরা দুজনেই প্রশ্নটি ভুল করে পড়েছি। এটি ইনপুট জন্য ব্যর্থ {3, 3, 3}। স্থির করা:Commonest[1##&@@@#~Subsets~{2}]&

— জংহওয়ান মিন

নিবন্ধন করুন আমি ভেবেছিলাম যে Subsetsপৃথক উপাদান হিসাবে পুনরাবৃত্তি গণনা করা হয় নি। দেখে মনে হচ্ছে এটি যদি হয় তবে ধন্যবাদ!

— LegionMammal978

Answer 8

ম্যাটল্যাব, 43 বাইট

I=input('');i=I'*I*1-eye(nnz(I));mode(i(:))

এটিও এক প্রকার জিহ্বা টুইস্টার!

ব্যাখ্যা

I=input('');           % Takes an input like "[2,3,4,5,6]"
i=I'*I                 % Multiplies the input by its own transverse
      *1-eye(nnz(I));  % Multiplies by 1-identity matrix to remove diagonal
mode(i(:))             % Calculates most common value and prints it

Comments

আমি নিশ্চিত না যে আপনাকে যা করতে হবে I'*I*1-eyeতা ঠিক কেন নয় I'*I-eye?

— AAAAA বলেছেন পুনর্বহাল মনিকা

Answer 9

পার্ল 6 , 41 38 বাইট

{key max bag(@_ X*@_)∖@_»²: *{*}:}

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

Comments

আপনি দয়া করে আমাকে ব্যাখ্যা করতে পারেন (বা ডক্সে আমাকে নির্দেশ করুন) সেখানে কলোনগুলি কী করছে? আমি এটি বেশ কার্যকর করতে পারি না ... আমি দেখতে পাচ্ছি যে এটির যুক্তি পাসের সাথে কিছু করার আছে তবে এর চেয়ে বেশি কিছুই নেই।

— র‌্যামিলিস

@ র্যামিলিজ এটি ইনফিক্স: অপারেটর।

— nwellnhof

আহ আমি দেখি. ধন্যবাদ.

— রমিলিজ

Answer 10

স্ট্যাক্স , 12 10 বাইট

╢êv^⌐ö►♣Ä»

এটি চালান এবং এটি ডিবাগ করুন

Answer 11

পাইথন 3 , 77 72 বাইট

f=lambda k,*l,m=[]:l and f(*l,m=m+[k*x for x in l])or max(m,key=m.count)

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

Answer 12

সংযুক্তি , 59 বাইট

Last##~SortBy#`&&:`~##{Flat[UpperTriangle&1!Table&_!`*]^^0}

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

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

ব্যাখ্যা

এটি তিনটি ফাংশনের সংমিশ্রণ:

1. {Flat[UpperTriangle&1!Table&_!`*]^^0}
2. SortBy#`&&:`~
3. Last

প্রথম ফাংশনটি গণনার বেশিরভাগ অংশ করে:

{Flat[UpperTriangle&1!Table&_!`*]^^0}
{                                   }    anonymous lambda; input: _ (e.g.: [2,3,4,5,6])
                      Table&_!`*         shorthand for Table[`*, _]
                                         this creates a multiplication table using the input
                                         e.g.:
                                           4  6  8 10 12
                                           6  9 12 15 18
                                           8 12 16 20 24
                                          10 15 20 25 30
                                          12 18 24 30 36

      UpperTriangle&1!                   takes the strict upper triangle of this matrix
                                         e.g.:
                                          0 6  8 10 12
                                          0 0 12 15 18
                                          0 0  0 20 24
                                          0 0  0  0 30
                                          0 0  0  0  0
Flat[                           ]^^0     flattens this list and removes all 0s
                                         e.g.: [6, 8, 10, 12, 12, 15, 18, 20, 24, 30]

দ্বিতীয়টি কিছুটা জটিল তবে সাধারণ কিছু করে। প্রথমত, এটি জেনে রাখা কার্যকর যে f&nএটি একটি ফাংশন যা আর্গুমেন্টের সাথে ডাকা হলে ...xফিরে আসে f[...x, n]। f&:nএকই, ফিরে f[n, ...x]। এখন, এটিকে পচন করি:

( ~SortBy ) # (`& &: `~)

প্রথমে f#gএকটি কাঁটাচামচ তৈরি করে। ইনপুট সহ n, এটি ফিরে আসে f[n, g[n]]। যাইহোক, এই ক্ষেত্রে, fফাংশন হয় ~SortBy। ~fফাংশনের আর্গুমেন্টগুলি বিপরীত করে। এর অর্থ এই যে ~f#gসমতূল্য f[g[n], n], এখানে, বা SortBy[(`& &: `~)[n], n]।

`& &: `~ফর্ম অনুসরণ করে f&:n। কিন্তু কি `&এবং `~? এগুলি "অপারেটর কোটস" এবং উদ্ধৃত অপারেটরের সমতুল্য একটি ফাংশন ফেরত দেয়। সুতরাং, এই ক্ষেত্রে, `&হিসাবে একই জিনিস ${ x & y }। এই বিষয়টি মনে রেখে, বাইনারি অপারেটরগুলির জন্য এই অভিব্যক্তিটি নীচের সমান:

f&:n   <=>   ${ f[n, x] }
       <=>   ${ (`&)[`~, x] }
       <=>   ${ `~ & x }

এটি ফাংশন দেয় `~&xযেখানে xপ্রথম ফাংশন থেকে ফলাফল আসে। n ~ aএর ঘটনার বড়, মোট ছাত্র nমধ্যে a। সুতরাং, এটি একটি ফাংশন দেয় যা ফাংশন 1 থেকে গণনা অ্যারেতে যুক্তির উপস্থিতিগুলি গণনা করে।

ফিরে যেতে SortBy, অ্যারেতে প্রতিটি উপাদান এটির সংখ্যার দ্বারা প্রদর্শিত হয়।

অবশেষে, Lastউপাদানটি নেয় যা সবচেয়ে বেশি ঘটে। বাছাই অ্যালগরিদম বাছাইয়ের মাধ্যমে।

Comments

আপার ট্রায়াঙ্গেল অংশটি কী প্রয়োজনীয়? আপনি কি কেবল টেবিলটি সমতল করতে এবং বাছাই করতে পারেন?

— স্বাভিল

@ স্প্যাভিল হ্যাঁ, এটি প্রয়োজন; [5, 2, 9, 10, 3, 4, 4, 4, 7] -> 16পরিবর্তে এটি 20ছাড়া।

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

Answer 13

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

a=>a.map(m=o=(y,Y)=>a.map(x=>Y--<0?m=(o[x*=y]=-~o[x])<m?m:o[r=x]:0))|r

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

Comments

$16$$20$

Answer 14

কাঠকয়লা , 24 বাইট

ＷθＦ×⊟θθ⊞υκＩ⊟Φυ⁼№υι⌈Ｅυ№υλ

এটি অনলাইন চেষ্টা করুন! লিঙ্কটি কোডটির ভার্জোজ সংস্করণ। ব্যাখ্যা:

Ｗθ

ইনপুট অ্যারেটি খালি থাকা অবস্থায় ...

×⊟θθ

... শেষ উপাদানটি পপ করুন এবং সেই উপাদানটির সাহায্যে বাকী অ্যারেটি গুণ করুন ...

Ｆ...⊞υκ

... এবং পূর্বনির্ধারিত খালি তালিকায় ফলাফলগুলি ধাক্কা।

⌈Ｅυ№υλ

প্রতিটি পণ্য তালিকায় প্রদর্শিত হওয়ার সময় গণনা করুন এবং সর্বাধিক ...

Φυ⁼№υι...

... তারপরে এমন পণ্যগুলির জন্য ফিল্টার করুন যার গণনা সর্বাধিক ...

Ｉ⊟

... তারপরে শেষ উপাদানটি পপ করুন এবং অন্তর্নিহিত মুদ্রণের জন্য স্ট্রিংয়ে কাস্ট করুন।

Answer 15

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

Ṡ►#mΠṖ2

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

ব্যাখ্যা

Ṡ►#mΠṖ2  -- example input [3,3,3]
     Ṗ2  -- subsequences of length 2: [[3,3],[3,3],[3,3]]
   mΠ    -- map product: [9,9,9]
Ṡ        -- apply 
  #      -- | count occurences in list
 ►       -- to maxOn that list: [9]

Answer 16

এপিএল (ডায়ালগ ইউনিকোড) , 29 27 19 বাইট

{⌈/⊢/⊣¨⌸∊⍵}⍳∘≢↓¨⊢×⊂

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

ট্যাসিট এফএন।

সারণী সংস্করণ এবং 2 বাইটের জন্য অ্যাডমকে ধন্যবাদ।

8 বাইটের জন্য এনএনজি ধন্যবাদ!

কিভাবে:

{⌈/⊢/⊣¨⌸∊⍵}⍳∘≢↓¨⊢×⊂
                ⊢×⊂   ⍝ Multiply each element with the entire argument, then
           ⍳∘≢↓¨      ⍝ Remove 1 from the first, two from the next etc. (removes repeated multiplications);
                      ⍝ The result is then fed into the function:
{       ∊⍵}           ⍝ Flatten the result;
     ⊣¨⌸              ⍝ Key; creates a matrix in which each row corresponds to a unique product;
   ⊢/                 ⍝ Get the rightmost column of the matrix;
 ⌈/                   ⍝ Get the highest value.

Comments

এটি কেবল 27 ।

— অ্যাডাম

Answer 17

জাপট , 20 16 বাইট

• @ শেগি থেকে -4 বাইট

---

£s°Y m*XÃc
ñ@è¥X

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

Comments

16 বাইট

— শেগি

Answer 18

সিজেম , 70 68 বাইট

q',/S*~_,(:L{LX-,0a\+[{X1++}*](;{_X=\_Y=@*\}fY}fX]~;]_{\_@e=}$\;_,(=

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

ব্যাখ্যা

q',/S*~                                                                  Turn input string into a valid CJam array
       _,(                                                               Find the length of the array and subtract 1
          :L                                                             Assign the result to L
            {                                 }fX                        Outer for loop
             LX-,0a\+[{X1++}*](;                                         Create an array with all the array indexes bigger than X
                                {          }fY                           Inner for loop
                                 _X=\_Y=@*\                              Create a multiple of array[X] and array[Y] (Guaranteed to be from a unique combination of factors)
                                                 ~;]                     Casts away all stack items except for an array of the multiples
                                                    _{\_@e=}$\;          Sorts array by number of occurrences (largest number of occurences at the end)
                                                               _,(=      Gets the last element of the array

কোডটি বেশ দীর্ঘ, সেই সাথে ব্যাখ্যাগুলি হিসাবে আপনার ব্যাখ্যাগুলি দেখতে ডান স্ক্রোল করতে হবে।

---

এটি ছিল নিখুঁত দুঃস্বপ্ন। সিজেমের একটি পাওয়ারসেট ফাংশন নেই (অন্যান্য গল্ফিং ভাষাগুলির তুলনায় আমার পক্ষে দুর্দান্ত পছন্দ), যার অর্থ আমাকে নিজে হাতে পাওয়ারসেটটি খুঁজে পেতে হয়েছিল। যাইহোক, এটি আমাকে পাওয়ারসেট ফাংশন সহ অন্যান্য জবাবগুলির विपरीत, কোনও অবৈধ সংখ্যক কারণকে উপেক্ষা করার সুযোগ দিয়েছে।

সিজেমে আমি ভয়াবহ বিবেচনা করে এটি গল্ফযোগ্য হওয়া উচিত।

---

পরিবর্তন করুন:

হেলেন কেটে ফেললেন 2 বাইট!

পুরাতন: q',/S*~_,1-:L{LX-,0a\+[{X1++}*](;{_X=\_Y=@*\}fY}fX]~;]_{\_@e=}$\;_,1-=
নতুন:q',/S*~_,(:L{LX-,0a\+[{X1++}*](;{_X=\_Y=@*\}fY}fX]~;]_{\_@e=}$\;_,(=

এসগুলিকে 1-সহজেই পরিবর্তন করে (আমরা একই প্রভাব পাই তবে একটি কম বাইট গণনা সহ।

Answer 19

জাভা (জেডিকে 10) , 132 বাইট

a->{int l=a.length,i=l,j=0,r=99999,m[]=new int[r];for(;i-->0;)for(j=l;--j>i;)m[a[i]*a[j]]++;for(;r-->0;)i=m[r]<i?i:m[j=r];return j;}

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

Answer 20

হাস্কেল , 96 94 বাইট

^{-২ বাইট ধন্যবাদ নিমিকে ( sortOn(0<$)পরিবর্তে ব্যবহার করে length)!}

import Data.List
f a|b<-zip[0..]a=last.last.sortOn(0<$).group$sort[x*y|(i,x)<-b,(j,y)<-b,i/=j]

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

Answer 21

ম্যাটল্যাব 39 বাইট

a=input('');
b=triu(a'*a,1);
mode(b(b~=0))

এছাড়াও চেক আউট জ্যাকব ওয়াটসন দ্বারা উত্তর

Comments

দ্বিতীয় লাইনটি b=triu(a'*a,1);4 বাইট সংরক্ষণ করে Having

— সূন্দর - মনিকা

@ সুন্দর ওহ স্ন্যাপ, আপনি ঠিক বলেছেন :) আমি অন্তঃসত্ত্বা triuহয়ে গিয়েছিলাম কিন্তু কোনওরকমে দূরে সরে গিয়েছিলাম

— মনিকা 24 ই

ভাল সমাধান, আমি বুঝতে পারি না উপরের ত্রিভুজটির কার্য এত ছোট ছিল!

— জ্যাকব ওয়াটসন

Answer 22

এসকিউএল সার্ভার, 93 বাইট

SELECT TOP 1a.a*b.a
FROM @ a
JOIN @ b ON a.i<b.i
GROUP BY a.a*b.a
ORDER BY COUNT(a.a*b.a)DESC

ইনপুটটি ফর্মের একটি সারণী থেকে আগত বলে ধরে নেওয়া হচ্ছে

DECLARE @ TABLE (A int, i int identity);

উদাহরণ সারণী জনসংখ্যা:

INSERT INTO @ VALUES (9), (7), (10), (9), (7), (8), (5), (10), (1);

ব্যাখ্যা:

আমি ধরে নিয়েছি একটি "পূর্ণসংখ্যার তালিকা" তাদের সাথে একটি সূচক যুক্ত থাকবে, যা আমার ক্ষেত্রে কলাম i। কলামে aতালিকার মান রয়েছে।

আমি প্রতিটি জুটির পণ্য তৈরি করি, যেখানে বাম জুটি তালিকার আগে ডান জোড়ার চেয়ে আগে আসে। আমি তারপরে পণ্যটি গ্রুপ করব, এবং সর্বাধিক জনসংখ্যার সংখ্যা অনুসারে বাছাই করব।

আমি কিছুটা দু: খিত যে আমি কোনও সিটি বা বিভাজনমূলক ধারা ব্যবহার করতে পারি নি, তবে সেগুলি কেবল দীর্ঘ। SELECTএকটি খুব ব্যয়বহুল কীওয়ার্ড।

বিকল্প, 183 বাইট

WITH c
AS(SELECT a,ROW_NUMBER()OVER(ORDER BY a)r
FROM @),d AS(SELECT a.a*b.a p,COUNT(a.a*b.a)m
FROM c a
JOIN c b ON a.r<b.r GROUP BY a.a*b.a)SELECT TOP 1p
FROM d
ORDER BY m DESC

যদি এসকিউএল একটি পৃথক সূচক কলাম না পেয়ে থাকে তবে এখানে একটি সমাধান রয়েছে যেখানে আমি ROW_NUMBERফাংশনটি ব্যবহার করে একটি সূচক তৈরি করব । আমি ব্যক্তিগতভাবে অর্ডারটির বিষয়ে চিন্তা করি না, তবে একটি আদেশ প্রয়োজন এবং aকলামটি ব্যবহার করা সবচেয়ে কম।

Answer 23

সিজেম , 29 বাইট

q~:L,2m*{:-},{Lf=:*}%$e`:e>1=

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

Answer 24

বার্লেস্ক - 8 বাইট

Jcp)pdn!

J        duplicate
 cp      cross product
   )pd   map . product
      n! most common element

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

(এবং হ্যাঁ, "ন্যূনতম সাধারণ উপাদান" এর জন্যও বার্লস্কের কমান্ড রয়েছে)

Answer 25

সি # (ভিজ্যুয়াল সি # ইন্টারেক্টিভ সংকলক) , 95 বাইট

x=>x.SelectMany(y=>(x=x.Skip(1)).Select(z=>y*z)).GroupBy(y=>y).OrderBy(y=>y.Count()).Last().Key

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

কম গল্ফ কোড:

// x is a list of integers
x=>
  // iterate over each integer and
  // return a list per element.
  // flatten the list of lists to 1 list
  x.SelectMany(y=>
    // skip the current value and save
    // newly offset list to x so that it
    // can be incrementally offset
    // again next pass
    (x=x.Skip(1))
      // compute the product
      .Select(z=>y*z))
    // get the unique products
    .GroupBy(y=>y)
    // sort the products by number
    // of occurrences
    .OrderBy(y=>y.Count())
    // pick the product with the
    // greatest number of occurrences
    .Last().Key

Answer 26

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

while($c=$argv[++$i])for($k=$i;--$k;)$r[$c*$argv[$k]]++;asort($r);echo end(array_flip($r));

কমান্ড লাইন আর্গুমেন্ট থেকে ইনপুট নেয়; এটি দিয়ে চালান -nrবা অনলাইনে চেষ্টা করুন ।

শক্ত মোড সতর্কতা এড়াতে পিএইচপি 7 ব্যবহার করুন।

Answer 27

জে, 29 25 24 23 বাইট

(0{~.\:1#.=)@(</#&,*/)~

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

কিভাবে

(~. {.@\: 1 #. =)@(</ #&, */)~
                  (</ #&, */)~  NB. all products, dups removed:
                          */    NB. create the times table
                   </           NB. lower triangular ones matrix
                       &,       NB. flatten each and
                      #         NB. filter based on lower triangle
                 @              NB. pass that result to
(~. {.@\: 1 #. =)               NB. get the most frequent list item:
       \:                       NB. sort down
 ~.                             NB. the uniq elements
          1 #. =                NB. by their count
    {.@                         NB. and take the first element

Answer 28

জাপট -h, 11 বাইট

à2 ®×Ãü ñÊÌ

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

á2 ®×
ñ@è¥X

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

Answer 29

এপিএল (এনএআরএস), 53 টি চর, 106 বাইট

{0=l←↑⍴⍵:⍵⋄t⊃⍨q⍳⌈/q←{+/t=⍵}¨t←×/¨(∊(⍳l)∘.<⍳l)/,⍵∘.,⍵}

টেস্ট:

  p←{0=l←↑⍴⍵:⍵⋄t⊃⍨q⍳⌈/q←{+/t=⍵}¨t←×/¨(∊(⍳l)∘.<⍳l)/,⍵∘.,⍵}
  p 9
9
  p 1 3
3
  p 2 3 4 5 6
12
  p 7 2
14
  p 2 3 3
6
  p 3 3 3
9
  p 1 1 1 1 2 2
2
  p 6 200 10 120
1200
  p 2 3 4 5 6 7 8 8
24
  p 5 2 9 10 3 4 4 4 7
20
  p 9 7 10 9 7 8 5 10 1
63
  p 3 3
9