हैप्पी बेकन डे!

40

आज बेकन डे है जो शायद आज भाग लेने के लिए टोपी का नाम "मम्म बेकन" है। बेकन से बाहर किए गए मज़ेदार भरे 2d मैट्रिस के साथ बेकन डे मनाने का इससे बेहतर तरीका और क्या हो सकता है! एक 1 बाय 1 पट्टी का प्रतिनिधित्व इस द्वारा किया जाता है:

----- 
)===)
(===(
)===)
-----

आप यहाँ लक्ष्य एक टपल, ( x, y) में दो निर्देश दिए गए हैं , जहां xऔर yनॉनज़रो पॉजिटिव पूर्णांक हैं, आप बेकन बनाने के लिए हैं और कुछ प्रारूप (सूची, सरणी, स्ट्रिंग) में वापस आते हैं।

इनपुट और आउटपुट:

Input: (2, 1)

Output:
----------  
)===))===)
(===((===(
)===))===)
----------

Input: (1, 2)

Output:

----- 
)===)
(===(
)===)
----- 
)===)
(===(
)===)
-----

Input: (2, 2)

---------- 
)===))===)
(===((===(
)===))===)
---------- 
)===))===)
(===((===(
)===))===)
----------

नियम:

  • जैसा कि आप दूसरे परीक्षण मामले के साथ देख सकते हैं, अगर बेकन के कई टुकड़े एक साथ ढेर हो जाते हैं, तो केवल एक ही -----बेकन के प्रत्येक टुकड़े के ऊपर और / या उसके नीचे अलग होता है। इसका मतलब है कि इस तरह से बेकन को स्टैक करना अमान्य है:

    ----- 
)===)
(===(
)===)
-----
----- 
)===)
(===(
)===)
-----

  • मानक खामियों को मना किया जाता है

  • ऊपर परीक्षण मामलों और निम्न के लिए कोड जरूरी काम: (4, 4), (1, 6), (5, 1), (2, 3),(3, 2)

  • एक दुभाषिया प्रदान करें जहाँ उपरोक्त परीक्षण मामलों का परीक्षण किया जा सके

जीत का मानदंड:

सबसे छोटा कोड जीतता है! सभी को हैप्पी बेकन डे!

code-golf  string  ascii-art  kolmogorov-complexity 
— एंथोनी फाम
स्रोत
इस वार्तालाप को बातचीत में स्थानांतरित कर दिया गया है ।
— डेनिस

जवाबों:

11

वी , 28, 26 , 24 बाइट्स

Ài)³=)Y4PÒ-G.MÓ)/(
kÀäG

इसे ऑनलाइन आज़माएं!

स्पष्टीकरण:

Ài                      " Arg 1 times insert:
  )³=)                  " ')===)'
      <esc>             " Escape back to normal mode
           Y            " Yank this line
            4P          " Paste four times
              Ò-        " Replace this line with '-'
                G.      " Repeat on the last line
                  M     " Move to the middle line
                   Ó)/( " Replace ')' with '('
k                       " Move up (to the second line)
 À                      " Arg 2 times
  äG                    " Duplicate everything up to the last line
— DJMcMayhem
स्रोत
3
मुझे यह पसंद है कि यह उत्तर एक सिंगल बेकन की तुलना में केवल 3 बाइट्स लंबा है: D
— FlipTack
3
@FlipTack में नई ख़बरें हैं। यह वास्तव में 2 छोटा है। : पी
— DJMcMayhem
2
उस के बारे में भूल गए! वाह, एक उत्तर जो आउटपुट के बिल्डिंग ब्लॉक्स से छोटा है। यह कुछ डेनिस शैली का सामान है।
— 19
8

टीआई-बेसिक, 80 बाइट्स

यह वास्तव में काफी प्रतिभाशाली था :)

