सीढ़ी चुनौती


20

आपका काम कला के इस टुकड़े को फिर से बनाना है:

                        _____
                       |
                       |
                       |
                       |
                  _____| 
                 |
                 |
                 |
                 |
            _____|
           |
           |
           |
           |
      _____|
     |
     |
     |
     |
_____|

उत्तर को इसे फिर से बनाना होगा और परिणामस्वरूप प्रिंट करना होगा। सभी भाषाओं की अनुमति है, कला का कोई सीधा मुद्रण नहीं है, कुछ हद तक हेरफेर की आवश्यकता है। कम से कम बाइट के साथ जवाब जीतता है।

गुरुवार 6:30 पूर्वाह्न UTC या तो बंद हो जाता है।

मूल बात मुझे मेरे दोस्त द्वारा दिखाई गई थी जिसने जावा के साथ ऐसा किया था, उसने मुझे स्रोत कोड दिखाने से इनकार कर दिया और अब मैं संभवतः अन्य भाषाओं की प्रतिभा के साथ उसे चकाचौंध करूँगा। : डी

आप किसी भी वैकल्पिक चरित्र का उपयोग नहीं कर सकते (यह आसान बनाता है?)।


वर्तमान नेता बोर्ड

  1. पायथ - 28 बाइट्स - इसहाक
  2. सीजाम - 30 बाइट्स - रनर 112
  3. सीजाम - 32 बाइट्स - मार्टिन ब्यूटनर

उच्चतम वोट: सी - 73 बाइट्स - पॉल आर


isaacg Pyth के साथ सीढ़ी की चुनौती को पार करने के लिए मुकुट लेता है। PPCG पर इस तरह की अधिक चुनौतियों के लिए बाहर देखो!


1
प्रोग्रामिंग पहेलियाँ और कोड गोल्फ स्टैक एक्सचेंज में आपका स्वागत है! यहां सभी चुनौतियों को एक उद्देश्यपूर्ण जीत की आवश्यकता है, निर्विवाद रूप से यह तय करना है कि कौन सा समाधान जीतना चाहिए। यह एक कोड-गोल्फ प्रश्न की तरह दिखता है , यानी सबसे छोटा कोड जीतता है, लेकिन मैं आपको इसे अपने आप में संपादित करने दूँगा अगर आप इसे कुछ अलग बनाना चाहते हैं। धन्यवाद!
दरवाज़े

1
आह, क्षमा करें, मुझे वह याद आया। मैंने आपके प्रश्न में उचित टैग संपादित किया है।
दरवाज़े

13
क्या हमें 6 वीं पंक्ति में उस 1 अजीब अनुगामी स्थान को प्रिंट करना है?
ऑप्टिमाइज़र

4
अधिक आम तौर पर, अनुगामी स्थान की अनुमति है? क्या मैं इसे पहली पंक्ति की चौड़ाई के एक आयत पर रख सकता हूँ?
मार्टिन एंडर

8
हम एक अनुगामी newline हो सकता है?
TheNumberOne

जवाबों:


4

अजगर, २ ९ २ 28

V21++**6/-20N5d*5?d%N5\_<\|N

इसे यहाँ आज़माएँ।

@ एक्सनोर के घोल से "पांच स्पेस या पांच अंडरस्कोर" ट्रिक के साथ एक बहुत सीधा समाधान, लेकिन लूप के साथ 0 से 20 तक, 20 से 0 तक नहीं।


1
मैं आपको डब करता हूं, सीढ़ी की चुनौती को पार करने के लिए सर इसहाक।
थेरिबेल्फ़ॉफ़ी

... और अब आप सीढ़ी पर प्रवेश कर सकते हैं
एंथनी फाम

22

सी, 86 80 76 75 73 बाइट्स

c;main(i){for(i=21;i--;c='|')printf("%*s%c\n",i/5*6+5,i%5?"":"_____",c);}

5
हमेशा उस व्यक्ति को होना चाहिए जो सी समाधान पोस्ट करेगा। आप के लिए Upvote
थेरिबेबेल्फी

