एक वर्णमाला सर्चलाइट बनाओ!


66

इस चुनौती के समाधान में एक बग से प्रेरित होकर , आपकी चुनौती इस सटीक पाठ का निर्माण करना है:

                         ZYXWVUTSRQPONMLKJIHGFEDCBA
                        YXWVUTSRQPONMLKJIHGFEDCBA
                       XWVUTSRQPONMLKJIHGFEDCBA
                      WVUTSRQPONMLKJIHGFEDCBA
                     VUTSRQPONMLKJIHGFEDCBA
                    UTSRQPONMLKJIHGFEDCBA
                   TSRQPONMLKJIHGFEDCBA
                  SRQPONMLKJIHGFEDCBA
                 RQPONMLKJIHGFEDCBA
                QPONMLKJIHGFEDCBA
               PONMLKJIHGFEDCBA
              ONMLKJIHGFEDCBA
             NMLKJIHGFEDCBA
            MLKJIHGFEDCBA
           LKJIHGFEDCBA
          KJIHGFEDCBA
         JIHGFEDCBA
        IHGFEDCBA
       HGFEDCBA
      GFEDCBA
     FEDCBA
    EDCBA
   DCBA
  CBA
 BA
A
  • पहली पंक्ति में 25 स्थान होंगे, फिर 26 वें अक्षर ( ZYXWVUTSRQPONMLKJIHGFEDCBA) से शुरू होने वाली वर्णमाला , फिर एक नई रेखा ।
  • दूसरी पंक्ति में 24 रिक्त स्थान होंगे, फिर 25 वें अक्षर ( YXWVUTSRQPONMLKJIHGFEDCBA) से शुरू होने वाली वर्णमाला , फिर एक नई रेखा ।
  • ...
  • अंतिम (26 वीं) लाइन में कोई स्थान नहीं होगा, फिर 1 अक्षर ( A) से शुरू होने वाली वर्णमाला , फिर एक नई रेखा ।

अतिरिक्त नियम:

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

साथ के रूप में , कम से कम प्रस्तुत जीतता है। सौभाग्य!

लीडरबोर्ड:


3
मेरे लिए यह बल्ले-संकेत द्वारा प्रकाश डाली की तरह लग रहा है
scottinet


क्या प्रत्येक पंक्ति के सामने एक अतिरिक्त स्थान हो सकता है?
२३:३५ पर HyperNeutrino

3
क्या अंतिम पत्र के बाद प्रत्येक पंक्ति में रिक्त स्थान हो सकते हैं?
मील

1
@ मीलों हाँ, यह ठीक है।
एमडी एक्सएफ

जवाबों:


19

05AB1E , 7 बाइट्स

कोड:

₂žp.s1Λ

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

व्याख्या

 žp.s      # Get the suffixes of ZYX...CBA
      Λ    # Using the canvas mode, print the
₂          # first 26 elements of the array
     1     # into the upper-right direction

2
@MDXF IMO, कि एक सच में मूक नियम है
DJMcMayhem

3
हम्म ... मुझे लगता है कि मैं नियम को हटा दूँगा, फिर। स्थिति-पूर्ण
MD XF

2
जब मुझे समय मिलता है तो मैं उस सुविधा का दस्तावेजीकरण प्रस्तावित कर सकता हूं। एक अच्छी तरह से पढ़ा-लिखा, आसान-से-पढ़ा हुआ कोड
pottthon

6
गोल्डन žpहोने पर क्यों मौजूद Auहै? BADUM टीएसएसएस
मैजिक ऑक्टोपस Urn

5
05AB1E का उपयोग करते हुए, यह सभी सुविधाओं के दस्तावेजीकरण के लिए एक फ़ाइल बनाएं, कोड जीतता है: P
क्रिश्चियन

22

आर , 67 55 बाइट्स