":→Str0:Input :For(M,0,4Y:For(N,1,X:")===)
If not(fPart(M/4:"-----
If .5=fPart(M/4:"(===(
Str0+Ans→Str0:End:Ans+":→Str0:End
— Timtech
स्रोत
इसके अलावा, किसी को भी सोच के लिए, TI-मूल में पेट और न्यू लाइन परस्पर विनिमय कर रहे हैं, और का उपयोग कर Inputकोई तर्क के साथ में डिफ़ॉल्ट रूप से इनपुट हो जाता है Xऔर Y।
— टिमटेक 30:16
7

पायथन 2.7, 74 बाइट्स

मुझे यकीन है कि यह कुछ और हो सकता है, लेकिन यह वही है जो मैं लेकर आया हूं (पायथन का स्ट्रिंग गुणन फीचर सुनिश्चित है कि काम आता है):

a,b=input();f="-"*5*a;d=")===)"*a;print'\n'.join([f,d,"(===("*a,d,''])*b+f

यहाँ कोशिश करो !

स्पष्टीकरण के साथ अधूरा:

a,b = input()                                       # Take input from the user as a tuple
f = "-"*5 * a                                       # f is the delimiter between bacons
d = ")===)" * a                                     # 2nd and 4th lines of bacon
print '\n'.join([f, d, "(===("*a, d, ''])*b + f     # Join everything together!
— Calconym
स्रोत
5

मैथेमेटिका, 74 बाइट्स

Array[b["-----",b=")===)","(===("][[#~Mod~4]]&,{4#2+1,#}]~Riffle~"\n"<>""&

दो सकारात्मक पूर्णांक तर्क ले रहे हैं और एक स्ट्रिंग के साथ-नईलाइन्स लौटा रहे हैं। एक मानक गणितज्ञ दृष्टिकोण: ऊर्ध्वाधर दिशा में तारों को चक्र करने के लिए (4 मोड) चयनक का उपयोग करके तारों की 2d सरणी का निर्माण करें, फिर उन्हें एक ही स्ट्रिंग में ढह दें।

— ग्रेग मार्टिन
स्रोत
4

बैच, 168 बाइट्स

@set s=
@for /l %%i in (1,1,%1)do @call set s=%%s%%-___-
@set t=%s:_==%
@echo %s:_=-%
@for /l %%i in (1,1,%2)do @echo %t:-=)%&echo %t:-=(%&echo %t:-=)%&echo %s:_=-%

बल्कि दुर्भाग्य से मैं नहीं लिख सकता @echo %s:==-%अन्यथा दूसरे चर के लिए आवश्यकता को समाप्त कर देता।

— नील
स्रोत
2 बाइट्स को 1,2 और 3,4 लाइनों को समेटते हुए बचाएं &...
— Magoo
4

सी, 91 89 बाइट्स

i;f(w,h){w=w*5+1;for(i=0;i<w*4*h+w;++i)putchar(i%w<w-1?i/w%4?i%w%5%4?61:40+i/w%2:45:10);}
— orlp
स्रोत
4

05AB1E , 25 बाइट्स

कोड:

…)==û×Ь'(:s)¬g'-×=¸«»²F=

स्पष्टीकरण:

…)==û                         # Push the string ")===)"
     ×                        # String multiply by the first input
      Ð                       # Triplicate the string
       ¬                      # Take the first character, which is a ')' and push
        '(:                   # Replace by '('
           s                  # Swap the top two elements
            )                 # Wrap everything into an array
             ¬g               # Get the length of the first element in the array
               '-×            # And repeat the character '-' that many times
                  =           # Print it without popping
                   ¸«         # Append the string of dashes to the array
                     »        # Join by newlines
                      ²F      # Second input times do...
                        =     #   Print the top of the stack without popping

CP-1252 एन्कोडिंग का उपयोग करता है । इसे ऑनलाइन आज़माएं!

— अदनान
स्रोत
4

05AB1E , 32 30 बाइट्स

अदनान की बदौलत 2 बाइट बच गईं ।

'-5×…)==ûÐ')'(:s)vy¹×})I.D¬)˜»

इसे ऑनलाइन आज़माएं!

व्याख्या

'-5×                            # push "-----" 
    …)==ûÐ                      # push 3 copies of ")===)"
          ')'(:s                # replace ")" with "(" in the 2nd copy
                )               # wrap in list
                 vy¹×})         # repeat each list entry input-1 times
                       I.D      # repeat list input-2 times
                          ¬     # push the first element of the list ("-----")
                           )˜   # wrap in list and flatten
                             »  # join by newline
— Emigna
स्रोत
आप की जगह ले सकता ")===)"द्वारा …)==û:)
— अदनान
@ अदनान: आह! धन्यवाद!
— इमिग्ना
3

पायथन 2 , 70 बाइट्स

def f(w,h):n=4*h+1;exec"n-=1;print'-)()-===-===-===-)()'[n%4::4]*w;"*n

4 बाइट बचाने के लिए @xnor को धन्यवाद!

इसे ऑनलाइन आज़माएं!

