কার্য

আপনার কাজটি হ'ল এই সঠিক পাঠ্যটি মুদ্রণ করা:

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

"আবার ধর্মঘট" বলতে কী বোঝ? আপনি কি এইরকম আরও একটি চ্যালেঞ্জ করেছিলেন?

— হাইকমাম

@ পিনট

— বিটা

1

মোটামুটি তুচ্ছ মনে হচ্ছে আমাদের কি সত্যই (অন্য) বর্ণমালার চ্যালেঞ্জ দরকার?

— রোহান ঝুনঝুনওয়ালা

2

এটি একটি ভাল চ্যালেঞ্জ, তবে আমি মনে করি যে আমরা এই বর্ণমালা চ্যালেঞ্জগুলির স্যাচুরেশনকে ছাড়িয়েছি, ব্যক্তিগত কিছুই নয়।

— রোহান ঝুনঝুনওয়ালা

আসলে একটি বর্ণমালার চ্যালেঞ্জ খুঁজছেন যে কোনও অবস্থানে থাকা চিঠির সাথে modফাংশন জড়িত এর স্থানাঙ্কগুলি থেকে সরল অভিব্যক্তি দ্বারা গণনা করা যায় না । আমার কাছে সময় থাকলে নিজেকে তৈরি করতে পারি।

— ওয়েজুন চাউ

39

Vim, 29 বাইট

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

যেখানে ↵রিটার্ন কী, ♥এস্কেপ কী এবং βব্যাকস্পেস কী উপস্থাপন করে।

— লিন
সূত্র

3

আপনি কীভাবে আমাকে সর্বদা এইগুলিতে ভিম উত্তরে মারবেন? আরগ +1 যাই হোক, আমি ভিমকে উজ্জীবিত করতে পারি না! :)

— ডিজেএমসিমেহেম

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.

— ডেনিস
সূত্র