1
आप लूप को बदलकर इसे और भी छोटा कर सकते हैंfor(i=25;i--;)
फेलिक्स बाइटो

1
@FelixBytow यह होना चाहिए i=26। इसके अलावा, एक अतिरिक्त चरित्र के लिए ' 'बदला जा सकता है 32। इन अनुकूलन के बाद मेरा समाधान 2 वर्णों से अधिक लंबा है :(
एलर्बर्ट

2
आपको एक अतिरिक्त कदम लगता है। आवश्यक आउटपुट में 21 पंक्तियाँ हैं, 26 नहीं। कुछ अधिक अनुकूलन: main(i){for(i=21;i--;)printf("%*s%c\n",i/5*6+5,i%5?"":"_____",i<20?'|':0);}1. लंबाई के लिए सूत्र को सरल करें 2. जैसा कि @Allbeert कहते हैं, आप एएससीआई कोड का उपयोग कर सकते हैं, ' 'लेकिन ASCII 32 पर क्यों रुकें जब ASCII 0 करेंगे। इसके अलावा इसके साथ मेरे लिए ठीक चलाता है ""के बजाय" "
स्तर नदी सेंट

1
कैसे '|'मुद्रण में दो बाइट्स को बचाने के लिए इस बारे में ? c;main(i){for(i=21;i--;c='|')printf("%*s%c\n",i/5*6+5,i%5?"":"_____",c);}
रनर ११

11

जावा, 198 158 156 146 बाइट्स

इसे शायद बहुत कम किया जा सकता है। हमेशा की तरह, सुझावों का स्वागत है।

void a(){String a="",b="_____",c=b;for(int i=-1;i<20;b=i%5<1?b.replace(c,"     "):i%5>3?b+" "+c:b)a=b+(++i>19?"":"|")+"\n"+a;System.out.print(a);}

इंडेंटेड (थोड़े):

void a(){
    String a="",b="_____",c=b;
    for(int i=-1;i<20;b=i%5<1?b.replace(c,"     "):i%5>3?b+" "+c:b)
        a=b+(++i>19?"":"|")+"\n"+a;
    System.out.print(a);
}

धन्यवाद मार्टिन बंटनर, रेनबोल्ट, और जोबिट्स।


1
ईमानदारी से, चूंकि आपने इसे जावा के साथ किया था, इसलिए मैं प्रभावित हूं।
थेरिबेल्फ़ॉफ़ी

9

ब्रेनफक (1065 बाइट्स)

यह सुंदर नहीं है, यह कम नहीं है ... लेकिन मैं बाद में अनुकूलन करूँगा!

++++[->++++++++<]>........................
[->+++<]>-.....>++++++++++.[->+++<]>++....
...................-[->++++<]>.>++++++++++
.[->+++<]>++.......................-[->+++
+<]>.>++++++++++.[->+++<]>++..............
.........-[->++++<]>.>++++++++++.[->+++<]>
++.......................-[->++++<]>.>++++
++++++.[->+++<]>++..................[->+++
<]>-.....[->++++<]>.>++++++++++.[->+++<]>+
+.................-[->++++<]>.>++++++++++.
[->+++<]>++.................-[->++++<]>.>+
+++++++++.[->+++<]>++.................-[->
++++<]>.>++++++++++.[->+++<]>++...........
......-[->++++<]>.>++++++++++.[->+++<]>++.
...........[->+++<]>-.....[->++++<]>.>++++
++++++.[->+++<]>++...........-[->++++<]>.>
++++++++++.[->+++<]>++...........-[->++++<
]>.>++++++++++.[->+++<]>++...........-[->+
+++<]>.>++++++++++.[->+++<]>++...........-
[->++++<]>.>++++++++++.[->+++<]>++......[-
>+++<]>-.....[->++++<]>.>++++++++++.[->+++
<]>++.....-[->++++<]>.>++++++++++.[->+++<]
>++.....-[->++++<]>.>++++++++++.[->+++<]>+
+.....-[->++++<]>.>++++++++++.[->+++<]>++.
....-[->++++<]>.>++++++++++.[--->++<]>+++.
....[->++++<]>.

ब्रेनफक कभी भी सुंदर नहीं होता है :) सिर्फ इसे काम करने के लिए
उभारना


