বিঙ্গোতে সর্বোত্তম প্রতারণা

Question

আপনি অন্যান্য খেলোয়াড়দের থেকে অসুস্থ হয়ে ধোঁকা দিয়ে "বিঙ্গো" ঘোষণা করেছেন এবং তাদের পুরষ্কার দাবি করার জন্য আপনাকে বিজয়ী করে চলেছেন। এবার অন্যরকম হবে। আপনি কলকারীকে ঘুষ দিয়েছিলেন সময়ের আগে আপনাকে বিঙ্গো কল দেওয়ার জন্য, যাতে তারা ডাকা হবে। এখন আপনাকে কেবল একটি বিঙ্গো বোর্ড তৈরি করতে হবে যা এই কলগুলির জন্য যত তাড়াতাড়ি সম্ভব জিতবে, আপনাকে জয়ের গ্যারান্টি দেয় (বা সম্ভাব্য টাই নয়)।

সাধারণ বিঙ্গো ফর্ম্যাটে একটি বিস্মিত স্ট্রিং বা কলগুলির ক্রম অনুসারে দেওয়া হয়েছে (বর্ণগুলি অন্তর্ভুক্ত রয়েছে, উদাহরণস্বরূপ, B9বা G68আরও তথ্যের জন্য নিয়মগুলি দেখুন), সেই কলগুলির জন্য একটি ম্যাট্রিক্স বা 2 ডি তালিকা আউটপুট করুন যাতে those কলগুলির জন্য অনুকূল বিঙ্গো বোর্ডের প্রতিনিধিত্ব হয়। ধরে নিই ইনপুট সর্বদা বৈধ হবে।

বিঙ্গো বিধি:

• 5x5 বোর্ড
• একটি "বিঙ্গো" হ'ল যখন আপনার কার্ডটিতে এখন পর্যন্ত কল করা নম্বরগুলি থেকে পরপর পাঁচটি নম্বর থাকে।
• কেন্দ্রের বর্গক্ষেত্রটি নিখরচায় (স্বয়ংক্রিয়ভাবে একটি বিংগো-র দিকে গণনা করা), এবং হোয়াইট স্পেস, একটি খালি তালিকা -1, বা দ্বারা প্রতিনিধিত্ব করা যেতে পারে 0।
• 5 কলাম অক্ষর দ্বারা প্রতিনিধিত্ব করা হয় B, I, N, G, O, যথাক্রমে।
• প্রথম কলামে 1-15, দ্বিতীয় 16-30, ... এবং পঞ্চম 61-75 নম্বর থাকতে পারে।
• ইনপুটটির জন্য নেওয়া অক্ষর এবং সংখ্যাগুলি allyচ্ছিকভাবে সীমিত করা যেতে পারে (এমন কিছু দ্বারা যা একটি ,স্থান বা স্থানের মতো বোঝায় ) বা একটি চরিত্র এবং একটি সংখ্যার শৃঙ্খলা হিসাবে নেওয়া যেতে পারে।
• আউটপুট ম্যাট্রিক্সে প্রতিটি জায়গায় কেবলমাত্র সংখ্যা প্রয়োজন।
• আপনার প্রারম্ভিক বিংগোতে অবদান রাখবে না এমন স্কোয়ারগুলি অবশ্যই বৈধ হতে হবে, তবে অনুকূল হতে হবে না।
• এটি কোড-গল্ফ, সংক্ষিপ্ততম কোড জয়

উদাহরণ:

আমি উদাহরণগুলির জন্য এই ইনপুট ফর্ম্যাটটি ব্যবহার করছি, কারণ এটি খাটো। গ্রহণযোগ্য ইনপুট / আউটপুট ফর্ম্যাটগুলির জন্য উপরের অংশটি দেখুন।

O61 B2 N36 G47 I16 N35 I21 O64 G48 O73 I30 N33 I17 N43 G46 O72 I19 O71 B14 B7 G50 B1 I22 B8 N40 B13 B6 N37 O70 G55 G58 G52 B3 B4 N34 I28 I29 O65 B11 G51 I23 G56 G59 I27 I25 G54 O66 N45 O67 O75 N42 O62 N31 N38 N41 G57 N39 B9 G60 I20 N32 B15 O63 N44 B10 I26 O68 G53 I18 B12 O69 G49 B5 O74 I24

Possible Output (this has a horizontal BINGO in 3rd row. A diagonal is also possible.): 
[[11,25,42,53,68], 
 [ 6,22,32,57,62],
 [ 2,16, 0,47,61],
 [ 3,17,37,59,75],
 [ 9,19,41,46,70]]

