कार्य

आपका कार्य इस सटीक पाठ को प्रिंट करना है:

A
BCD
EFGHI
JKLMNOP
QRSTUVWXY
ZABCDEFGHIJ
KLMNOPQRSTUVW
XYZABCDEFGHIJKL
MNOPQRSTUVWXYZABC
DEFGHIJKLMNOPQRSTUV
WXYZABCDEFGHIJKLMNOPQ
RSTUVWXYZABCDEFGHIJKLMN
OPQRSTUVWXYZABCDEFGHIJKLM
NOPQRSTUVWXYZABCDEFGHIJKLMN
OPQRSTUVWXYZABCDEFGHIJKLMNOPQ
RSTUVWXYZABCDEFGHIJKLMNOPQRSTUV
WXYZABCDEFGHIJKLMNOPQRSTUVWXYZABC
DEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKL
MNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVW
XYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJ
KLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXY
ZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOP
QRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHI
JKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCD
EFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZA
BCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ

चश्मा

आप इसे ऑल-अपरकेस के बजाय सभी-लोअरकेस में कर सकते हैं।
त्रिभुज के अंत में अनुगामी न्यूलाइन्स की अनुमति है।
प्रत्येक पंक्ति के बाद रिक्त स्थान की अनुमति है।
आपको स्ट्रिंग्स के एक सरणी को आउटपुट करने के बजाय STDOUT में प्रिंट करना होगा।

स्कोरिंग

यह कोड-गोल्फ है । सबसे कम बाइट-काउंट जीत के साथ कार्यक्रम।

code-golf ascii-art kolmogorov-complexity

— लीक नन
स्रोत

1

"फिर से हमले" से आपका क्या मतलब है? क्या इस तरह की एक और चुनौती थी?

— हयकम

@Peanut codegolf.stackexchange.com/questions/87496/alphabet-triangle

— बीटा डिके

1

काफी तुच्छ लगता है कि क्या हमें वास्तव में (एक) वर्णमाला चुनौती की आवश्यकता है?

— रोहन झुनझुनवाला

2

यह एक अच्छी चुनौती है, लेकिन मुझे लगता है कि हम इन वर्णमाला की चुनौतियों से संतृप्त हो गए हैं, व्यक्तिगत कुछ भी नहीं।

— रोहन झुनझुनवाला

वास्तव में एक वर्णमाला चुनौती की तलाश में है कि एक स्थिति में पत्र को modफ़ंक्शन से जुड़े अपने निर्देशांक से सरल अभिव्यक्तियों द्वारा गणना नहीं की जा सकती है । अगर मेरे पास समय है तो मैं खुद को बना सकता हूं।

— वीजुन झोउ

39

विम, 29 बाइट्स

:h<_↵↵↵y$ZZ26P0qqa↵♥βjllq25@q

जहाँ ↵रिटर्न कुंजी, ♥एस्केप कुंजी और βबैकस्पेस कुंजी का प्रतिनिधित्व करता है ।

— लिन
स्रोत

3

तुम हमेशा मुझे इन पर जवाब देने के लिए कैसे हरा? आरएच +1 वैसे भी, मैं विम को अपवोट नहीं कर सकता! :)

— DJMcMayhem

7

मुझे अभी भी लगता है कि आपको ␛इसके बजाय उपयोग करना चाहिए ♥। और के ␈बजाय β। यही इन यूनिकोड वर्णों के लिए बनाया गया था। utf8icons.com/subsets/control-pictures

— mbomb007

9

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

i=1
a=bytearray(range(65,91))*26
while a:print a[:i];a=a[i:];i+=2

— xsot
स्रोत

1

मैंने हेडर को पायथन 2 में बदल दिया है क्योंकि कोड 3 पायथन में काम नहीं करेगा।

— लीक नून

7

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

26RḤ’RØAṁY

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

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

26RḤ’RØAṁY  Main link. No Arguments.