ideone.com/ICtrhv समय सीमा मेरे पार हो गई है, जिसका अर्थ है ....
उपचार ३:१५

बिज़ारे ... इसे यहाँ आज़माएँ: esoteric.sange.fi/brainfuck/impl/interp/i.html
जोशपब्रॉन

8

CJam, 36 30 बाइट्स

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

L{{S5*\+}/S'|5*+]'_5*+}5*1>zN*

मेरे प्रारंभिक 36-बाइट समाधान ने आउटपुट ओरिएंटेशन में परिणाम उत्पन्न किया। एल्गोरिथ्म से अधिक बाइट्स निचोड़ने के मेरे प्रयासों के बावजूद, मैं नहीं कर सका। तब मैंने मार्टिन को पंक्तियों के बजाय स्तंभों को उत्पन्न करने और परिणाम को बदलने की शानदार रणनीति को देखा । मुझे एहसास हुआ कि शायद एक बेहतर दृष्टिकोण था, इसलिए मैंने एक ट्रांसपोज़न-आधारित समाधान बनाने के लिए बंद कर दिया।

हालाँकि, उस रणनीति को लागू करने के लिए मेरा दृष्टिकोण काफी भिन्न है। पूर्ण कॉलम बनाने के बजाय, मैं एक पुनरावृत्त समाधान का उपयोग करता हूं जो किसी भी पहले से उत्पन्न "कदम" को प्रेरित करता है और प्रत्येक प्रवाह पर एक नया कदम जोड़ता है। तो मुख्य लूप का पहला पुनरावृत्ति इसे उत्पन्न करता है:

 |||||
_
_
_
_
_

मुख्य लूप का दूसरा पुनरावृत्ति मौजूदा कदम को प्रेरित करता है और इसके बाद एक नया जोड़ता है:

      |||||
     _
     _
     _
     _
     _
 |||||
_
_
_
_
_

और मुख्य लूप के पूरे पांच पुनरावृत्तियों इसे उत्पन्न करते हैं:

                     |||||
                    _
                    _
                    _
                    _
                    _
                |||||
               _
               _
               _
               _
               _
           |||||
          _
          _
          _
          _
          _
      |||||
     _
     _
     _
     _
     _
 |||||
_
_
_
_
_

इसके बाद, जो कुछ भी करने की आवश्यकता है वह पहली पंक्ति को खत्म कर देता है, जो अन्यथा नीचे के कदम के लिए अवांछित रिसर बन जाएगा, और पारगमन होगा।


7

पायथन 2, 80 77 74 बाइट्स

n=24;exec"print' '*n+'_'*5+'|'*(n<24)+('\\n'+~-n*' '+'|')*4*(n>0);n-=6;"*5

डबल से छुटकारा पा लिया execऔर एक में सब कुछ फिट print!


6

क्लिप, ४६