— डेनिस
स्रोत
ऐसा लगता है कि लाइनें आपके परीक्षण के मामले में कोई वैकल्पिक निर्देश नहीं देती हैं।
— xnor
ऐसा लगता है कि यह [_::3]छोटा होगा।
— xnor
ओह शूट, वहाँ कुछ गलत हो गया। जब तक मैं इसे ठीक नहीं कर सकता तब तक हटाना।
— डेनिस
कि किसी भी बाइट जोड़ने के बिना मेरे कोड तय की। धन्यवाद! आइए देखें कि क्या मैं उन लाइनों को फिर से तैयार करने का प्रबंधन करता हूं।
— डेनिस
वहाँ 2**n%5%3कौन सा चक्र है [1, 2, 1, 0, 1, 2, 1, 0, ...]। उपयोगी हो सकता है?
— xnor
3

पायथन 2, 59 बाइट्स

w,h=input()
for a in'-()('*h+'-':print(a+3*'=-'[a>')']+a)*w

a+b*3+aप्रारंभिक वर्ण aऔर केंद्र चरित्र b(जो से गणना की जाती है a) से प्रत्येक पंक्ति उत्पन्न करता है । aके माध्यम से की चक्र '-()(', जबकि bहै '-'जब aहै '-', और '='नहीं तो।

67 बाइट्स:

w,h=input()
for a,b in['--']+zip(')()-','===-')*h:print(a+b*3+a)*w

इसके बाहरी चरित्र aऔर केंद्र चरित्र से प्रत्येक पंक्ति उत्पन्न bकरता है a+b*3+a, फिर wइस की प्रतियां प्रिंट करता है । ये चक्र ए के माध्यम से zip।

— XNOR
स्रोत
3

जावास्क्रिप्ट, 132 129 121 बाइट्स

-8 बाइट्स @ user2428118 को धन्यवाद

(x,y)=>{a=b=["-----",")===)","(===(",")===)","-----"];for(i=0;++i<y;){b=[...b,...a.slice(1)]}return b.map(v=>v.repeat(x)).join(`
`)}


(x,y)=>eval('a=b=["-----",")===)","(===(",")===)","-----"];for(i=0;++i<y;)b=[...b,...a.slice(1)];b.map(v=>v.repeat(x)).join`\n`')


(x,y)=>eval('a=b=[c="-----",d=")===)","(===(",d,c];for(i=0;++i<y;)b=[...b,...a.slice(1)];b.map(v=>v.repeat(x)).join`\n`')

यह काफी अधिक गोल्फ हो सकता है। यदि आपके पास कोई सुझाव है, तो कृपया इसे टिप्पणियों में छोड़ दें।

— ericw31415
स्रोत
मुझे 1 बाइट से हरा दो .. :(
— devRicher
@devRicher लेकिन मैं अभी तक मेरा गोल्फ नहीं बनाया है। :)
— ericw31415
@devRicher वास्तव में मैंने गलती से न्यूलाइन को मिस कर दिया। ओह। संपादित करें: मैंने आपको अभी हराया है।
— ericw31415
1
@ ericw31415 (x,y)=>eval('a=b=[d="-----",c=")===)","(===(",c,d];for(i=0;++i<y;)b=[...b,...a.slice(1)].map(v=>v.repeat(x)).join_BACKTICK NEWLINE BACKTICK_;')
— user2428118
@ user2428118 यह काम नहीं करता है? मैं आपके सरणी सरलीकरण का उपयोग कर सकता हूं। :)
— ericw31415
2

जावास्क्रिप्ट (ईएस 6), 78

(x,y,r=s=>`${s}`.repeat(x)+`
`,a=r`)===)`,c=r`-----`)=>c+r(a+r`(===(`+a+c,x=y)

परीक्षा

F=
(x,y,r=s=>`${s}`.repeat(x)+`
`,a=r`)===)`,c=r`-----`)=>c+r(a+r`(===(`+a+c,x=y)

function update() {
  var x=+X.value,y=+Y.value
  O.textContent=F(x,y)
}

update()
X<input type=number id=X value=1 min=1 oninput='update()'>
Y<input type=number id=Y value=1 min=1 oninput='update()'>
<pre id=O></pre>
स्निपेट का विस्तार करें

— edc65
स्रोत
1

गेममेकर लैंग्वेज, 160 139 148 बाइट्स 133 बाइट्स