26          Set the return value to 26.
  R         Range; yield [1, 2, ..., 25, 26].
   Ḥ        Unhalve; yield [2, 4, ..., 50, 52].
    ’       Decrement; yield [1, 3, ..., 49, 51].
     R      Range; yield [[1], [1, 2, 3], ..., [1, ..., 49], [1, ..., 51]].
      ØA    Yield the uppercase alphabet.
        ṁ   Mold the alphabet as the array of ranges. This repeats the uppercase
            letters over an over again, until all integers in the range arrays
            have been replaced with letters.
         Y  Join, separating by linefeeds.

— डेनिस
स्रोत

क्या "डबल" को "अनहलवे" कहा जाता था? साथ ही, ṁमहान है !! [100k प्रतिनिधि के लिए बधाई कहने के लिए इंतजार कर रहा है]

— आउटगॉल्फ

यह सिर्फ एक महामारी है। Hहै Halve और Ḥउसके व्युत्क्रम (है unhalve )।

— डेनिस

मैं बस के बारे में सोच /2या *2, तो यह "Halve" या "डबल" है। इसलिए मैं उलझन में था।

— आउटगॉल्फ

इसके अलावा 10 बाइट्स:27Ḷ²IRØAṁY

— लीक नुन्

इसके अलावा 10 बाइट्स:51Rm2RØAṁY

— हाइपरनेत्रिनो

7

VBA एक्सेल (80 बाइट्स, 1742 बाइट्स)

एक्सेल, 1742 बाइट्स

बदसूरत रचनात्मक जवाब से प्रेरित होकर , मैं ओपी में दिखाए अनुसार पैटर्न बनाने के लिए एक एक्सेल फॉर्मूला खोजने में कामयाब रहा।

=MID(REPT("ABCDEFGHIJKLMNOPQRSTUVWXYZ",26),(ROW()-1)^2+1,2*ROW()-1)

इस सूत्र को सेल A1 में चिपकाएँ, फिर सभी A1: A26 पर खींचें।

सूत्र की लंबाई 67 बाइट्स है लेकिन आपको इसे 26 बार दोहराना है, इसलिए यह 67 * 26 = 1742 बाइट्स के बराबर है। यहाँ उत्पादन है:

एक्सेल VBA, 80 बाइट्स

अब यह संभव है कि हम Excel को VBA के साथ एकीकृत करें ताकि प्रक्रिया को स्वचालित किया जा सके और कई बाइट्स को बचाया जा सके क्योंकि VBA को Excel सहित अधिकांश Microsoft Office अनुप्रयोगों में बनाया गया है। लिखें और तत्काल विंडो में निम्न कोड (प्रयोग संयोजन कुंजी चलाने CTRL+ Gदृश्य मूल संपादक में प्रदर्शित करने के लिए):

[A1:A26]="=MID(REPT(""ABCDEFGHIJKLMNOPQRSTUVWXYZ"",26),(ROW()-1)^2+1,2*ROW()-1)"

यह प्रोग्राम A1: A26 के ऊपर एक्सेल फॉर्मूला को प्रिंट करके काम करता है। दुर्भाग्य से, एक्सेल और वीबीए दोनों में कोई अंतर्निर्मित वर्णमाला नहीं है।

— अनास्तासिया-रोमानोवा ova
स्रोत

स्तंभ नाम मेरे लिए एक अंतर्निहित वर्णमाला की तरह दिखता है। पहले 26 कॉलम नामों का उपयोग करें।

— mbomb007

1

@ mbomb007 तो क्या? मुझे लगता है कि स्ट्रिंग्स के बजाय उनका उपयोग करना कठिन होगा।

— आउटगॉल्फ

@EriktheGolfer तो? मेरे मुद्दा यह है कि वहाँ था है अंतर्निहित वर्णमाला।

— mbomb007

1

@ mbomb007 आपने कहा "पहले 26 कॉलम नामों का उपयोग करें", जिसे मैंने "पहले 26 कॉलम नामों का उपयोग करें जो आप वर्तमान में उपयोग करते हैं" के बजाय, यही कारण है कि मैंने उत्तर दिया।

— आउटगॉल्फ

@EriktheGolfer यह एक सुझाव है। Idk कितने बाइट्स होंगे।

— mbomb007

5

हास्केल, 67 बाइट्स

_#53=[]
s#i=take i s:drop i s#(i+2)
mapM putStrLn$cycle['A'..'Z']#1