"ডাবল" তখন কি "আনহালভে" নামে ডাকা হত? এছাড়াও, ṁদুর্দান্ত! [১০০

— কেপি প্রতিবেদনের

এটি কেবল একটি স্মৃতিবিজড়িত। Hহয় অর্ধেক এবং Ḥতার বিপরীত (হয় unhalve )।

— ডেনিস

আমি কেবল /2বা এর কথা ভাবি *2, সুতরাং এটি "অর্ধ" বা "ডাবল"। এ কারণেই আমি বিভ্রান্ত হয়ে পড়েছিলাম।

— এরিক আউটগলফার

এছাড়াও 10 বাইট:27Ḷ²IRØAṁY

— লিকি নুন

এছাড়াও 10 বাইট:51Rm2RØAṁY

— হাইপারনিউট্রিনো

7

ভিবিএ এক্সেল (80 বাইট, 1742 বাইট)

এক্সেল, 1742 বাইট

উগোরেনের সৃজনশীল উত্তরের দ্বারা অনুপ্রাণিত হয়ে , আমি ওপিতে বর্ণিত প্যাটার্নটি তৈরি করার জন্য একটি এক্সেল সূত্র খুঁজতে সক্ষম হয়েছি।

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

এই সূত্রটি কক্ষ এ 1 এ আটকান, তারপরে A1: A26 এর ব্যাপ্তি জুড়ে টানুন।

সূত্রটির দৈর্ঘ্য 67 বাইট তবে আপনাকে এটি 26 বার প্রতিলিপি করতে হবে, সুতরাং এটি 67 * 26 = 1742 বাইটের সমান। এখানে ফলাফল:

এক্সেল ভিবিএ, 80 বাইট

প্রক্রিয়াটি স্বয়ংক্রিয় করতে এবং এক্সেল সহ বেশিরভাগ মাইক্রোসফ্ট অফিস অ্যাপ্লিকেশনগুলিতে ভিবিএ নির্মিত হওয়ায় অনেকগুলি বাইট সংরক্ষণ করার জন্য এখন আমরা এক্সএলকে ভিবিএর সাথে সংহত করতে পারি। তাত্ক্ষণিক উইন্ডোতে নিম্নলিখিত কোডটি লিখুন এবং চালান ( ভিজ্যুয়াল বেসিক সম্পাদক এ প্রদর্শিত করতে সংমিশ্রণ কী CTRL+ ব্যবহার করুন G):

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

প্রোগ্রামটি উপরে এক্সেল সূত্রটি A1: A26 এর পরিসরে মুদ্রণ করে কাজ করে। দুর্ভাগ্যক্রমে, এক্সেল এবং ভিবিএ উভয়ের কোনও অন্তর্নির্মিত বর্ণমালা নেই।

— আনস্তাসিয়া-রোমানোভা 秀
সূত্র

কলামের নামগুলি আমার কাছে বিল্ট-ইন বর্ণমালার মতো দেখাচ্ছে। প্রথম 26 টি কলামের নাম ব্যবহার করুন।

— mbomb007

1

@ mbomb007 তাহলে কি? আমি মনে করি স্ট্রিংয়ের পরিবর্তে এগুলি ব্যবহার করা আরও কঠিন হবে।

— এরিক দ্য আউটগল্ফার

@ এরিক্থে গল্ফার সো? আমার পয়েন্ট ছিল হয় একটি builtin বর্ণমালা।

— mbomb007

1

@ mbomb007 আপনি "প্রথম 26 টি কলামের নাম ব্যবহার করুন" বলেছিলেন, যা আমি "বর্তমানে আপনি যেটি ব্যবহার করছেন তার পরিবর্তে প্রথম 26 টি কলামের নাম ব্যবহার করুন" বলে আমি বুঝতে পেরেছি, সে কারণেই আমি জবাব দিয়েছি।

— এরিক দি আউটগল্ফার

@ এরিকথগল্ফার এটি একটি পরামর্শ। আইডিক কত বাইট হবে।

— 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
সূত্র

গাণিতিকের বর্ণমালা ত্রিভুজগুলির একটি অন্তর্নির্মিত আছে?

— বাফার ওভার

4

সি, 79 বাইট

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

সি-ও / এ আমার প্রথম উত্তর

গল্ফিং পরামর্শগুলি স্বাগত চেয়ে বেশি।

— ফুটো নুন
সূত্র

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

— xsot

@ এক্সসোট ধন্যবাদ তবে আমি আশঙ্কা করছি যে শীর্ষস্থানীয় নতুন লাইনের অনুমতি দেওয়া হচ্ছে না।

— ফাঁস নুন

1

কিন্তু কোন শীর্ষস্থানীয় নিউলাইন আছে?

— xsot

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

— xsot

@ মিমিবিস আমার ধারণা এটি তখন পোস্ট করা উচিত।

— 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

ভবিষ্যদ্বাণী 1: বিজোড় দৈর্ঘ্যের পরিবর্তনশীল স্ট্রিং উত্পন্ন করতে ব্যবহৃত হয়।
```
=            Assign a value to the Input
:2%1,        That value must be odd
.#@l?,       Output is a string of length Input
```

— Fatalize
সূত্র

অবশেষে আপনি অসি-আর্ট চ্যালেঞ্জটি করেন

— লিকি নুন

@ ল্যাকইনুন এএসসিআইআই আর্ট

— ইমোর

আমি ট্যাগ এ যোগ করা উচিত?

— ফাঁস নুন

সত্য যে শেষ লাইনটি শুধুমাত্র লাইন যা প্রান্ত বিষয় সম্পর্কেও নিস ব্যবহার Zযা কারণ 26স্কয়ার মুক্ত।

— ফাঁস নুন

3

পাইথ , 12 বাইট

jtc*G26*Rd26

এটি অনলাইন চেষ্টা করুন!

— ফুটো নুন
সূত্র

3

জাভাস্ক্রিপ্ট (ES6), 77 82 88

নিউলাইনের জন্য টেম্পলেট স্ট্রিং আক্ষরিক ব্যবহার করে কেবল 1 বাইট সংরক্ষণ করতে ইকামাস্ক্রিপ্ট 6 টি দরকার।

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 / একটি ES6 উত্তর আমি আমার ব্রাউজারে চালাতে পারি

— ডাউনগোট

আমি আপনার .to স্ট্রিং (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

যান, 133 বাইট

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

ম্যাটল্যাব, 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 বাইট সংরক্ষণ করেছি । এটি ম্যাটল্যাব থেকে আমার যে দৈর্ঘ্যের প্রত্যাশা ছিল তার চেয়ে অনেক বেশি হয়ে উঠছে। পুরানো সংস্করণটি নীচে রেখেছি কারণ এটি যথেষ্ট আলাদা।

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)))

বাহ যে এক তার চেয়ে বেশি দীর্ঘ হবে শেষ পর্যন্ত আমি ভেবেছিলাম। আমি দেখতে পাচ্ছি যে আমি এটি থেকে কয়েক বাইট ছুঁড়ে ফেলতে পারি না।