{:24S:5'_m[z{*4,:+5*6zS"|
":*6zS:5'_"|
"`}vR4`

व्याख्या

{               .- Put everything in a list -.
 :24S           .- 24 spaces                -.
 :5'_           .- 5 underscores            -.
 m[z            .- Map...                   -.
    {           .- A list                   -.
     *4         .- 4 of the following       -.
       ,        .- Append                   -.
        :+5*6zS .- 5 + 6 * the iteration of spaces  -.
        "|      .- A pipe and newline       -.
"
     :*6zS      .- 6 * the iteration of spaces      -.
     :5'_       .- 5 underscores            -.
     "|         .- A pipe and newline       -.
"
    `           .- End list (per iteration  -.
   }vR4         .- The mapping is onto {3,2,1,0}    -.

1
क्लिप में एक विकिपीडिया पृष्ठ भी नहीं है। मेरा मतलब है, क्या ....
उपचार

4
@therewillbecfish इस साइट पर कई भाषाओं में एक विकिपीडिया पृष्ठ नहीं है। यही मजा है;)
यपनीन

@Ypnypn क्या आपने इसे डिजाइन किया था? यह वास्तव में दिलचस्प लग रहा है! हालांकि मुझे एक सच्चे क्वीन में दिलचस्पी होगी। ;) (उदाहरण पृष्ठ पर यह एक छोटा सा धोखा है।)
मार्टिन

6

CJam, 36 32 बाइट्स

{5*S*'_+a5*~_W<S+5'|*+}5/;]W%zN*

इसका परीक्षण यहां करें।

मैंने भी एक स्पष्ट सूत्र का उपयोग करने की कोशिश की, लेकिन यह CJam में लंबा है ... शायद यह किसी और की मदद करता है:

21,29,ff{_2$5/)6*(=@@6/5*=_++" |_|"=}W%N*

व्याख्या

मैंने पाया कि सीढ़ी को बहुत आसानी से बनाया जा सकता है अगर आप a) ग्रिड को स्थानांतरित करते हैं और b) लाइनों को उल्टा करते हैं:

_
_
_
_
_
 |||||
     _
     _
     _
     _
     _
      |||||
          _
          _
          _
          _
          _
           |||||
               _
               _
               _
               _
               _
                |||||
                    _
                    _
                    _
                    _
                    _

तो पहले मैं उसका निर्माण कर रहा हूं, फिर उलटा, फिर पारगमन।

{                     }5/        "For i in [0 .. 4].";
 5*S*'_+                         "Get a string of 5*i spaces and append _.";
        a5*~                     "Get five such lines.";
            _W<S+                "Duplicate the last, remove the _, add a space.";
                 5'|*+           "Add 5 copies of |.";
                         ;       "The above creates a row too many, so discard the last one.";
                          ]W%zN* "Wrap everything in an array, reverse, transpose, riffle
                                  with newlines.";

ठीक है, किसी ने इसे 30 बाइट्स के साथ किया।
थेरिबेल्फ़ॉफ़ी

6

अजगर 2, 59

n=21
exec"n-=1;print n/5*6*' '+' _'[n%5<1]*5+'|'*(n<20);"*n

21 लाइनों द्वारा अनुक्रमित रहे हैं nमें [20,19,...,1,0]। पहले प्रत्येक "चरण" के लिए 6 रिक्त स्थान प्रिंट करते हैं (माइनस 1), जिसकी गणना की जाती है n/5*6। फिर, पाँच स्थानों को प्रिंट करता है, सिवाय इसके कि ये पाँच के गुणकों के लिए अंडरस्कोर हैं। अंत में, शीर्ष रेखा को छोड़कर, एक ऊर्ध्वाधर रेखा प्रिंट करता है n=20


अच्छा और सीधा। मुझें यह पसंद है!
Sp3000

6

जावास्क्रिप्ट, 115 107 96 94 89 87 83 बाइट्स

यह जीतने के लिए बहुत लंबा है, लेकिन यह पहली बार है जब मैं PCG.SE पर एक उत्तर के साथ आया हूं, और मुझे कुछ पोस्ट करने योग्य बनाने पर गर्व है।

कुछ सहायक वाक्यात्मक सलाह के साथ मैंने कोड को काफी छोटा कर दिया - यहां तक ​​कि स्क्रॉलबार दहलीज के नीचे भी!

for(s='',y=22;--y;s+='\n')for(x=0;++x<29;)s+=6*~(~-y/5)-~x?4+5*~(x/6)+y?' ':'_':'|'

अच्छा जवाब, कई चीजें आप इसे छोटा कर सकते हैं alert। यदि आप इसे कंसोल में चलाते हैं तो यह इसके बिना ठीक काम करता है। इसके अलावा, अंतिम घुंघराले ब्रेस के अंदर अर्धविराम आवश्यक नहीं है। आप (y/5-.2)((y-1)/5)
qw3n

उन सुझावों के लिए @ qw3n धन्यवाद; मुझे यकीन नहीं था कि नियमों के लिए अलर्ट की आवश्यकता थी।
vvye

आप s+='\n'बाद में भी स्थानांतरित कर सकते हैं y--और घुंघराले ब्रेसिज़ से छुटकारा पा सकते हैं ताकि यह दिखता है for(s='',y=21;y>0;y--,s+='\n')। मैंने लूप के लिए s को भी इनिशियलाइज़ किया ताकि आपका कोड सभी एक स्टेटमेंट हो
qw3n

1
मैंने सोचा था कि यह मेरा आखिरी था, लेकिन मेरे लिए यह होना चाहिए for(s='',y=22;--y;s+='\n')for(x=0;++x<29;)s+=6*~~(y/5-.2)+5-x?5*~~(x/6)+1-y?' ':'_':'|'यदि आप अपनी तीक्ष्ण अभिव्यक्ति को फ्लिप करते हैं तो आप परीक्षण कर सकते हैं number - xजो 0 है यदि दोनों शब्द समान हैं तो आप 2 और बाइट्स बचा सकते हैं।
qw3n

1
टिल्ड गेम: ~ n == -n-1, - ~ n == n + 1, ~ -n == n-1, for(s='',y=22;--y;s+='\n')for(x=0;++x<29;)s+=6*~(~-y/5)-~x?4+5*~(x/6)+y?' ':'_':'|'83 है
edc65

6

ECMAScript 6, 142 138 129 91 बाइट्स

विशेष रूप से @ edc65 के लिए वास्तव में इस के लिए धन्यवाद।

a=o='',[for(x of!0+o)(o=(a+'     |\n').repeat(4)+a+'_____|\n'+o,a+='      ')],a+'_____\n'+o

मूल संस्करण का तर्क @ edc65 टिप्पणी के लिए है कि यह कैसे रूपांतरित हुआ।

((f,l,p)=>                  //variables
f(24)+l+p[1]+               //add the non pattern line
[0,1,2,3].map(b=>f(18-6*b)) //add the right number of spaces in front of the 4 steps
.map((a,b)=>f(4,a+f(5)+p)   //the four repeating lines of the step 
+a+l)                       //the landing line
.join(p)+p)                 //put it all together
((n,s=' ')=>s.repeat(n)     //create an variable array of some character
,'_____','|\n')             //string literals

1
आप कुछ बाइट्स को बचाने के लिए newपहले कंस्ट्रक्टर को सुरक्षित रूप से हटा सकते हैं Array
निन्जाबियरनॉकी

@ किसी कारण से मुझे लगा कि मैं newआवश्यक था।
qw3n

1
Array (n) .join (s) तो ES5 है! क्या आपने कोशिश कीrepeat
edc65

[1,2,3,4].map((a,b)और सिर्फ b => [0,1,2,3].map(b(-4) का उपयोग करके
edc65

मैं फ़ायरफ़ॉक्स चलाता हूँ और यह अच्छी तरह से काम करता है!
उपचारात्मक

5

MATLAB, 68 बाइट्स

मेरे पास मजबूत भावना है MATLAB बेहतर करने में सक्षम होना चाहिए, लेकिन मैं एक तरह से नहीं सोच सकता।

p(1:5,6)='|';p(1,1:5)=95;w=blkdiag(p,p,p,p);w(21,25:29)=95;flipud(w)

सीढ़ियों को उल्टा कर देता है और उसे फड़फड़ाता है। आसपास के सभी जादू के स्थिरांक के कारण मेरा थमोमीटर टूट गया।

'|'को जानबूझकर (ascii कोडपॉइंट के बजाय) को इनिशियलाइज़ करने के लिए pऔर wएक चार सरणी के रूप में छोड़ दिया जाता है ।


1
'|' = 124वैसे भी, ताकि किसी भी अतिरिक्त आकर्षण खर्च नहीं करता है।
पीटर कॉर्डेस

5

रूबी, ४,

25.times{|i|puts" "*(4-i/6)*5+(i%6==0??_*5:?|)}

पुराना दृष्टिकोण, 68

4.times{|i|(?_*5+"
|"*5).each_line{|l|puts" "*(4-i)*5+l}}
puts"_"*5

PPCG में आपका स्वागत है! रूबी गोल्फ युक्तियाँ के एक जोड़े: 1. वहाँ में कुछ अनावश्यक व्हाट्सएप है। 2. एकल चरित्र के तार जैसे '_'लिखे जा सकते हैं ?_। 3. न्यूलाइन को सीधे स्ट्रिंग्स में एम्बेड किया जा सकता है (ताकि आप वास्तव में कर सकें "<linebreakhere>|")। 4. आसपास के कोष्ठक जो आवश्यक नहीं हैं। अंतिम के putsसाथ प्रतिस्थापित किया जा सकता है $><<(जो आपको उपयोग करने के बाद भी अंतरिक्ष से छुटकारा पाने की अनुमति देता है ?_)। कीप आईटी उप! :)
मार्टिन एंडर

हाँ, मुझे अभी कुछ व्हाट्सएप से छुटकारा मिला है। धन्यवाद! मैं एकल चरित्र तार के बारे में नहीं जानता था।
psycotica0

आप शायद इसके (1..4).mapद्वारा भी प्रतिस्थापित कर सकते हैं 4.timesऔर फिर उपयोग कर सकते 4-iहैं 5-i
मार्टिन एंडर

ऊह, अच्छी कॉल। किया हुआ।
psycotica0

4

जूलिया, 83 बाइट्स

for n=24:-6:0 print(" "^n*"_"^5*"|"^(n<24)*"\n"*(" "^(n>0?n-1:0)*"|\n"^(n>0))^4)end

जूलिया में, *संचालक का उपयोग करके स्ट्रिंग संघनन किया जाता है और स्ट्रिंग पुनरावृत्ति का उपयोग करके किया जाता है ^


4

> <> , 108 104 100 बाइट्स

cc+::?v~'_____'o\/' 'o  \
?:o'|'\' 'o1-30.o\v!?:-1<}:{oav!?:<4;!
-20.12^?(+cc:ooo/ \~1-'!|'o1. \~ao6

एक सरल> <> समाधान, मेरी जैसी ही रणनीति का उपयोग करना पायथन उत्तर । मुख्य अंतर यह है कि> <> स्ट्रिंग गुणन (या यहां तक ​​कि तार) नहीं है, इसलिए यह सब लूप के साथ किया जाता है।

व्याख्या

cc+                  Push 24 (call this "n")

[outer loop]
[loop 1, print n spaces]

:                    Copy n (call this "i")
:?                   If i is not zero...
' 'o1-30.                Print space, decrement i and go to start of loop 1

~'_____'ooooo        Pop i and print five underscores
:cc+(?               If n < 24...
'|'o                     Print a pipe
21.                  Otherwise skip pipe printing

[loop 2: print vertical parts of stairs]

?!;                  If n is zero, halt
4                    Push 4 (call this "j")
?!                   If j is zero...
~ao6-20.                 Pop j, print a newline, minus 6 from n and go to start of outer loop
ao                   Print a newline
}:{                  Copy n (call this "k")

[loop 3: print n-1 spaces]

1-                   Decrement k
:?!                  If k is zero...
    ~1-'!|'o1.           Pop k, decrement j, print a pipe and go to start of loop 2
' 'o                 Otherwise print a space and go to start of loop 3

मुझे ऐसा लगता है कि मैं हमेशा एक> <> जवाब दूंगा।
१०:१४ पर krs013

3

ग्रूवी, 98 71 बाइट्स

// old: (25..5).each{i->println((1..(i-(i-1)%5)).collect{' '}.join()+(i%5?'|':('_____'+(i==25?'':'|'))))}

(25..5).each{i->println(' '*(i-(i-1)%5)+(i%5?'|':'_'*5+(i%25?'|':'')))}

(25..5).each { i ->
    println(
        ' '*(i - (i - 1) % 5) + (
            i % 5 ? 
            '|' : 
            '_'*5 + (i % 25 ? '|' : '')
        )
    )
}    

मुझे पूरा यकीन है, कि इसे किसी तरह कम किया जा सकता है :) @Score_Under द्वारा छोटा किया गया


1
मेरे पास शेव करने के लिए कुछ बाइट्स हैं: कलेक्ट को बदलें / एक मल्टीप्ले के साथ जुड़ें: ' '*(i-(i-1)%5)चारों ओर से ब्रैकेट्स निकालें ('_____'+(i==25?'':'|')), '_____'साथ में बदलें '_'*5, और यदि आप अंतिम सशर्त फ्लिप करते हैं तो आप एक अपरंपरागत असमानता ऑपरेटर के रूप में% का उपयोग कर सकते हैं (i%25?'|':''):। यह आपको 71 तक नीचे जाना चाहिए।
स्कोर_उंडर

@Score_Under अच्छा, धन्यवाद, मुझे स्ट्रिंग्स को गुणा करने के बारे में नहीं पता था: D
Kamil Mikolajczyk


2

टी-एसक्यूएल, 276 बाइट्स

declare @x int declare @y int declare @w varchar(30) declare @l char(5) set @l='_____' set @x=23 while @x > 4 begin set @w=replicate(' ',@x) set @y=0 if @x=23 print @w+' '+@l else print @w+' '+@l+'|' while @y < 4 begin set @y=1+@y print @w+'|' end set @x=@x-6 end print @l+'|'

2

विज़ुअल फॉक्सप्रो 9.0, 261 बाइट्स

n = चरणों की संख्या

फ़ाइल संचालन = 132 वर्ण के लिए बहुत शून्य से 43 वर्ण - 175 वर्णों की कुल है, लेकिन फाइल करने के लिए उत्पादन किया था सही ढंग से प्रदर्शित करने के लिए।

n=10
c=CHR(13)
f="st.t"
ERAS (f)    
FOR i=n TO 1 STEP -1
    p=(i-1)*6
    =STRTO(PADL("_____",p+5)+IIF(i<n,"|","")+c+IIF(i>1,REPLI(PADL("|"+c,p+1),4),""),f,.t.)
    ?PADL("_____",p+5)+IIF(i<n,"|","")+c+IIF(i>1,REPLI(PADL("|"+c,p+1),4),"")
ENDFOR
MODI COMM (f)

उत्तर देने के लिए नोट: बाइट गिनती पूर्ण काम कर स्रोत कोड के लिए है, और बाइट काउंटर कहना है कि यह 261 बाइट्स है, तो यह है।


2

बैश (coreutils से + टैक): 110 बाइट्स

यह सीधे टर्मिनल में चिपकाया जा सकता।

(n =; सेट {1..4}; क्योंकि मैं करता हूं गूंज "$ {n} _____ |"; n = ''; मैं गूंज "$ n" के लिए; किया; n + = \; किया; गूंज " $ {n} _____ ") | टैक

इसके बिना |tac, यह काफी काम नहीं करता है। और मैं Git बैश पर इस भाग गया, तो मैं अपने आप को मार देना चाहिए।
थेरिबेल्फ़ॉफ़ी

1

x86 मशीन कोड, 48 बाइट्स

B1 05 B4 0E 80 E9 01 B0 5F B5 05 80 ED 01 CD 10 80 FD 00 75 F6 B5 05 80 ED 01 B0 0A CD 10 B0 08 CD 10 B0 7C CD 10 80 FD 00 75 EC 80 F9 00 75 D4

विधानसभा कोड समकक्ष:

mov cl, 5
mov ah, 0Eh
main:
    sub cl, 1

print_step:
    mov al, '_'
    mov ch, 5

.loop:
    sub ch, 1

    int 10h

    cmp ch, 0
    jne .loop

print_stoop:
    mov ch, 5

.loop:
    sub ch, 1

    mov al, 0Ah;    ascii newline
    int 10h

    mov al, 8;      ascii backspace
    int 10h

    mov al, '|'
    int 10h

    cmp ch, 0
    jne .loop

cmp cl, 0
jne main

आउटपुट:

_____
    |
    |
    |
    |
    |_____
         |
         |
         |
         |
         |_____
              |
              |
              |
              |
              |_____
                   |
                   |
                   |
                   |
                   |_____
                        |
                        |
                        |
                        |
                        |

आउटपुट अलग होने के बारे में क्षमा करें; मुझे उम्मीद है कि यह स्वीकार्य है।

यह DOSBOX में चलाया गया था

हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.