x=argument0 y=argument1*4for(m=0;m<=y;m++){for(n=0;n<x;n++){a=")===)"if !m mod 4a="-----"else if n mod 2a="(===("r+=a}r+="#"}return r
— Timtech
स्रोत
इसके अलावा, इससे पहले कि आप यह सुझाव, GML पाश के लिए के प्रत्येक भाग की आवश्यकता है एक बयान के अंदर :( के लिए
— Timtech
1

जेली , 26 बाइट्स

4“\ḊƭVṠ’bị“-=()”s5ẋ€ḷẋµ1ịṭ

यह एक डाइएडिक लिंक (फ़ंक्शन) है जो 2 डी सरणी देता है।

इसे ऑनलाइन आज़माएं!

यह काम किस प्रकार करता है

4“\ḊƭVṠ’bị“-=()”s5ẋ€ḷẋµ1ịṭ  Main link. Left argument: w. Right argument: h

4                           Set the return value to 4.
 “\ḊƭVṠ’b                   Yield 366323084456 and convert it to base 4.
                            This yields [1,1,1,1,1,0,2,2,2,0,3,2,2,2,3,0,2,2,2,0].
         ị“-=()”            Index into that string, using modular 1-based indexing.
                s5          Split the result into chunks of length 5.
                  ẋ€ḷ       Repeat the characters of each chunk w times.
                     ẋ      Repeat the array of chunks h times.
                      µ     Begin a new, monadic chain. Argument: M (bacon matrix)
                       1ị   Retrieve the first line.
                         ṭ  Tack; append it to M.
— डेनिस
स्रोत
0

सी, 159 158 153 बाइट्स

p(s,n){printf(s,--n?p(s,n):0);}i,j;b(n,m){p("-----",n);for(j=3;j--;){p("\n",1);for(i=n;i--;)p(j%2?"(===(":")===)",1);}p("\n",1);--m?b(n,m):p("-----",n);}

के साथ बुलाना:

int main()
{
    b(2,3);
}
— Steadybox
स्रोत
C में एक और उत्तर देखकर अच्छा लगा, लेकिन इसे थोड़ा छोटा किया जा सकता है, मेरा उत्तर
— देखिए
0

सी #, 160 बाइट्स

x=>y=>{int i=0,h=4*y+1,j;var s=new string[h];for(;i<h;++i)if(i%4<1)s[i]=new string('-',x*5);else{var c=i%2>0?')':'(';for(j=0;j++<x;)s[i]+=c+"==="+c;}return s;};

प्रारूपित संस्करण:

x => y =>
{
    int i = 0, h = 4 * y + 1, j;

    var s = new string[h];

    for (; i < h; ++i)
        if (i % 4 < 1)
            s[i] = new string('-', x * 5);
        else
        {
            var c = i % 2 > 0 ? ')' : '(';

            for (j = 0; j++ < x; )
                s[i] += c + "===" + c;
        }

    return s;
};

इसे ऑनलाइन आज़माएं! (किसी कारण से यह लिंक एक त्रुटि देता है लेकिन वैसे भी काम करता है)

— TheLethalCoder
स्रोत
0

दिल्लोग एपीएल, 55 बाइट्स

यह Dyalog APL का उपयोग करने का मेरा पहला मौका है, इसलिए मुझे यकीन है कि यह सबसे अच्छा तरीका नहीं है। 

 {(⊂'-----'),[1]⍉⍺(4×⍵)⍴')===)' '(===(' ')===)' '-----'}

स्पष्टीकरण: यह एक काफी सरल तरीका है, एन × एम के बेकन ग्रिड के लिए, मैं निम्नलिखित चार तारों का एक एन × (4 एम) मैट्रिक्स बनाता हूं, दोहरा रहा हूं: 

')===)'
'(===('
')===)'
'-----'

फिर मैं -----शुरुआत के लिए स्ट्रिंग को गाढ़ा करता हूं ।

यहाँ कोड की एक त्वरित व्याख्या है:

')===)' '(===(' ')===)' '-----'  ⍝ An array of the four strings        

⍺ (4×⍵) ⍴                        ⍝ reshape (⍴) the array to a matrix with the dimensions
                                 ⍝ ⍺ by (4×⍵) (⍺ is the 1st argument and ⍵ is the second) 

⍉                               ⍝ transpose the matrix 

,[1]                             ⍝ concatenate to beginning of the matrix...

(⊂'-----')                       ⍝ ...the string '-----' embedded in its own matrix (⊂)
— ren
स्रोत
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.