iलाइन की लंबाई पर एक साधारण पुनरावृत्ति । प्रत्येक चरण में अगले iवर्णों को वर्णमाला के अनंत पुनरावृत्ति से लिया जाता है।

— nimi
स्रोत

4

गणितज्ञ, 90 बाइट्स

StringRiffle[Flatten[Alphabet[]&~Array~26]~Internal`PartitionRagged~Range[1,51,2],"
",""]&

अनाम फ़ंक्शन। कोई इनपुट नहीं लेता है और आउटपुट के रूप में एक स्ट्रिंग लौटाता है। गोल्फ सुझाव का स्वागत करते हैं। क्या Internal`PartitionRaggedकरता है इसका एक उदाहरण :

In[1]:= Internal`PartitionRagged[{2, 3, 5, 7, 11, 13}, {2, 3, 1}]               

Out[1]= {{2, 3}, {5, 7, 11}, {13}}

— LegionMammal978
स्रोत

Mathematica में एक वर्णमाला त्रिकोण के लिए अंतर्निहित है?

— बफ़र ओवर पढ़ें

4

सी, 79 बाइट्स

main(i,j){for(i=0,j=1;i<676;i++){putchar(i%26+65);if(j*j==i+1){puts("");j++;}}}

C \ o / में मेरा पहला उत्तर

स्वागत से अधिक गोल्फिंग सुझाव हैं।

— लीक नन
स्रोत

62:i;main(j){while(i<676)printf("\n%c"+(j*j^i++||!j++),i%26+65);}

— xsot

@xsot धन्यवाद, लेकिन मुझे डर है कि प्रमुख नए समाचारों की अनुमति नहीं है।

— लीक

1

लेकिन वहाँ कोई प्रमुख newline है?

— xsot

60:i;main(j){for(;j<27;j*j^++i||puts("",j++))putchar(i%26+65);}

— xsot 13

@ मुझे लगता है कि मुझे इसे पोस्ट करना चाहिए।

— xsot

4

ब्रेकीलॉग , 37 बाइट्स

26~l<:1aLc~j[@A:I],L~@nw
=:2%1,.#@l?,

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

व्याख्या

मुख्य विधेय:

26~l         Let there be a list of 26 elements
<            This list is an ascending list of integers
:1aL         Apply predicate 1 to that list ; the resulting list of strings is L
c            Concatenate the list of strings into one big string
~j[@A:I],    That big string is the result of juxataposing the alphabet I times to itself
L~@n         Create a string which when splitted on line breaks results in L
w            Write that string to STDOUT

Predicate 1: विषम लंबाई के परिवर्तनशील तार उत्पन्न करने के लिए उपयोग किया जाता है।
```
=            Assign a value to the Input
:2%1,        That value must be odd
.#@l?,       Output is a string of length Input
```

— Fatalize
स्रोत

अंत में आप एक आस्की-आर्ट चैलेंज करते हैं

— लीक नून

@LeakyNun यह वर्गीकृत करेगा कि ASCII कला imo से अधिक स्ट्रिंग हेरफेर के रूप में

— F33 को

क्या मुझे उसे टैग में जोड़ना चाहिए?

— लीक

इस तथ्य का अच्छा उपयोग है कि अंतिम पंक्ति एकमात्र ऐसी रेखा है जो समाप्त Zहोती है, क्योंकि 26यह वर्ग-मुक्त है।

— लीक

3

पायथ , 12 बाइट्स

jtc*G26*Rd26

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

— लीक नन
स्रोत

3

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

एकमात्रा 6 को नईलाइन के लिए टेम्प्लेट स्ट्रिंग शाब्दिक का उपयोग करके केवल 1 बाइट को बचाने की आवश्यकता है।

for(i=r=l=o='';l+52;r++||(r=l-=2,o+=`
`))o+=(i++%26+10).toString(36);alert(o)

कम गोल्फ वाला

for(i = r = l = o = '';
    l + 52;
    r++ || (r = l -= 2, o += `\n`))
  o += (i++ % 26 + 10).toString(36);
alert(o);

परीक्षा

for(i=r=l=o='';l+52;r++||(r=l-=2,o+=`
`))o+=(i++%26+10).toString(36);alert(o)

स्निपेट का विस्तार करें

— edc65
स्रोत

\ o / एक ईएस 6 उत्तर मैं अपने ब्राउज़र में चला सकता हूं

— डाउनगोट

मैंने आपका .toString (36) तर्क चुरा लिया ... अब आपको 80 बाइट्स मारनी हैं !!

— Applejacks01

आह मैं मानता हूं, मैं अपने पुस्तकालय के साथ इसे हरा देने का कोई तरीका नहीं सोच सकता। चुनौती के लिए धन्यवाद!

— Applejacks01

3

पर्ल, 42 41 39 बाइट्स

perl -E '@b=(A..Z)x26;say splice@b,0,$#a+=2for@b'

बस कोड:

@b=(A..Z)x26;say splice@b,0,$#a+=2for@b

एक स्पष्ट रूप से छोटा संस्करण दुर्भाग्य से एक आंतरिक गड़बड़ी समस्या का उपयोग करता है (पुनरावृति में मुक्त मूल्य का उपयोग):

say splice@b,0,$#a+=2for@b=(A..Z)x26

— टन हास्पेल
स्रोत

2

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

z=1,i=0,g=a=>{b=0,c="";while(a+a-1>b){c+='ABCDEFGHIJKLMNOPQRSTUVWXYZ'.split``[i>26?i=0:i++];b++}console.log(c)};while(z<26)g(z++)

— मोड़ना
स्रोत

1

स्प्रेड ऑपरेटर का उपयोग करने से आप 3 बाइट बचा सकते हैं : [...'ABCDEFGHIJKLMNOPQRSTUVWXYZ']इसके बजाय 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.split``।

— आवेषण

2

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

G26*WDoh<
Ko>D

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

— नीला
स्रोत

2

जाओ, १३३ बाइट्स

package main
import S "strings"
func main(){s:=S.Repeat("ABCDEFGHIJKLMNOPQRSTUVXXYZ",26)
for i:=1;s!="";i+=2{println(s[:i]);s=s[i:]}}

— रोलैंड इलिग
स्रोत

2

MATLAB, 112 109 95 79 77 बाइट्स

यह ओक्टेव के साथ भी काम करेगा , आप यहां ऑनलाइन कोशिश कर सकते हैं ।

a=['' 65:90 65:90]';j=0;for i=1:2:52;b=circshift(a,j);j=j-i;disp(b(1:i)');end

इसलिए कुछ बड़े बदलावों के बाद, मैंने एक और 14 32 बाइट्स बचाए हैं । यह एक बहुत अधिक लंबाई की तरह हो रहा है जिसकी मैंने MATLAB से उम्मीद की थी। मैंने पुराने संस्करण को नीचे छोड़ दिया है क्योंकि यह काफी अलग है।

a=['' 65:90 65:90]';        %Create 2 copies of the upper case alphabet
j=0;                        %Initialise cumulative sum
for i=1:2:52;               %For each line length
    b=circshift(a,j);       %Rotate the alphabet string by the cumulative offset
    j=j-i;                  %Update cumulative negative sum of offsets.
    disp(
         b(1:i)'            %Extract first 'line length' characters from rotated alphabet.
               );           %Display next line (disp adds newline automatically)
end

मूल संस्करण:

a=['' repmat(65:90,1,26)];c=cumsum(1:2:51);disp(cell2mat(arrayfun(@(s,f)[a(s:f) 10],[1,c(1:25)+1],c,'Un',0)))

वाह कि एक खत्म होने से मैंने सोचा था कि यह होगा। मैं देख सकता हूँ कि क्या मैं कुछ बाइट्स नहीं मार सकता।

एक ungolfed संस्करण समझाने के लिए:

a=['' repmat(65:90,1,26)]; %Create 26 copies of the upper case alphabet
c=cumsum(1:2:51);          %Calculate the end index of each row in the above array, by cumulatively summing the length of each line
disp(
     cell2mat(
              arrayfun(@(s,f)
                             [a(s:f) 10], %Extract the part of the alphabet and insert a new line.
                                         [1,c(1:25)+1],c, %start index is the previous end of line plus 1. End index is as calculated by cumsum.
                       'Un',0 %The returned values are not all the same length
                       )   %Do this for each line
              )            %Convert back to a matrix now new lines inserted
     )                     %And display it

स्वीकृतियाँ

3 बाइट्स सहेजे गए - धन्यवाद @LuisMendo

— टॉम बढ़ई
स्रोत

2

XPath 3.0 (और XQuery 3.0), 84 बाइट्स

codepoints-to-string((0 to 25)!(subsequence(((1 to 26)!(65 to 90)),.*.+1,2*.+1),10))

स्पष्टीकरण:

(1 to 26)!(65 to 90) 26 बार वर्णमाला है

(0 to 25)!(subsequence(XX, start, len),10) इस के 26 बाद लेता है, प्रत्येक newline द्वारा पीछा किया

subsequence(X, .*.+1, 2*.+1) आरंभिक स्थिति और लंबाई के साथ क्रमिक अनुक्रियाएँ लेता है: (1, 1), (2, 3), (5, 5), (10, 9) आदि।

codepoints-to-string() यूनिकोड कोडपॉइंट को वर्णों में बदलता है

— माइकल के
स्रोत

वाहवाही। मुझे लगा कि मुझे पता है कि XQuery क्या था। पता चला मुझे कोई पता नहीं था।

— जॉर्डन

मुझे संदेह है कि यहाँ की कई पोस्टें आपको उनके द्वारा लिखी गई भाषा के बारे में बहुत कुछ बताती हैं।

— माइकल के।

2

रूबी, 46 बाइट्स

26.times{|i|puts ([*?A..?Z]*26)[i*i,i*2+1]*""}

इसे ideone पर देखें: http://ideone.com/3hGLB0

— जॉर्डन
स्रोत

2

05AB1E (वैकल्पिक) 15 बाइट्स

A2×52µ¼D¾£,¾¼FÀ

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

स्पष्टीकरण:

A2×              # push a string containing a-za-z
   52µ           # Loop the rest of the program until counter = 52
      ¼          # increment counter (it's 0 initially)
       D         # Duplicate the alpha string on the stack
        ¾£       # Replace alpha with alpha[0..counter]
          ,      # Pop the substring and print it
           ¾¼FÀ  # rotate the alpha string left counter++ times.

— Ruds
स्रोत

2

आर, 120 115 111 बाइट्स

v=c();for(i in 1:26){v=c(v,c(rep(LETTERS,26)[(sum((b=seq(1,51,2))[1:i-1])+1):sum(b[1:i])],"\n"))};cat(v,sep="")

अधूरा:

a=rep(LETTERS,26)
b=seq(1,51,2)
v=vector()

for(i in 1:26)
    {
    v=c(v,c(a[(sum(b[1:i-1])+1):sum(b[1:i])],"\n"))
    }

cat(v,sep="")

मूल रूप से, bके बीच विषम संख्या के वेक्टर है 1और 51, इस प्रकार प्रत्येक लाइन की लंबाई दे रही है। जाहिर है, sumसमारोह का योग इस सदिश का नंबर, और शुरू करने और खत्म होने वाली अनुक्रमण करता देता है।

-5 बाइट्स के लिए @plannapus धन्यवाद!
-4 बाइट्स @plannapus के लिए धन्यवाद!

— फ़्रेडरिक
स्रोत

1

arf, माफ करना, मैंने वह पहले नहीं देखा था, लेकिन जब से आप केवल aएक बार उपयोग कर रहे हैं, तो आपको वास्तव में इसे परिभाषित करने की आवश्यकता नहीं है, जिसका अर्थ है कि आप कुछ और बाइट्स दाढ़ी कर सकते हैं: b=seq(1,51,2);v=c();for(i in 1:26){v=c(v,c(rep(LETTERS,26)[(sum(b[1:i-1])+1):sum(b[1:i])],"\n"))};cat(v,sep="")काम करता है।

— प्लेनैपस

@plannapus मुझे मूर्ख! एक बार फिर धन्यवाद ! मैंने b=seqमुख्य शरीर में भाग को भी एकीकृत किया है, इसलिए यह कम पठनीय है!

— Frédéric

2

आर, 81 73 65 63 बाइट्स

एक साधारण forपाश दृष्टिकोण। 26 बार दोहराएं और एक स्लाइडिंग इंडेक्स रेंज के माध्यम से लूप का उपयोग करके गणना की जाती है (i^2-2*i+2):i^2।

for(i in 1:26)cat(rep(LETTERS,26)[(i^2-2*i+2):i^2],"\n",sep="")

— Billywob
स्रोत

2

भूसी , 10 बाइट्स

Cİ1ṠṁK…"AZ

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

व्याख्या

Cİ1ṠṁK…"AZ
      …"AZ    Get the alphabet
   ṠṁK        Replace each letter with the whole alphabet
C             Cut the resulting string into lines with lengths
 İ1            equal to the list of odd numbers

— सिंह
स्रोत

1

बैच, 123 बाइट्स

@set s=
@for /l %%i in (1,2,51)do @call set s=%%s%%ABCDEFGHIJKLMNOPQRSTUVWXYZ&call echo %%s:~0,%%i%%&call set s=%%s:~%%i%%

— नील
स्रोत

1

05AB1E , 18 17 बाइट्स

26FA26×N>n£NnF¦},

व्याख्या

26F                 # for N in range(0, 26) do
   A26×             # the alphabet repeated 26 times
       N>n£         # take (N+1)^2 letters
           NnF¦}    # throw away the first N^2 letters
                ,   # print with newline

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

— Emigna
स्रोत

1

Rexx, 74 72 बाइट्स

i=1;m=1;do 26;say substr(copies(xrange('A','Z'),26),i,m);i=i+m;m=m+2;end

Ungolfed:

i=1
m=1
do 26
  say substr(copies(xrange('A','Z'),26),i,m)
  i=i+m
  m=m+2
end

— AJA
स्रोत

1

TSQL, 129 बाइट्स

स्क्रिप्ट की शुरुआत में USE MASTER यह सुनिश्चित करना है कि क्वेरी को मास्टर डेटाबेस में चलाया जाए जो कई उपयोगकर्ताओं के लिए डिफ़ॉल्ट है (उस के लिए बाइट्स की गिनती नहीं)।

golfed:

USE MASTER

SELECT SUBSTRING(REPLICATE('ABCDEFGHIJKLMNOPQRSTUVWXYZ',26),number*number+1,number*2+1)FROM spt_values WHERE number<26and'P'=type

Ungolfed:

USE MASTER

SELECT SUBSTRING(REPLICATE('ABCDEFGHIJKLMNOPQRSTUVWXYZ',26),number*number+1,number*2+1)
FROM spt_values
WHERE number<26and'P'=type

बेला

Xml पथ का उपयोग करके पुराने संस्करण के लिए फ़ेडल

— t-clausen.dk
स्रोत

1

पॉवरशेल, 68 बाइट्स

$a=-join(65..90|%{[char]$_})*26;26..1|%{$a=$a.Insert($_*$_,"`n")};$a

पहले अर्धविराम से पहले वाला खंड एक स्ट्रिंग बनाता है जिसमें अपरकेस वर्णमाला की 26 प्रतियां होती हैं। अगला खंड प्रत्येक वर्ग संख्या (पिछड़े काम कर रहा है ताकि मैं स्थानांतरण के लिए खाता नहीं है) के सूचकांक पर लाइनब्रीक्स को इंजेक्ट करता है। अंत में, $aसिर्फ़ उस स्ट्रिंग चर को PowerShell के समतुल्य के बराबर छोड़ दिया गया STDOUT।

— बेन एन
स्रोत

1

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

↑2{⍺↓⍵⍴⎕a}/×⍨0,⍳26

— NGN
स्रोत

18 बाइट्स या 18 अक्षर? इन 18 वर्णों को 18 बाइट्स के रूप में एनकोड करने के लिए, आपको एक कस्टम वर्ण एन्कोडिंग की आवश्यकता है; और हम किसी भी समाधान को संपीड़ित कर सकते हैं यदि हम अपने चरित्र एन्कोडिंग को सावधानीपूर्वक पर्याप्त चुनते हैं।

— माइकल Kay

1

@MichaelKay APL वर्णों को प्रत्येक 1 बाइट के रूप में कब गिना जा सकता है?

— डेनिस

क्या आप इसे समझाएंगे, या मैं?

— अड्म

1

सी, 60 बाइट्स

i;main(j){for(;j<27;j*j^++i||puts("",j++))putchar(i%26+65);}

— xsot
स्रोत

putsकेवल एक तर्क लेता है। (सामान्य रूप से कोडगुल्फ़ में कुछ अपरिभाषित व्यवहार की अनुमति है लेकिन सामान्य गलियों के बाहर यह थोड़ा बहुत दूर है)

— MM

@MM अपरिभाषित व्यवहार का हर समय शोषण किया जाता है। नियम यह है कि सबमिशन तब तक मान्य है जब तक कि यह कुछ संकलक में काम करता है, अन्यथा हमें स्पष्ट रूप से अपवादों की एक लंबी सूची पर शासन करना होगा। यह कोड gcc में काम करता है इसलिए यह एक वैध सबमिशन है।

— xsot

1

सी ++, 111 बाइट्स

void a(){int c=65,i,j;for(i=0;i<26;i++){for(j=0;j<=2*i;j++){std::cout<<(char)c;c++;if(c==91)c=65;}std::cout<<'\n';}}

पहले इनमें से एक पर प्रयास करें। किसी भी समय मुद्रित करने के लिए किस पत्र को रिकॉर्ड करने के लिए एक int "c" का उपयोग करता है। एक बार "c" 90 ('Z') पास होने के बाद 65 ('ए') पर रीसेट हो जाता है। लूप के लिए पिरामिड का उपयोग करता है।

— limelier
स्रोत

अच्छा जवाब! आप if(c<92)c=65एक बाइट लेने के लिए कर सकते हैं , और आप int a()इसके बजाय भी करने में सक्षम हो सकते हैं void a(), लेकिन अगर यह रिटर्न के बिना काम करता है तो मैं सकारात्मक नहीं हूं। इसके अलावा, मुझे लगता है कि आपको #include <iostream>अपनी बाइट गिनती में शामिल करने की आवश्यकता है ।

— DJMcMayhem

मेरा मानना है कि आपका मतलब था if(c>90)c=65, लेकिन सुझाव के लिए धन्यवाद, यह एक अच्छा विचार है। इसके अलावा, मुझे लगता है कि मैं इसे शामिल करूंगा, धन्यवाद।

— लाइमलाइजर

1

PHP, 76 69 बाइट्स

for(;$i<26&&$a.=join(range(A,Z));)echo substr($a,$i**2,1+2*$i++)."
";

26 वर्णमाला बनाएं (पर्याप्त से अधिक) और उनसे $ a में संपर्क करें
i <26 के लिए लूप
प्रदर्शन $ $ एक विकल्प शुरू मैं ^ 2, अंत 2 * i + 1

— क्रिप्टो
स्रोत

वर्णमाला त्रिकोण फिर से हमला करता है

कार्य

चश्मा

स्कोरिंग

विम, 29 बाइट्स

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

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

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

VBA एक्सेल (80 बाइट्स, 1742 बाइट्स)

एक्सेल, 1742 बाइट्स

एक्सेल VBA, 80 बाइट्स

हास्केल, 67 बाइट्स

गणितज्ञ, 90 बाइट्स

सी, 79 बाइट्स

ब्रेकीलॉग , 37 बाइट्स

व्याख्या

पायथ , 12 बाइट्स

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

पर्ल, 42 41 39 बाइट्स

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

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

जाओ, १३३ बाइट्स

MATLAB, 112 109 95 79 77 बाइट्स

XPath 3.0 (और XQuery 3.0), 84 बाइट्स

रूबी, 46 बाइट्स

05AB1E (वैकल्पिक) 15 बाइट्स

आर, 120 115 111 बाइट्स

आर, 81 73 65 63 बाइट्स

भूसी , 10 बाइट्स

व्याख्या

बैच, 123 बाइट्स

05AB1E , 18 17 बाइट्स

Rexx, 74 72 बाइट्स

TSQL, 129 बाइट्स

पॉवरशेल, 68 बाइट्स

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

सी, 60 बाइट्स

सी ++, 111 बाइट्स

PHP, 76 69 बाइट्स