for(i in 26:1)cat(rep(" ",i-1),LETTERS[i:1],"
",sep="")

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


4
आर एक कड़ी चुनौती पर पायथन की पिटाई कर रहा है? अच्छा लगा। लेटर के लिए +1
क्रिमिनल

1
@CriminallyVulgar यह एक बहुत ही अजीब चुनौती है; हास्केल PHP और R की टाई को हरा रहा है जो दोनों पायथन को पीट रहे हैं ... कम से कम पर्ल उन सभी से आगे है जैसे आप उम्मीद कर सकते हैं।
CR Drost

-2 बाइट्स अगर आप बदल sepजाते हैं s। टकराव नहीं होने पर दलीलें नाम की दलीलें स्वत: पूर्ण हो जाएंगी
सजा

1
@ ...तर्क के कारण काम नहीं करेगा ; पहले ...(आमतौर पर) आने वाले तर्क आंशिक रूप से मेल खाते हैं, और वे नहीं होने के बाद। मेरा मानना ​​है कि कुछ अपवाद हैं, लेकिन catउनमें से एक नहीं है
Giuseppe

@Giuseppe मैं नहीं देख पा रहे हैं एक...
MilkyWay90


15

वी , 13 , 11 बाइट्स

¬ZAòY>HGpxl

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

Hexdump:

00000000: ac5a 41f2 593e 4847 7078 6c              .ZA.Y>HGpxl

मेरे फोन से लिखा गया: पी।

¬ZA         " Insert the alphabet backwards
   ò        " Recursively:
    Y       "   Yank this current line
     >H     "   Add one space to every line
       G    "   Move to the last line in the buffer
        p   "   Paste the line we yanked
         x  "   Delete one character
          l "   Move one character to the right, which will throw an error on 
            "   the last time through, breaking the loop

1
मैं इन्हें अपने फोन पर भी करता हूं, +1
स्टेन स्ट्रम



10

/// , 105 97 बाइट्स

/:/\\\\*//#/:Z:Y:X:W:V:U:T:S:R:Q:P:O:N:M:L:K:J:I:H:G:F:E:D:C:B:A//\\*/\/\/_____#
\/ //_/     //*#

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

व्याख्या

/// केवल एक आदेश जानता है, /<pattern>/<substitution>/<text>की सभी घटनाओं की जगह <pattern>में <text>साथ <substitution>। इसके अलावा \पात्रों से बचने के लिए इस्तेमाल किया जा सकता है।

सरलता के लिए संक्षिप्त कोड:

/:/\\\\*//#/:E:D:C:B:A//\\*/\/\/__#
\/ //_/  //*#

पहले आदेश बाद के कोड के साथ /:/\\\\*/बदल देता है । यह देता है::\\*

/#/\\*E\\*D\\*C\\*B\\*A//\\*/\/\/__#
\/ //_/  //*#

फिर के साथ /#/\\*E\\*D\\*C\\*B\\*A/बदलता #है \*E\*D\*C\*B\*A:

/\\*/\/\/__\*E\*D\*C\*B\*A
\/ //_/  //*\*E\*D\*C\*B\*A

फिर के साथ /\\*/\/\/__\*E\*D\*C\*B\*A<newline>\/ /बदलता \*है //__*E*D*C*B*A<newline>/:

/_/  //*//__*E*D*C*B*A
/ E//__*E*D*C*B*A
/ D//__*E*D*C*B*A
/ C//__*E*D*C*B*A
/ B//__*E*D*C*B*A
/ A

सूचना: मुझे \*प्रतिस्थापन के लिए उपयोग करना था। चूंकि *प्रतिस्थापन का हिस्सा भी है, यह एक अनंत लूप उत्पन्न करेगा यदि मैं केवल प्रतिस्थापित करता हूं *

फिर रिक्त स्थान के साथ कमांड /_/ /प्रतिस्थापित _करता है, और /*//सभी को हटा देता है *:

EDCBA
/ E//    EDCBA
/ D//    EDCBA
/ C//    EDCBA
/ B//    EDCBA
/ A

अगले आदेश कुछ भी नहीं द्वारा /#//प्रतिस्थापित करता #है। चूंकि #कोड में नहीं है, यह कुछ भी नहीं करता है। यह //कोड की शुरुआत से दो अग्रणी को हटाने के लिए यहां है । यह छोड़ देता है

EDCBA
/ E//    EDCBA
/ D//    EDCBA
/ C//    EDCBA
/ B//    EDCBA
/ 

फिर कमांड / E//हटाता है <space>E, इसलिए यह कोड छोड़ देगा

    EDCBA
   DCBA
/ D//   DCBA
/ C//   DCBA
/ B//   DCBA
/ 

इसी तरह की / D//निकालता है <space>D:

    EDCBA
   DCBA
  CBA
/ C//  CBA
/ B//  CBA
/ 

/ C//:

    EDCBA
   DCBA
  CBA
 BA
/ B// BA
/ 

/ B//:

    EDCBA
   DCBA
  CBA
 BA
A
/ 

और अंतिम आदेश अधूरा है, इसलिए यह कुछ भी नहीं करता है:

    EDCBA
   DCBA
  CBA
 BA
A

सी # के समान लंबाई और दिमागी जवाब: डी
कॉनर ओ'ब्रायन

9

हास्केल, 53 52 बाइट्स

f(a:b)=(b>>" ")++a:b++'\n':f b
f x=x
f['Z','Y'..'A']

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

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

f['Z','Y'..'A']        -- call f with the full backwards alphabet

f(a:b)=                -- let `a` be the first char and `b` the rest. Return
   (b>>" ") ++         -- replace each char in b with a space, followed by
   a:b ++              -- the input string, followed by
   '\n' :              -- a newline, followed by
   f b                 -- a recursive call of `f` with `b`
f x=x                  -- stop on an empty input string

f['Z'..'A']काम क्यों नहीं करता?
कॉनर ओ'ब्रायन

1
@ ConorO'Brien: के [a..b]साथ शुरू होता है aऔर सभी उत्तराधिकारियों ( +1पूर्णांक के लिए, अगले ascii- वर्ण, आदि) के लिए एकत्र करता है b। अगर a > bयह एक खाली सूची है। हालाँकि, आप दूसरा मान भी निर्दिष्ट कर सकते हैं (जो छोटा हो सकता है) जिसमें से वेतन वृद्धि / वृद्धि की गणना की जाती है। [1,3..8]-> [1,3,5,7], [15,10..0]-> [15,10,5,0], या ['Z','Y'..'A']जो पीछे की ओर बड़ा अक्षर है।
nimi

आह, मैं अब देखता हूं। धन्यवाद!
कॉनर ओ'ब्रायन

8

अजगर 2 , 66 64

i=26
while i:i-=1;print' '*i+'ZYXWVUTSRQPONMLKJIHGFEDCBA'[25-i:]

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


1
प्रोग्रामिंग पहेलियाँ और कोड गोल्फ में आपका स्वागत है - अच्छा पहला जवाब!
एमडी एक्सएफ

2
धन्यवाद! मुझे लगा कि मैं इसे सिर्फ दुबकने के बजाय कोशिश करूँगा।
आर्टेमिस_134

2
आप के बीच की जगह को हटा सकते हैं printऔर '65 बाइट्स के लिए।
श्री एक्सकोडर

मैंने आपका जवाब पायथ में डाला, एक नज़र डालें: codegolf.stackexchange.com/a/141939/63757
Stan Strum

7

जावास्क्रिप्ट (ईएस 6), 83 77 76 बाइट्स

f=(n=0,p='')=>n<26?f(++n,p+' ')+p+`ZYXWVUTSRQPONMLKJIHGFEDCBA
`.slice(~n):''

o.innerText = f()
<pre id=o>


मैं आपको सुधार का सुझाव देना चाहता था, लेकिन तब मुझे महसूस हुआ कि हमारे दृष्टिकोण बहुत अलग हैं। आशा है कि आप बुरा नहीं मानेंगे

@ ThePirateBay कोई समस्या नहीं है!
अरनुलद

7

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

ØAµ⁶ṁḊ;ṚµƤṚY

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

ØAµ⁶ṁḊ;ṚµƤṚY  Main Link
ØA            "ABC...XYZ"
         Ƥ    For each prefix,
  µ⁶ṁḊ;Ṛµ     Monadic Link
   ⁶          ' '
    ṁ         (with automatic repetition) molded to the shape of
     Ḋ        All but the first letter of the input (repeat - 1)
      ;       With the input          appended to it
       Ṛ                     reversed
           Y  Join on newlines

-3 बाइट मील के लिए धन्यवाद



@LeakyNun ओह सही शांत धन्यवाद!
हाइपरएन्यूट्रीनो

याय, उपसर्ग त्वरित के लिए एक और उपयोग। 12 बाइट्स के बाद से मोल्ड यहाँ लंबाई का उपयोग करके फिर से आकार लेगा।
मील

@LeakyNun वास्तव में, दुर्भाग्य से यह इसे अमान्य बना देगा क्योंकि इसमें अतिरिक्त स्थान नहीं हो सकते हैं (इसे ठीक करने के लिए 2 बाइट्स लगेंगे)
हाइपरएन्यूट्रीनो

7

ब्रेनफक , 105 बाइट्स

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

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

न्यूनतम और स्वरूपित:

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

पठनीय संस्करण:

[
  pre-initialize the tape with the values 10 90 32 >26<
  C_NEWLINE: 10
  V_ALPHA: 90
  C_SPACE: 32
  V_COUNTER: 26

AS:

  10 = 8 *  1 + 2
  90 = 8 * 11 + 2
  32 = 8 *  4 + 0
  26 = 8 *  3 + 2
]

8 ++++++++ [
  *  1 >+
  * 11 >+++++++++++
  *  4 >++++
  *  3 >+++
<<<<-]
PLUS 2 >++
PLUS 2 >++
PLUS 0 >
PLUS 2 >++

UNTIL V_COUNTER == 0 [
  COPY V_COUNTER to RIGHT and RIGHT_RIGHT
  [->+>+<<]
  TAPE: 10 V_ALPHA 32 >0< V_COUNTER_R V_COUNTER_RR
  V_COUNTER_R SUB 1 TIMES: >-[-
     PRINT C_SPACE <<.
  >>]
  TAPE: 10 V_ALPHA 32 0 >0< V_COUNTER_RR
  V_COUNTER_RR TIMES: >[-
    PRINT V_ALPHA <<<<.
    DECREMENT V_ALPHA -
    INCREMENT V_COUNTER_R >>>+
  >]
  TAPE: 10 V_ALPHA 32 0 V_COUNTER_R(26) >0<
  V_COUNTER_R SUB 1 TIMES: <-[-
    INCREMENT V_COUNTER <+
    INCREMENT V_ALPHA <<+
  >>>]
  PRINT C_NEWLINE <<<<.
>>>]


6

पोएटिक , 601 बाइट्स

one night i camped a bit
throughout all the forest now
the sweet sights
i saw giant things
i saw little small things
here i am
seated around all my trees i saw
i sleep
i sle-e-p
sleep in a cabin
i am sleep-y
i sleep a bit
i awaken in bed
i stand
i walk
i am ready
i saw a vision of a dragon
i am fooled
i know i am
should i f-ight
i f-light
i did f-light
i did a flight
go away,i do imply
i*m afraid
i run
i leave
i flee
i am timid
i*m just a person,not toughie-tough-guy
no,never
i*m waste
i am stupid
a quitter i was
i am stupid
i*m turning around
i do not appreciate camping
i cry
i am crying
no
no

काव्य एक वर्ग परियोजना के लिए 2018 में बनाई गई एक एसोलैंग है, और यह एक दिमागी व्युत्पन्न है जिसमें शब्दों की लंबाई ब्रेनफैक कमांड (और +, ->, और <प्रत्येक के पास 1-अंकीय तर्क होते हैं) के अनुरूप होती है।

तथ्य यह है कि केवल शब्द-लंबाई आज्ञाओं को निर्धारित करती है, इसका मतलब है कि मैं तकनीकी रूप से पूरी तरह से गैर-शब्दों से बना एक प्रोग्राम बना सकता था (यानी शब्दों के बीच में रिक्त स्थान के साथ कई बार आवश्यकतानुसार एक्स), लेकिन मैं एक दिलचस्प बनाना चाहता था बिना किसी अनावश्यक बाइट को जोड़ते हुए मुक्त कविता को इससे बाहर कर दिया।

यदि आप इसे ऑनलाइन आज़माना चाहते हैं (जो पहली जगह में क्लास प्रोजेक्ट का आधा बिंदु है), तो मेरे ऑनलाइन दुभाषिया की जाँच करें !


यह गैर-प्रतिस्पर्धा क्यों है?
पिपरी

चुनौती के बाद भाषा का निर्माण हुआ।
जोशियाहैन


हम्म, तो मुझे लगता है कि मुझे एक प्रोग्रामिंग भाषा के रूप में काव्य का उपयोग करने के लिए और अधिक प्रेरणा मिलती है! हे।
जोशैरिअनडब्ल्यू

5

05AB1E , 10 बाइट्स

žpDvÐg<ú,¦

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

स्पष्टीकरण:

žpDvÐg<ú,¦
žp           Push the uppercased alphabet, reversed
  D          Duplicate
   v         For each letter (we just want to loop 26 times, so we use the 
                already pushed alphabet for that purpose)
    Ð        Triplicate
     g<      Length of the string - 1
       ú     Add that number of spaces at the beginning of the string
        ,    Print with newline
         ¦   Remove the 1st element of the remaining copy of the string

5

पर्ल 6 , 37 बाइट्स

@Massa के लिए 9 बाइट्स को सहेजा गया।

say " "x$_,chrs $_+65...65 for 25...0

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

स्पष्टीकरण: 25...0 25 से 0 तक की सीमा है (जैसा कि अपेक्षित है)। हम उस सीमा पर यह कहते हुए पुनरावृत्ति करते हैं, (= newline के साथ मुद्रण) कि कई रिक्त स्थान और वर्णों की स्ट्रिंग जिसमें chrs65 + संख्या से ASCII कोड ( $_+65...65) हैं।


1
25...0 छोटा रास्ता है :-)
मास

कोशिश say " "x$_,chrs $_+65...65 for 25...0:-)
मास

बहुत धन्यवाद! मैं उस बारे में कभी नहीं जानता था! और उप रूप भी बेहतर है (बहुत बुरा मैंने इसे अपने सिर के ऊपर से बनाया है)। (यही कारण है कि मैं codegolf के लिए पर्ल 6 का उपयोग करना चाहते हैं, मैं हमेशा कुछ नया करने की खोज है।)
Ramillies

4

चारकोल , 19 11 बाइट्स

-8 बाइट्स ASCII- केवल के लिए धन्यवाद।

F²⁶«P⮌…α⊕ι↗

इसे ऑनलाइन आज़माएं! लिंक वर्बोज वर्जन के लिए है।


यह हो सकता है? tio.run/##S85ilerOT8z5/…
ASCII-only

प्रतीक्षा करें noooooo में अग्रणी स्थान है
ASCII-only

एक के बेटे ... मैं हर एक कमांड और ऑपरेटर चारकोल के माध्यम से देखने की जरूरत है। > _> धन्यवाद!
21 अक्टूबर को पूरी तरह से

फिक्स्ड tio.run/…
ASCII-only

1
@ CycleChopIncrement
ASCII-

4

पर्ल 5 , 36 बाइट्स

35 बाइट्स कोड + 1 के लिए -p

$\=$"x$-++.($a=$_.$a).$/.$\for A..Z

नोट : टीआईओ खाली इनपुट का समर्थन नहीं करता है , इसलिए एक नई लाइन प्रदान की जाती है, यह एक बहिर्मुखी न्यूलाइन में परिणाम देता है, लेकिन जब खाली इनपुट के साथ कमांड-लाइन पर चल रहा है, तो यह प्रदर्शित नहीं होता है।

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



4

क्यूबिक्स , 43 46 बाइट्स

$/\;u:\s/':(!$u;:'@^!@Wu;oSU;o+<u(;;oN;(!|

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

Cubified

      $ / \
      ; u :
      \ s /
'  : ( ! $ u ; : ' @ ^
! @ W u ; o S U ; o + <
u ( ; ; o N ; ( ! | . .
      . . .
      . . .
      . . .

देखो इसे चलाते हैं

इसमें से कुछ और शेव करने में कामयाब रहे, लेकिन यह मेरे विचार से थोड़ा अधिक कठिन था। मुझे 26 देने के लिए पहली बोली के बाद एक स्थानापन्न चरित्र है।

  • '<sub> आधार संख्या के रूप में स्टैक पर 26 पुश करें
  • :(! एक काउंटर के रूप में डुप्लिकेट आधार, क्षय, सत्य के लिए परीक्षण
  • uसही पर $कमांड को छोड़ें और दाईं ओर यू-टर्न लें
    • So;u 32 धक्का, चरित्र के रूप में उत्पादन, 32 पॉप और यू-मोड़ सही क्षय पर
  • $झूठी uआज्ञा पर अगला आदेश दें
  • ;:'@^ पॉप, आधार संख्या की डुप्लिकेट, स्टैक पर 64 पुश करें और एक अत्याचारी मार्ग में पुनर्निर्देशित करें
  • $\s/:\/u;$यह शीर्ष चेहरे पर चरणों का क्रम है। यह 64 के साथ काउंटर को स्वैप करने के लिए नीचे फोड़ा जाता है। इसे यहां डालने वाले रीडायरेक्ट पर एक स्किप के साथ समाप्त होता है।
  • <+o;U जोड़ने के लिए पुनर्निर्देशित, आउटपुट चरित्र, पॉप, यू-टर्न बाएं
  • (!गिरावट, सच्चाई के लिए परीक्षण। अगर सच एक रास्ते पर शुरू होता है जो यू-टर्न मारता है और रीडायरेक्ट पर वापस जाता है।
  • |(;No गलत, प्रतिबिंबित, निरर्थक परीक्षण, निरर्थक गिरावट, पॉप, पुश 10 और आउटपुट चरित्र
  • ;;(u!@Wआधार नंबर, डिक्रिमेंट, यू-टर्न राइट ऑन ट्रू टेस्ट, पॉप्ट हॉल्ट अगर झूठ है तो शुरुआत में डुप्लिकेट पर लेन बदलें। धोये और दोहराएं।




3

जावास्क्रिप्ट, 75 74 बाइट्स

1 बाईट ने रिक हिचकॉक को धन्यवाद दिया

f=(a=65,b='',c)=>a>90?'':f(a+1,b+' ',c=String.fromCharCode(a)+[c])+`
`+b+c

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


प्रारंभ b( b='') के द्वारा एक बाइट को सहेजें , फिर bवर्ग कोष्ठक से बाहर निकालते हुए।
रिक हिचकॉक

@RickHitchcock। धन्यवाद।

3

पर्ल 5 , 49 बाइट्स

$_=$"x26 .join'',reverse A..Z,Z;say while s/ \S//

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


ऐसा लगता है कि आप पहले याद कर रहे हैं A, लेकिन लगता है कि इसे बदलकर तय किया जा सकता $"x25है $"x26!
डोम हेस्टिंग्स

जब मैंने अतिरिक्त जोड़ा Z, तो मैं उसके लिए खाता भूल गया।
Xcali

3

पाइके , 8 बाइट्स

G_.<XFo}h-

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

           -  o = 0
G_         -    reversed(alphabet)
  .<       -   suffixes(^)
    XF     -  for i in ^:
      o    -      o++
       }   -     ^ * 2
        h  -    ^ + 1
         - -   i.lpad(" ", ^)
           - for i in reversed(^):
           -  print i

मैं 6 बाइट्स में इसे सही भाषा में देख सकता हूं अगर उनके पास बिलिन के prepend n spaces to stringसाथ-साथ पाइक भी होता है


3

PHP ( 63 58 55 बाइट्स)

यह संभवतः PHP का मेरा पसंदीदा अजीब कोने है, एक ऐसा कोना जिसे यह पर्ल से विरासत में मिला है:

for($c=A;$c!=AA;$q="$s$z 
$q",$s.=" ")$z=$c++.$z;echo$q;

यह स्पष्ट रूप से अनुमति के रूप में अनुगामी न्यूलाइन को आउटपुट करता है। इसे फ़ाइल में रखने के लिए आवश्यक php -rउद्घाटन को बचाने के लिए चलाया जा सकता है <?php

स्पष्टीकरण: जब स्ट्रिंग वाला एक चर 'A'PHP में बढ़ जाता है, तो यह 'B'तब 'C'तक और तब तक बना रहता 'Z'है 'AA''A'इस पागल बीजगणित में शुरू करने से पहले कोई अंक नहीं है, और डिक्रिप्शन ऑपरेटर इसे पूर्ववत नहीं करता है, इसलिए हम वर्धित रूप से उलट वर्णमाला को सहेजते हैं $z(जो कि चूक के NULLसाथ जब यह एक स्ट्रिंग के साथ समाप्‍त हो जाता है तो खाली स्ट्रिंग की तरह व्यवहार करता है - ऐसा ही होता है $sऔर $q)। व्हॉट्सएप में जमा होता है $sऔर पूरी स्ट्रिंग पीछे की ओर चर में जमा होती है, $qजिसका मतलब है कि हमें इसे अंत में गूंजना होगा।

टाइटस को मेरे घुंघराले ब्रेस को उतारने के लिए धन्यवाद और मुझे यह बताना कि मुझे इनलाइन-मूल्यांकन झंडे के लिए दंड लेने की आवश्यकता नहीं है -r


1
यदि आप एक लाइन लाइनब्रेक का उपयोग करते हैं, तो यह 57 बाइट्स है। -rमुफ्त है। दो बाइट्स छोटी:for($c=A;$c!=AA;$q="$s$z\n$q",$s.=" ")$z=$c++.$z;echo$q;
टाइटस

@ धन्यवाद धन्यवाद, आपने जवाब में एक कुदोस दिया।
सीआर द्रोस्ट

एनएम। बस ध्यान दें कि -Rऔर -Fकर रहे हैं नहीं मुक्त। Codegolf.meta.stackexchange.com/questions/2424/…
टाइटस

मेरा मानना ​​है कि यदि आप उपयोग करते हैं तो आप एक बाइट बचा सकते हैं $c<AA
इस्माइल मिगुएल

1
@IsmaelMiguel माफ करना, मैं बहुत ज्यादा चुलबुला था। मैं सोच रहा था जब मैंने लिखा था कि, "हो सकता है कि बाइट्स प्राप्त किए बिना चीजों को फेरबदल करने का एक तरीका हो ताकि ए मामला पहले हो और फिर हम एए बनाम बी का पता लगा सकें लेकिन मुझे नहीं लगता कि मैं इसे देखने के लिए पर्याप्त स्मार्ट हूं। । " मेरा मतलब यह नहीं था कि मैं फ़्लिपेंट बन जाऊंगा और भविष्य में इसके लिए बाहर देखने की कोशिश करूँगा।
CR Drost

3

बस जिज्ञासु, संकुचित संस्करण कब तक है?
caird coinheringaahing

@cairdcoinheringaahing TL; डीआर रास्ता बहुत लंबा। SOGLs संपीड़न बेकार में (और विशेष रूप से नहीं के लिए बनाया गया है) दोहरावदार सामान। यह बताना बहुत कठिन होगा क्योंकि संपीड़न स्वचालित नहीं है (स्वचालन 701 choose xकिसी भी पूर्णांक x के लिए प्रयास करेगा ) लेकिन एक कठिन प्रयास 450 बाइट्स था: P
dzima


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