ব্যাখ্যা করার জন্য একটি অবারিত সংস্করণ:

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 টি বাইট সংরক্ষণ করা হয়েছে - ধন্যবাদ @ লুইসমেন্ডো

— টম কার্পেন্টার
সূত্র

2

এক্সপথ 3.0 (এবং এক্সকুয়েরি 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 টি উপসাগর লাগে, যার পরেরটি নিউলাইন

subsequence(X, .*.+1, 2*.+1) প্রারম্ভিক অবস্থান এবং দৈর্ঘ্যের সাথে ধারাবাহিক উপসর্গ গ্রহণ করে: (1, 1), (2, 3), (5, 5), (10, 9) ইত্যাদি

codepoints-to-string() ইউনিকোড কোডপয়েন্টগুলিকে অক্ষরে রূপান্তরিত করে

— মাইকেল কে
সূত্র

সাবাস। আমি ভেবেছিলাম এক্সকিউরিটি কী তা আমি জানতাম। দেখা যাচ্ছে আমার কোনও ধারণা ছিল না।

— জর্ডান

আমি সন্দেহ করি যে এখানকার অনেকগুলি পোস্টে তারা যে ভাষায় লিখিত আছে সে সম্পর্কে আপনাকে অনেক কিছু জানায়

— মাইকেল কে

2

রুবি, 46 বাইট

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

এটি আদর্শে দেখুন: http://ideone.com/3hGLB0

— জর্ডন
সূত্র

2

05 এ বি 1 ই (বিকল্প) 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ফাংশন অঙ্কের এই ভেক্টরের নম্বর এবং শুরু এবং শেষ ইনডেক্স দেয়।

-৫ বাইট @ প্ল্যানাপাসকে ধন্যবাদ!
-4 বাইট @ প্ল্যানাপ্যাপাসকে ধন্যবাদ!

— ফ্রেডেরিক
সূত্র

1

আরফ, দুঃখিত আমি এটি আগে দেখিনি, তবে যেহেতু আপনি কেবল 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="")কাজ করে।

— প্ল্যানাপাস

@ প্লানাপাস আমাকে বোকা! আবার ধন্যবাদ ! আমি b=seqপ্রধান বডিটির অংশটিও সংহত করেছি , সুতরাং এটি আরও কম পাঠযোগ্য!

— ফ্রেডেরিক

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

05 এ বি 1 ই , 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

টিএসকিউএল, 129 বাইট

স্ক্রিপ্টের শুরুতে মাস্টার ব্যবহার করুন তা নিশ্চিত করা হয় যে মাস্টার ডাটাবেসে কোয়েরি চালিত হয়েছে যা অনেক ব্যবহারকারীর জন্য ডিফল্ট (তার জন্য বাইট গণনা করা হয় না)।

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

বেহালা

এক্সএমএল পাথ ব্যবহার করে পুরানো সংস্করণের জন্য ফিডল

— t-clausen.dk
সূত্র

1

পাওয়ারশেল, 68 বাইট

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

প্রথম সেমিকোলনের আগের বিভাগটি বড় আকারের বর্ণমালার 26 টি অনুলিপিযুক্ত একটি স্ট্রিং উত্পাদন করে। পরবর্তী বিভাগটি প্রতিটি বর্গ সংখ্যার সূচকে লাইন ব্রেকগুলি ইনজেকশন দেয় (পিছনে কাজ করা যাতে আমাকে স্থানান্তরিত করার জন্য অ্যাকাউন্ট করতে হবে না)। অবশেষে, $aশেষে কেবল স্ট্রিং ভেরিয়েবলটি পাওয়ারশেলের সমতুল্য অংশে সরিয়ে দেয় STDOUT।

— বেন এন
সূত্র

1

ডায়ালগ এপিএল, 18 বাইট

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

— ngn
সূত্র

18 বাইট বা 18 অক্ষর? এই 18 টি অক্ষরকে 18 বাইট হিসাবে এনকোড করতে আপনার একটি কাস্টম অক্ষর এনকোডিং প্রয়োজন; এবং যদি আমরা আমাদের অক্ষরটি যথেষ্ট যত্ন সহকারে এনকোডিং চয়ন করি তবে আমরা সমাধানগুলির কোনওটিকে সংকোচন করতে পারি।

— মাইকেল কে

1

@ মিশেলকেএ এপিএল অক্ষরগুলি কখন প্রতি বাইট 1 টি হিসাবে গণনা করা যায়?

— ডেনিস

আপনি এই ব্যাখ্যা করতে হবে, বা আমি করব?

