BINGO में इष्टतम धोखा

Question

आप "BINGO" की घोषणा करने और विजयी होने का दावा करते हुए विजयी रूप से चलते हुए अन्य खिलाड़ियों के साथ बीमार हो जाते हैं। इस बार यह अलग होगा। आपने कॉल करने वाले को रिश्वत देने के लिए आपको समय से पहले BINGO कॉल दिया, इसी क्रम में उन्हें बुलाया जाएगा। अब आपको बस एक बिंगो बोर्ड बनाने की आवश्यकता है जो उन कॉलों के लिए जितनी जल्दी हो सके जीत जाएगा, आपको एक जीत (या एक अप्रत्याशित टाई) की गारंटी देता है।

ऑर्डर में कॉल की एक सीमांकित स्ट्रिंग या सूची को देखते हुए, विशिष्ट बिंगो प्रारूप में (पत्र शामिल हैं, जैसे B9या G68, अधिक जानकारी के लिए नियम देखें), उन कॉल के लिए एक इष्टतम बिंगो बोर्ड का प्रतिनिधित्व करते हुए एक मैट्रिक्स या 2 डी सूची का उत्पादन करें। मान लें कि इनपुट हमेशा मान्य होगा।

बिंगो नियम:

• 5x5 बोर्ड
• एक "बिंगो" तब होता है जब आपके कार्ड में उन संख्याओं में से 5 नंबर होते हैं जिन्हें अब तक कहा जाता है।
• केंद्र वर्ग मुफ़्त है (स्वचालित रूप से एक बिंगो की ओर गिना जाता है), और व्हाट्सएप द्वारा प्रतिनिधित्व किया जा सकता है, एक खाली सूची -1, या 0।
• 5 कॉलम पत्र का प्रतिनिधित्व कर रहे B, I, N, G, O, क्रमशः।
• पहले कॉलम में 1-15, दूसरे में 16-30, ... और पांचवें में 61-75 नंबर हो सकते हैं।
• इनपुट के लिए लिए गए अक्षरों और संख्याओं को वैकल्पिक रूप से सीमांकित किया जा सकता है (किसी चीज़ से, जो एक ,या स्थान की तरह समझ में आता है) या एक चरित्र और एक संख्या के टपल के रूप में लिया जाता है।
• मैट्रिक्स में आउटपुट को प्रत्येक स्थान पर केवल संख्या की आवश्यकता होती है।
• ऐसे वर्ग जो आपके शुरुआती बिंगो में योगदान नहीं करेंगे, वे मान्य होने चाहिए, लेकिन उन्हें इष्टतम नहीं होना चाहिए।
• यह कोड-गोल्फ, सबसे छोटा कोड जीत है

उदाहरण:

मैं उदाहरणों के लिए इस इनपुट प्रारूप का उपयोग कर रहा हूं, क्योंकि यह छोटा है। स्वीकार्य इनपुट / आउटपुट प्रारूपों के लिए ऊपर का अनुभाग देखें।

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

आप कहते हैं कि पत्र शामिल हैं। उनका क्या मतलब है?

— ब्लू

बिंगो नियमों के तहत @muddyfish :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},...}(ध्यान दें कि प्रत्येक क्रमबद्ध जोड़ी में पहला तत्व एक स्ट्रिंग नहीं है, बल्कि एक नग्न प्रतीक है), और पूर्णांक की 2 डी सूची लौटाता है, जहां सब्लिस्ट कॉलम का प्रतिनिधित्व करते हैं (नहीं पंक्तियाँ) बिंगो बोर्ड की।

पहले परीक्षण मामले के लिए आउटपुट:

{{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}}

सामान्य तौर पर, जब B / I / G / O पंक्तियों में से प्रत्येक में एक संख्या के कारण सबसे पहले संभव बिंगो होता है, तो वे संख्याएँ केंद्र पंक्ति में होंगी; प्रत्येक कॉलम में अन्यथा चार सबसे छोटी संभव संख्याएँ होंगी (पहले से उपयोग की गई संख्या को ध्यान में रखते हुए)। उदाहरण के लिए, यदि पहले परीक्षण का मामला इतना बदल गया है दूसरे नंबर पर फोन किया है कि 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-अनुक्रमित। 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-12) प्रत्येक कॉलम के केंद्र में प्रासंगिक इनपुट नंबर और अन्यत्र डिफ़ॉल्ट संख्याओं का उपयोग करता है।

Comments

क्या, कोई अंतर्निहित Bingoकार्य नहीं है?

— mbomb007 17

-, बिल्ट-इन Bingoअस्वीकृत नहीं है? <जवाब बदलने के लिए चलाता है>

— ग्रेग मार्टिन

Answer 2

जावास्क्रिप्ट (ईएस 6) 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}