N42 N34 O66 N40 B6 O65 O63 N41 B3 G54 N45 I16 O67 N31 I28 B2 B14 G51 N36 N33 I23 B11 I17 I27 N44 I24 O75 N38 G50 G58 B12 O62 I18 B5 O74 G60 I26 B8 I22 N35 B1 B4 G53 O73 G52 O68 B10 O70 I30 G59 N43 N39 B9 G46 G55 O64 O61 I29 G56 G48 G49 I19 G57 N37 O72 I25 N32 B13 B7 B15 O71 I21 I20 O69 G47

Must be a vertical BINGO in 3rd (N) column (because 4 N's came before one of each B,I,G,O):
[[11,25,42,53,63], 
 [ 2,22,34,57,65],
 [ 6,16, 0,47,66],
 [ 3,17,41,54,75],
 [ 9,19,40,46,70]]

Comments

আপনি বলেছেন যে চিঠিগুলি অন্তর্ভুক্ত রয়েছে। তাঁরা কি বোঝাতে চাইছেন?

— নীল

বিঙ্গো নিয়মের আওতায় @ মুদ্দিফিশ :The 5 columns are represented by the letters B,I,N,G,O, respectively.

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

Answer 1

গণিত, 302 বাইট

(b=Prepend;i=1;n=15#&@@#-15+Range@5&;g=#~b~{N,0};o={#2,#3,#,##4}&@@#&;While[(l=Length@Union[t=(k=Take)[#&@@@g,i]])<5&&Max[#2&@@@Tally@t]<5,i++];If[l<5,m=#&@@Commonest@t;If[m===#,o[g~k~i/.{m,x_}->x/.{_,_}->Nothing],n@#2]&,o@DeleteDuplicates@b[n@#2,<|#->#2&@@@Reverse@g|>@#]~k~5&]~MapIndexed~{B,I,N,G,O})&

অজ্ঞাত ক্রিয়াকলাপটি তার যুক্তি হিসাবে {{N,42},{N,34},{O,66},{N,40},...}অর্ডারযুক্ত জোড়গুলির তালিকা গ্রহণ করে ( যেমন লক্ষ করুন যে প্রতিটি অর্ডারযুক্ত জোড়ের প্রথম উপাদানটি স্ট্রিং নয় বরং একটি নগ্ন প্রতীক), এবং পূর্ণসংখ্যার 2D তালিকা ফিরিয়ে দেয় যেখানে সাবলিস্টগুলি কলামগুলি উপস্থাপন করে (নয় বিংবো বোর্ডের সারি)।

প্রথম পরীক্ষার ক্ষেত্রে আউটপুট:

{{1,3,2,4,5},{17,18,16,19,20},{31,32,0,33,34},{46,48,47,49,50},{62,63,61,64,65}}

সাধারণভাবে, যখন বি / আই / জি / ও সারিতে প্রতিটি সংখ্যায় ডাকা একটি সংখ্যার কারণে প্রথম দিকের সম্ভাব্য বিঙ্গো দেখা দেয়, তখন সেই সংখ্যাগুলি মাঝারি সারিতে থাকবে; প্রতিটি কলামে অন্যথায় চারটি ক্ষুদ্রতম সম্ভাব্য সংখ্যা থাকবে (ইতিমধ্যে ব্যবহৃত নম্বরটি অ্যাকাউন্টে নেওয়া)। উদাহরণস্বরূপ, যদি প্রথম পরীক্ষার কেসটি পরিবর্তন করা হয় যাতে দ্বিতীয় নাম্বার B12পরিবর্তে কল করা হয় B2, তবে আউটপুট বোর্ডের প্রথম কলামটি হবে {1,2,12,3,4}।

দ্বিতীয় পরীক্ষার ক্ষেত্রে আউটপুট:

{{1,2,3,4,5},{16,17,18,19,20},{42,34,0,40,41},{46,47,48,49,50},{61,62,63,64,65}}

সাধারণভাবে, যখন একক কলামে কল করা পাঁচটি সংখ্যার (বা চারটি এন কলামে ডাকা হয়) কারণেই প্রথমতম সম্ভাব্য বিঙ্গো ঘটে, তখন বাকি চারটি কলামে তাদের পাঁচটি ক্ষুদ্রতম সংখ্যার ক্রম থাকে।

যদি দ্বিতীয় পরীক্ষার কেসটি থেকে পরিবর্তিত {{N,42},{N,34},{O,66},{N,40},...}হয় {{O,72},{O,74},{O,66},{N,40},...}(কেবলমাত্র প্রথম দুটি এন্ট্রি পরিবর্তিত হয়), তবে আউটপুটটি হ'ল:

{{1,2,3,4,5},{16,17,18,19,20},{31,32,33,34,35},{46,47,48,49,50},{74,66,72,65,63}}

কিছুটা অবারিত সংস্করণ:

(b=Prepend;i=1;n=15First[#]-15+Range[5]&;g=b[#,{N,0}];o={#2,#3,#,##4}&@@#&;
While[
    (l=Length[Union[t=(k=Take)[Apply[#&,g,{1}],i]]])<5
  &&
    Max[Apply[#2&,Tally[t],{1}]]<5,
  i++];
MapIndexed[
  If[l<5,
    m=First[Commonest[t]];If[m===#,o[k[g,i]/.{m,x_}->x/.{_,_}->Nothing],n[#2]]&,
    k[
      o[DeleteDuplicates[b[n[#2],Association[Apply[#->#2&,Reverse[g],{1}]][#]]]]
    ,5]&
  ],{B,I,N,G,O}
])&

কোডটি সংক্ষিপ্ত করার জন্য প্রথম লাইনটি বেশিরভাগ সংজ্ঞায়িত হয়, যদিও বিঙ্গো-ফাইন্ডিংকে সহজ করার জন্য gকেন্দ্র বর্গক্ষেত্রটিকে {N,0}ইনপুটে প্রিপেন্ড করে । ( nফাংশনটি #1 ম-সূচকযুক্ত কলামে ক্ষুদ্রতম পাঁচটি আইনি বিঙ্গো নম্বর দেয় function oফাংশনটি 5-টিউপল নেয় এবং প্রথম উপাদানটিকে সরিয়ে দেয় যাতে এটি তৃতীয় হয়))

Whileলাইন 2-6 লুপ ইনপুট করে একটি লোটোখেলা রয়েছে ক্ষুদ্রতম প্রাথমিক সেগমেন্ট খুঁজে বের করে। (এক-কলাম-বিঙ্গোসের জন্য তৃতীয় লাইন পরীক্ষা করে, যখন একক-কলাম বিঙ্গোসের জন্য পঞ্চম লাইন পরীক্ষা করে)।

যে কোনও ফাংশনের জন্য F, অপারেটর MapIndexed[F,{B,I,N,G,O}](লাইন 7 থেকে শুরু করে) 5-টিপল তৈরি করে {F{B,1},F{I,2},F{N,3},F{G,4},F{O,5}}(ভাল, প্রযুক্তিগতভাবে এটি {F{B,{1}},...}); আমরা একটি ফাংশন প্রয়োগ Fকরি যা এর দুটি আর্গুমেন্টের মধ্যে দিয়ে একটি বিঙ্গো-বোর্ড কলাম তৈরি করে। এই ফাংশনটি যাইহোক, কোন ধরণের বিঙ্গো পাওয়া গেছে তার উপর নির্ভর করে: লাইন 8 সত্য হয় যখন আমাদের একক-কলামের বিঙ্গো থাকে, সেই ক্ষেত্রে ফাংশন (লাইন 9) বিঙ্গো কলামের প্রাসঙ্গিক ইনপুট নম্বর এবং ডিফল্ট নম্বরগুলিতে ব্যবহার করে অন্যান্য কলাম। অন্য ক্ষেত্রে, ফাংশন (10-10 লাইন) প্রতিটি কলামের কেন্দ্রে প্রাসঙ্গিক ইনপুট নম্বর এবং অন্য কোথাও ডিফল্ট নম্বর ব্যবহার করে।

Comments

কি, কোন অন্তর্নির্মিত Bingoফাংশন?

— mbomb007

-হয়েত, অন্তর্নির্মিত Bingoঅনুমোদিত নয়? <উত্তর পরিবর্তন করতে রান করে>

— গ্রেগ মার্টিন

Answer 2

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

সম্ভবত এখনও কিছুটা গল্ফ করা যেতে পারে, তবে কীভাবে তা আমি দেখছি না। পরামর্শগুলি অনেক প্রশংসা করা হয়;)

A=a=>[1,2,3,4,5].map(x=>x+15*a),F=a=>{b=[[],[],[i=0],[],[]],a.replace(/[^0-9 ]/g,"").split` `.some(x=>{b[--x/15|(c=0)].push(++x);return b.some((x,i)=>(d=x.length)>4||d==1&i-2&&++c>3)});for(e=[A(0),A(1),A(2),A(3),A(4)];i<5;a=b[i][0],b[i][0]=b[i][2],b[i++][2]=a)for(j=0;j<5&b[i].length<5;j++)b[i][j]<i*15+5?e[i].splice(e[i].indexOf(b[i][j]),1):b[i][j]=e[i].shift();return b}