— অ্যাডম

1

সি, 60 বাইট

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

— xsot
সূত্র

putsশুধুমাত্র একটি যুক্তি লাগে। (কিছুটা অপরিজ্ঞাত আচরণের জন্য সাধারণত কোডগল্ফের অনুমতি দেওয়া হয় তবে এটি সাধারণ লেনের বাইরে কিছুটা দূরে)

— এমএম

@ এমএম অপরিশোধিত আচরণ সর্বদা শোষণ করা হয়। নিয়মটি হ'ল কোনও জমা যতক্ষণ এটি কিছু সংকলকটিতে কাজ করে ততক্ষণ বৈধ, অন্যথায় আমাদের স্পষ্টভাবে ব্যতিক্রমগুলির দীর্ঘ তালিকাটি বাতিল করতে হবে। এই কোডটি জিসিসিতে কাজ করে তাই এটি একটি বৈধ জমা।

— 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';}}

এর মধ্যে একটিতে প্রথমে চেষ্টা করুন। কোন নির্দিষ্ট সময়ে কোন চিঠিটি মুদ্রণের প্রয়োজন তা রেকর্ড করতে একটি "সি" ব্যবহার করে। একবার "সি" 90 ('জেড') পাস করলে এটি 65 ('এ') এ রিসেট হয়ে যায়। লুপগুলির জন্য ব্যবহার করে পিরামিড মুদ্রণ করে।

— limelier
সূত্র

চমৎকার উত্তর! আপনি if(c<92)c=65একটি বাইট বন্ধ নিতে করতে পারেন, এবং আপনি এর int a()পরিবর্তে এছাড়াও করতে সক্ষম হতে পারে void a(), কিন্তু আমি যদি ইতিবাচক না হয় যদি এটি কাজ না করে কাজ করে। তা ছাড়া, আমি মনে করি আপনাকে #include <iostream>আপনার বাইট গণনাতে অন্তর্ভুক্ত করতে হবে ।

— ডিজেএমসিএমহেম

আমি বিশ্বাস করি আপনি বোঝাতে চেয়েছিলেন if(c>90)c=65, তবে পরামর্শের জন্য ধন্যবাদ, এটি একটি ভাল ধারণা। এছাড়াও, আমি অনুমান করি আমি এটি অন্তর্ভুক্ত করব, ধন্যবাদ।

— চুনযুক্ত

1

পিএইচপি, 76 69 বাইট

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

26 বর্ণমালা তৈরি করুন (যথেষ্ট পরিমাণে বেশি) এবং তাদের সাথে যোগাযোগ করুন $
আমি <26 জন্য লুপ
প্রদর্শন $ একটি স্ট্রিং শুরু আমি ^ 2, শেষ 2 * i + 1

— ক্রিপ্টো
সূত্র

বর্ণমালা ত্রিভুজ আবার আঘাত

কার্য

চশমা

স্কোরিং

Vim, 29 বাইট

পাইথন 2, 65 বাইট

জেলি , 10 বাইট

কিভাবে এটা কাজ করে

ভিবিএ এক্সেল (80 বাইট, 1742 বাইট)

এক্সেল, 1742 বাইট

এক্সেল ভিবিএ, 80 বাইট

হাস্কেল, 67 বাইট

গণিত, 90 বাইট

সি, 79 বাইট

ব্র্যাচল্যাগ , 37 বাইট

ব্যাখ্যা

পাইথ , 12 বাইট

জাভাস্ক্রিপ্ট (ES6), 77 82 88

পার্ল, 42 41 39 বাইট

জাভাস্ক্রিপ্ট, 129 বাইট

পাইকে, 14 বাইট

যান, 133 বাইট

ম্যাটল্যাব, 112 109 95 79 77 বাইট

এক্সপথ 3.0 (এবং এক্সকুয়েরি 3.0), 84 বাইট

রুবি, 46 বাইট

05 এ বি 1 ই (বিকল্প) 15 বাইট

আর, 120 115 111 বাইট

আর, 81 73 65 63 বাইট

হুশ , 10 বাইট

ব্যাখ্যা

ব্যাচ, 123 বাইট

05 এ বি 1 ই , 18 17 বাইট

Rexx, 74 72 বাইট

টিএসকিউএল, 129 বাইট

পাওয়ারশেল, 68 বাইট

ডায়ালগ এপিএল, 18 বাইট

সি, 60 বাইট

সি ++, 111 বাইট

পিএইচপি, 76 69 বাইট