একটি বর্ণমালা দলের টুপি আঁকুন

Question

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

            z
            yz
           xyz
           wxyz
          vwxyz
          uvwxyz
         tuvwxyz
         stuvwxyz
        rstuvwxyz
        qrstuvwxyz
       pqrstuvwxyz
       opqrstuvwxyz
      nopqrstuvwxyz
      mnopqrstuvwxyz
     lmnopqrstuvwxyz
     klmnopqrstuvwxyz
    jklmnopqrstuvwxyz
    ijklmnopqrstuvwxyz
   hijklmnopqrstuvwxyz
   ghijklmnopqrstuvwxyz
  fghijklmnopqrstuvwxyz
  efghijklmnopqrstuvwxyz
 defghijklmnopqrstuvwxyz
 cdefghijklmnopqrstuvwxyz
bcdefghijklmnopqrstuvwxyz
abcdefghijklmnopqrstuvwxyz

কেস কোন ব্যাপার না।

মনে রাখবেন, এটি কোড-গল্ফ , তাই সর্বনিম্ন সংখ্যক বাইট বিজয়ী কোড।

Comments

ডাউনভোটস কেন?

— অলিভার নি

আমার সন্দেহ হয় কিছু লোক বর্ণমালার ধাঁচের সমস্ত আসিসি-আর্ট কেসির চ্যালেঞ্জ দেখে ক্লান্ত হয়ে পড়েছে।

— xnor

আমরা কি এটি বড় হাতের মধ্যে করতে পারি?

— ডাউনগোট

গুরুতরভাবে যদিও, অন্য বর্ণমালা চ্যালেঞ্জ?

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

আমি এই বর্ণমালা চ্যালেঞ্জ উপভোগ করি। এই সহজেই ক্রিসমাস ট্রি হিসাবে পুনরায় ব্র্যান্ড করা যায়।

— পিট আর্দেন

Answer 1

চেদার, 50 45 42 37 বাইট

25|>0=>i->print" "*(i/2|0)+(65+i)@"90

সোজা, তবে চেড্ডারের কনসাইজ রেঞ্জিং সিনট্যাক্স ব্যবহার করে (সংখ্যাসূচক এবং বর্ণমালা উভয়)

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

ব্যাখ্যা

25 |> 0 =>    // Map range [0, 26) (i.e. [25, 0] reversed) over....
   i -> 
     print    // Prints in it's own line...
     " " * (i/2 |0) +     // Number of spaces is floor(n/2).
                          // `|0` for flooring is hack from JS
     (65 + i) @" 90       // Char code range is this

65এর জন্য Aএবং এর 90জন্য চর কোডA

Comments

Zহয় 90, না A।

— মেগো

Answer 2

05 এ বি 1 ই , 15 13 বাইট

A.svy12N;ï-ú,

এটি অনলাইন চেষ্টা করুন! (উপরে থেকে কিছুটা পৃথক হিসাবে úএখনও টিআইও তে নেই)

ব্যাখ্যা

1. বর্ণমালা পুশ করুন
2. বর্ণমালাটির প্রত্যয়গুলি গণনা করুন
3. 12-সূচক / 2 স্পেস প্রস্তুত করুন
4. ছাপা

Answer 3

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

থেকে বৈশিষ্ট্যসমূহ নিয়ে আসা Emigna এর উত্তর, -2 প্রতিস্থাপন জন্য বাইট -i-1সঙ্গে~i

for i in range(26):print' '*(12-i/2)+"abcdefghijklmnopqrstuvwxyz"[~i:]

Comments

আমি নিশ্চিত যে মানচিত্রের ব্যবহারের ফলে একটি ছোট বর্ণমালা পাওয়া যায়, তবে ছোট

— ধ্বংসাত্মক লেবু

আসলে আমি আর নিশ্চিত নই। আমি মনে করি এটি যেভাবেই এটির জন্য কার্যকর হবে না :( সোজ

— ধ্বংসাত্মক লেবু

Answer 4

আর, 67 66 59 বাইট

সম্পাদনা: @ আর্টারনবুলকে ধন্যবাদ জানিয়ে কয়েকটা বাইট সংরক্ষণ করা হয়েছে

for(i in 25:0)cat(rep(" ",i/2),letters[i:25+1],"\n",sep="")

repফাংশনে উত্তীর্ণ যে কোনও সংখ্যা স্বয়ংক্রিয়ভাবে নিকটতম পূর্ণসংখ্যার (যেমন rep("*",1.99) => "*") হিসাবে গোল হয়ে যায় এটি অনুসন্ধান করে যার অর্থ আসল ক্রমটি পাস করা হয়েছে floor(13-1:26/2):

12 12 11 11 10 10  9  9  8  8  7  7  6  6  5  5  4  4  3  3  2  2  1  1  0  0

Comments

এটি আমার ম্যাট্রিক্সের চেষ্টার চেয়ে ছোট। প্রতিস্থাপন 14...-1সঙ্গে 13?

— জেডিএল

@ জেডিএল হ্যাঁ অবশ্যই আরেকটি পদ্ধতির চেষ্টা করার অবশিষ্টাংশ

— বিলিওব

আপনি মাধ্যমে লুপ 25:0পরিবর্তে 1:26, আপনি পরিবর্তন করতে পারেন 13-i/2থেকে i/2, এবং প্রক্রিয়া সহজ (27-i):26করতে i:25+1, 6 বাইট সংরক্ষণ।

— rturnbull

Answer 5

পাইথ, 15 বাইট

j_m+*/d2\ >GdUG

এমন একটি প্রোগ্রাম যা ফলাফলটি STDOUT এ মুদ্রণ করে।

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

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

j_m+*/d2\ >GdUG  Program
             UG  Yield [1, 2, 3, 4, ..., 26]
  m              Map over the range with variable d:
          >Gd      Yield alphabet with first d-1 letters discarded
   +               Prepend
     /d2             d//2
    *   \            spaces
 _               Reverse
j                Join on newlines
                 Implicitly print

Comments

এর ;পরিবর্তে চেষ্টা করুন\

— ই

Answer 6

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

n=26;s=''
while n:n-=1;s=chr(97+n)+s;print n/2*' '+s

sমুদ্রণের জন্য স্ট্রিং সরবরাহ করে এবং শীর্ষস্থানীয় স্পেসগুলির সংখ্যা আপডেট করে n/2। একটি whileলুপ সমাপ্তি 0একটি execলুপকে (53 বাইট) প্রহারের চেয়ে বিরল সংখ্যাসূচক লুপ :

n=26;s=''
exec"n-=1;s=chr(97+n)+s;print n/2*' '+s;"*n

এছাড়াও একটি 53 বাইট বিকল্প:

s=''
exec"s=chr(122-len(s))+s;print s.center(26);"*26

Answer 7

জাভাস্ক্রিপ্ট (ES6), 85 75 69 68 বাইট

for(s=a='',x=36;--x>9;)s+=` `.repeat(x/2-5)+(a=x.toString(36)+a)+`
`

-1 বাইট @ l4m2 ধন্যবাদ ।

Comments

এটি কোনও ফাংশন বা প্রোগ্রামের চেয়ে স্নিপেট নয়?

— নীল

for(s=a='',x=36;--x>9;)s+=` `.repeat(x/2-5)+(a=x.toString(36)+a)+'#'1 বি সংক্ষিপ্ত

— l4m2

@ l4m2 উজ্জ্বল!

— darrylyeo

৩ base বেস ব্যবহার করে দুর্দান্ত ধারণা! +1

— টাইটাস

Answer 8

ব্রেন-ফ্লাক , 244 বাইট

((((((()()()()())){}{}){}){}()){})((((()()()){}){}()){}){(({}[()]<>)<({}<(<>({})<>)>){({}[()]<(({})[()])>)}({}({})<>[({})]<>(((()()()){}){}){}())((<>)<>{<({}[()])><>([{}]())<>}<>[{}]<>{}){({}[()]<((((()()()()){}){}){})>)}((()()()()()){})><>)}<>

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

---

এটি যেমন হয় তেমন পাঠযোগ্য হওয়া উচিত। আপনার যদি এটির প্রয়োজন হয় তবে আমার একটি সম্পূর্ণ ব্যাখ্যা আছে:

push 122 (z): ((((((()()()()())){}{}){}){}()){})
push 26:      ((((()()()){}){}()){})
loop 26 times (i = 25..0): {
 (
  i--, push to b stack:({}[()]<>)
  <
   put 122 from a stack under i: ({}<(<>({})<>)>)
   i times push letter-1: {({}[()]<(({})[()])>)}
   replace top 0 with 26-i: ({}({})<>[({})]<>(((()()()){}){}){}())
   devide by two: ((<>)<>{<({}[()])><>([{}]())<>}<>[{}]<>{})
   add spaces: {({}[()]<((((()()()()){}){}){})>)}
   push 10 (\n): ((()()()()()){})
  >
  flip stack back: <>
 push i--: ) 
}
flip to results stack: <>

Comments

This should be readable enough as is.আপনি ব্রেন-ফ্লাকের কথা বলছেন , তাই না?

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

Answer 9

জেলি , 15 13 বাইট

-২ বাইটস @ মাইলসকে ধন্যবাদ (একটি নীলাদিক শৃঙ্খলা তৈরি হয়েছিল যা আমার সন্দেহ হয়েছিল যে বিদ্যমান ছিল তবে গঠন হয়নি)

ØaJ’H⁶ẋżṫJ$ṚY

TryItOnline!

কিভাবে?

ØaJ’H⁶ẋżṫJ$ṚY - Main link
Øa            - alphabet yield -> ['a', 'b', 'c', ..., 'y', 'z']
  J           -    range(length)      -> [1, 2, 3, ..., 25, 26]
   ’          -    decrement          -> [0, 1, 2, ..., 24, 25]
    H         -    halve              -> [0,.5  1, ..., 12, 12.5]
     ⁶        -    literal [' ']
      ẋ       -    repeat list        -> [[], [], [' '], ..., 12x' ', 12x' ']
          $   - last two links as a monad
         J    -     range(length)     -> [1, 2, 3, ..., 25, 26]
        ṫ     -     tail (vectorises) -> [['a'-'z'], ['b'-'z'], ..., ['y','z'], ['z']]
       ż      - zip
              -> [[[],['a'-'z']], [[],['b'-'z']], ..., [12x' ',['y','z']], [12x' ',['z]]]
           Ṛ  - reverse whole array
            Y - join with line feeds (implicit print)

Comments

আমি নীলাদিক চেইন গঠনের একটি উপায় পেয়েছি বর্ণমালা দিয়ে শুরু করে ØaJ’H⁶ẋżṫJ$ṚYযা 2 বাইট সাশ্রয় করে

— মাইল

আপনি কি ব্যাখ্যাটি সঠিক বলে মনে করেন?

— জোনাথন অ্যালান

হ্যাঁ এটিকে কেবল একক যুক্তির বর্ণমালার সাথে একাত্মক শৃঙ্খলা হিসাবে ভাবুন

— মাইল

Answer 10

সি, 72 68 বাইট

m(i){for(char*k=&k[i=26];i;printf("%*c%s\n",--i/2+1,0,k))*--k=64+i;}

Answer 11

05AB1E , 5 বাইট

A.s.c

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

A.s.c
A     Push 'abcdefghijklmnopqrstuvwxyz'
 .s   Push suffixes starting from the shortest one
   .c Centralize focused on the left

Answer 12

টার্টল্ড , 70 68 বাইট

পিছনে স্থান নোট করুন

#abcdefghijklmnopqrstuvwxyz#' -{ -{ +.r_}' l[ l-]d,(*@!' r)(!@*)_}' 

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

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

#abcdefghijklmnopqrstuvwxyz#              Set string var to this value
                            ' -           write space on first grid cell, string pointer-=1
                               {                                    } While cell is space
                                 -                 decrement string pointer
                                  {     }    While cell is space
                                    +.       increment string pointer, write pointed char
                                      r      move right
                                       _     write non-space if pointed char is last char

                                         '[space]   write space on cell
                                           l        move left
                                            [ l-]   move left, pointer-- until cell's space
                                                 d, move down, write character var \
                                                                           (initially *)

                                                   (*     ) if cell is *
                                                     @!     set char var=!
                                                       ' r  write space over *, move right

                                                           (!    ) if cell is !
                                                             @*    set char var=*
                                                               '[space] write space over !

                                                                 _ (explanation below)
                                               write (*|!) if pointed char is last char

                                                                   '[space]    Write space

মানব-পঠনযোগ্য ব্যাখ্যা (?):

বর্ণমালা ধারণ করতে এটি স্ট্রিং ভেরি ব্যবহার করে। প্রতিটি পুনরাবৃত্তি, এটি সূচকটি এক-এক করে কমিয়ে দেয়, যতক্ষণ না এটি চারপাশে মোড়ানো হয় এবং শেষ লাইনে যাওয়ার পরে থামে না। বিকল্প ইন্ডেন্টগুলির জন্য, এটি চর ভ্যার ব্যবহার করে। প্রতিটি পুনরাবৃত্তি এটি চরটি পরীক্ষা করে এবং এটি ফ্লিপ করে। যদি এটি হয় * এটি ডানদিকের স্থানান্তরিত হয়, তাই প্রথম অক্ষরটি প্রান্তিক হয়, অন্যথায় নয়, তাই শেষ চরিত্রটি প্রান্তিক হয়।

Answer 13

পার্ল, 44 বাইট

এটি @ xnor এর উত্তরের একটি বন্দর ।

$n=26;say$"x($n/2),$@=chr(97+$n).$@while$n--

চালানোর প্রয়োজন -E(বা -M5.010):

perl -E '$n=26;say$"x($n/2),$@=chr(97+$n).$@while$n--';

Answer 14

পিএইচপি, 71 বাইট

for(;++$i<27;)echo str_pad(substr(join(range(a,z)),-$i),26," ",2)."\n";

Comments

(26-$i)/2→13-$i/2

— manatwork

আপনি শেষ কোলনটি সরিয়ে দিলে এটির কোনও ত্রুটি ঘটবে? এছাড়াও, উদাহরণস্বরূপ, কোনও অনলাইন ওয়েবসাইটের একটি লিঙ্ক সরবরাহ করলে ভাল হবে। Sandbox.onlinephpfunitions.com

— রেডক্লুভার

Answer 15

জাভা 7,128 127 বাইট

1 বাইট সংরক্ষণ করা হয়েছে। কেভিন কে ধন্যবাদ।

String c(int n,String s,char v,String d){String c="";for(int j=0;j++<(n-1)/2;c+=" ");return n>0?c(--n,s=v+s,--v,d+c+s+"\n"):d;}

ungolfed

  class A {

public static void main(String[] args) {
System.out.print(c(26, "", (char)122, ""));
}
static String c(int n, String s, char v, String d){

    String c = "";

    for (int j = 0; j++ < (n - 1)/2; c += " ");

    return n > 0 ? c(--n, s = v + s, --v, d + c + s + "\n" ) : d;
}
}

একটি ফাংশনে 122 পাস না করে

132 বাইট

String c(String s,int n,String d){String c="";int v=96,j=0;for(;j++<(n-1)/2;c+=" ");return n>0?c(s=(char)(v+n--)+s,n,d+c+s+"\n"):d;}

ungolfed

  class A{

public static void main(String[] args) {
System.out.print(c("",26,""));

}
static String c(String s, int n, String d) {
    String c = "";
    int v = 96,j=0;
    for (; j++ < (n - 1)/2; c += " ");
    return n > 0 ? c(s = ( char) (v + n--) + s, n, (d + c + s + "\n")) : d;
     }
  }

Comments

আপনি অপসারণ করতে পারেন =এ d+=c+s+"\n"। এছাড়াও, আপনি ইনডেন্টেশনের সাহায্যে আপনার অগল্ফড কোডটি কিছুটা ফর্ম্যাট করতে চাইতে পারেন। আমি লক্ষ্য করেছি যে আপনার অন্যান্য উত্তরগুলির সাথেও। :)

— কেভিন ক্রুইজসেন

ওহো! আমি আবার এই ভুল করেছি, লজ্জা আমার। ...... ঠিক আছে @ কেভিন ক্রুজসেন আমি এতে আছি।

— Numberknot

আপনি s=v+sপুনরাবৃত্তি সঙ্গে প্রতিস্থাপন করতে পারবেন না s+=v?

— রোমান গ্রাফ

না..কারণ অক্ষরের প্যাটার্নটি পিছনে রয়েছে।

— নোট

Answer 16

রুবি, 64 বাইট

(0..26).each{|x|puts' '*(12-x/2)+('a'..'z').to_a[~x..-1].join()}

Comments

কয়েকটি মন্তব্য: আপনার পরিবর্তে join কল eachকরার পরে বন্ধনীগুলি লাগানোর দরকার নেই map, যেহেতু আমরা কী ফিরিয়ে দিচ্ছি সে বিষয়ে আমাদের কোন চিন্তা নেই আপনি lastএকটি পরিসরে কল করতে পারেন

— ল ডব্লু

পরিবর্তে (0..26).map, চেষ্টা করুন 27.times; পরিবর্তে ('a'..'z').to_a, [*?a..?z]; এবং পরিবর্তে .join, *""।

— জর্ডান

Answer 17

জাপট , 16 বাইট

;C¬£SpY/2 +CsYÃw ·

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

ব্যাখ্যা:

;C¬£SpY/2 +CsYÃw ·
;C                  // Alphabet shortcut
  ¬                 // Split into an array of chars
   £          Ã     // Map each item X and index Y by:
    SpY/2           //  " " repeated floor(Y/2) times
          +CsY      //  + alphabet.slice(Y)
               w    // Reverse the array of lines
                 ·  // Join with newlines

Answer 18

রেক্সএক্স, 52 বাইট

do i=1 to 26
  say centre(right(xrange(a,z),i),26)
  end

আউটপুট:

            Z             
            YZ            
           XYZ            
           WXYZ           
          VWXYZ           
          UVWXYZ          
         TUVWXYZ          
         STUVWXYZ         
        RSTUVWXYZ         
        QRSTUVWXYZ        
       PQRSTUVWXYZ        
       OPQRSTUVWXYZ       
      NOPQRSTUVWXYZ       
      MNOPQRSTUVWXYZ      
     LMNOPQRSTUVWXYZ      
     KLMNOPQRSTUVWXYZ     
    JKLMNOPQRSTUVWXYZ     
    IJKLMNOPQRSTUVWXYZ    
   HIJKLMNOPQRSTUVWXYZ    
   GHIJKLMNOPQRSTUVWXYZ   
  FGHIJKLMNOPQRSTUVWXYZ   
  EFGHIJKLMNOPQRSTUVWXYZ  
 DEFGHIJKLMNOPQRSTUVWXYZ  
 CDEFGHIJKLMNOPQRSTUVWXYZ 
BCDEFGHIJKLMNOPQRSTUVWXYZ 
ABCDEFGHIJKLMNOPQRSTUVWXYZ

Answer 19

Vim, 25 কীস্ট্রোক

:h<_␍jjYZZPqqPxYPr Yq12@q

যেখানে ␍ হ'ল এন্টার কীটি কখনও কখনও এটি হিসাবে চিহ্নিত হয় <cr>।

ব্যাখ্যা

:h<_␍jjYZZ                 " get a-z
          P                " initialize by pasting
           qq              " start record macro @q
             Px            " paste and remove the 1st char
               YPr␣        " yank and paste and replace 1st char with space
                   Y       " yank the whole line again
                    q      " end recording
                     12@q  " call macro 12 @q times

আমি যদিও ভিএম তে নতুন - আমি নভেম্বর মাসে শুরু করেছিলাম। Pম্যাক্রোর মধ্যে একটির সাথে আরম্ভ করার উপায় আছে কিনা তা ভাবছেন ।

গল্ফযুক্ত ভিএম সিকোয়েন্সটি পরীক্ষা করার "সঠিক" উপায় কী? আমি পরীক্ষা দিয়েছি \vi -u /dev/null। তবে একটি ভিএম এমনকি এমনকি :h<_␍কাজ করে না। এছাড়াও খুব নিশ্চিত নয় যে আমার ভিএম প্রথম স্থানহীন চরিত্রহাহে কেন চলে যাবে।

পিএস আমি ওএস এক্স ব্যবহার করতে যাওয়ার আগে, আমি দুর্দান্ত সরঞ্জাম দিয়ে হেক্সাগনিতে গল্ফ দিয়েছিলাম ... এখন ওএস একাদশে ওয়াইন না করে এবং ব্যাখ্যা এবং ডিবাগিংয়ের জন্য দুর্দান্ত সরঞ্জামগুলি চালাচ্ছে না। তাই ভাইএম দিয়ে আমার যাত্রা শুরু!

Answer 20

সি # (.নেট কোর) , 112 বাইট

()=>string.Join("\n",new int[26].Select((_,i)=>"".PadLeft(12-i/2)+"abcdefghijklmnopqrstuvwxyz".Substring(25-i)))

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

()=>string.Join("\n", // OP doesnt want to output a sequence of string...
    new int[26].Select((_,i)=> // yield range from 0 to 25
        "".PadLeft(12-i/2)+ // add spaces to center
            "abcdefghijklmnopqrstuvwxyz".Substring(25-i)))  // remove letters

Answer 21

Tcl , 92 বাইট

set a {}
time {set a [format %c [expr 123-[incr i]]]$a;puts [format %[expr 13+$i/2]s $a]} 26

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

tcl, 94

set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr 74-$i/2]s $a]} 26

ডেমো

প্রক্রিয়াটির মাঝামাঝি সময়ে, আমি দুর্ঘটনাক্রমে টুপিটির ইটালিক সংস্করণ পেয়েছিলাম:

tcl, 94

set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]} 26

ডেমো

---

tcl, 101

set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr ($i-48)/2]s $a]}

ডেমো

প্রক্রিয়াটির মাঝামাঝি সময়ে, আমি দুর্ঘটনাক্রমে টুপিটির ইটালিক সংস্করণ পেয়েছিলাম:

tcl, 99

set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]}

ডেমো

Comments

92?

— ASCII- কেবল

@ এএসসিআইআই -কেই ধন্যবাদ!

— সার্জিওল

Answer 22

কমন লিস্প, এসবিসিএল, 83 82 বাইট

(dotimes(i 27)(format t"~26:@<~a~>
"(subseq"ABCDEFGHIJKLMNOPQRSTUVWXYZ"(- 26 i))))

ব্যাখ্যা

(dotimes(i 27) ; loop from i=0 to i=26
(format t"~26:@<~a~>
"(subseq"ABCDEFGHIJKLMNOPQRSTUVWXYZ"(- 26 i))))
;print out part of alphabet starting from character number 26-i (counting from zero)
;using justification (~26:@<~a~>) to center with weight 26 characters

-1 কেবলমাত্র <enter>পরিবর্তে ব্যবহারের জন্য ASCII দ্বারা বর্ধিত ব্যবহার করে~%

Comments

82

— ASCII-

Answer 23

টি-এসকিউএল, 107 বাইট

DECLARE @t VARCHAR(99)=SPACE(13),@ INT=27a:SET @t=STUFF(@t,@/2,@%2,CHAR(@+95))PRINT @t
SET @-=1IF @>1GOTO a

এসকিউএল ফেকশন ব্যবহার করে সঠিক অক্ষরে সঠিক অক্ষরে ক্র্যামিং করে প্রতিটি লাইনের স্ট্রিংটি পরিবর্তন করে STUFF()। বিন্যাসকৃত:

DECLARE @t VARCHAR(99)=SPACE(13), @ INT=27
a:
    SET @t=STUFF(@t,@/2,@%2,CHAR(@+95))
    PRINT @t
    SET @-=1
IF @>1 GOTO a

@/2চিঠিটি সন্নিবেশ করার জন্য অবস্থান নির্ধারণের জন্য পূর্ণসংখ্যা বিভাগ (কোনও অবশিষ্ট নেই) ব্যবহার করে। @%2হয় MODULOফাংশন, এবং (চিঠি সন্নিবেশ) (একটি স্থান ঊর্ধ্বলিপি) 0 মধ্যে ফ্লিপ এবং 1।

আপনি যদি ক্যাপিটাল অক্ষরগুলি পছন্দ করেন তবে CHAR(@+63)পরিবর্তে ব্যবহার করুন (আমাদের বাইট সংখ্যাটি পরিবর্তন করে না)।

Answer 24

পার্ল 5 , 40 38 বাইট

-২ বাইটস @ ডোম হেস্টিংসকে ধন্যবাদ

say$"x(13+--$x/2),@a[$x..-1]for@a=a..z

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

Comments

-2 এর জন্য কিছুটা ভিন্ন প্রকরণ নিয়ে এসেছিল: অনলাইনে চেষ্টা করে দেখুন!

— ডম হেস্টিংস

Answer 25

স্ট্যাক্স , 7 বাইট

ô2òΘé8└

এটি চালান এবং এটি ডিবাগ করুন

Answer 26

হাস্কেল (ল্যাম্বডাবোট), 73 বাইট

unlines[([1..div(26-length x)2]>>" ")++x|x<-reverse.init$tails['a'..'z']]

একই দৈর্ঘ্য:

do x<-reverse.init$tails['a'..'z'];([1..div(26-length x)2]>>" ")++x++"\n"

আমি প্রতিটি চ্যালেঞ্জের সামনে সামনের সম্ভাব্য বিপরীতটি ব্যবহার করি init.tailsবা করি tail.inits; আমি আশা করি তারা ইতিমধ্যে এটি প্রিলিউডে যুক্ত করে।

Answer 27

পাইথন 2, 66 64 বাইট

i=91;exec'i-=1;print`map(chr,range(i,91))`[2::5].center(26);'*26

Answer 28

গ্রোভি, 53 বাইট

('z'..'a').each{println((it..'z').join().center(26))}

আউটপুট:

            z             
            yz            
           xyz            
           wxyz           
          vwxyz           
          uvwxyz          
         tuvwxyz          
         stuvwxyz         
        rstuvwxyz         
        qrstuvwxyz        
       pqrstuvwxyz        
       opqrstuvwxyz       
      nopqrstuvwxyz       
      mnopqrstuvwxyz      
     lmnopqrstuvwxyz      
     klmnopqrstuvwxyz     
    jklmnopqrstuvwxyz     
    ijklmnopqrstuvwxyz    
   hijklmnopqrstuvwxyz    
   ghijklmnopqrstuvwxyz   
  fghijklmnopqrstuvwxyz   
  efghijklmnopqrstuvwxyz  
 defghijklmnopqrstuvwxyz  
 cdefghijklmnopqrstuvwxyz 
bcdefghijklmnopqrstuvwxyz 
abcdefghijklmnopqrstuvwxyz

Answer 29

কিউবিআইসি , 57 বাইট

[25,0,-1|Y=Z[1,a/2|Y=Y+@ |]X=Z[a,25|X=X+$CHR$(65+|c)]?Y+X

এটি একটি QBIC 'লুপের জন্য আশ্চর্যজনকভাবে ভাল কাজ করে। ব্যাখ্যা (পূর্ববর্তী সংস্করণ - একই নীতি প্রযোজ্য):

[26,1,-1|          Loops from 26 to 1, decrementing 'a'
                   'a' is used to determine the number of spaces per line and the last letter we want to print
Y=Z                Z is always an empty string in this program, 
                   Y will hold the spaces we need to center this line
[1,a/2|Y=Y+@ |]    Add a space to Y equal to half the value of 'a', giving us a center alignment
X=Z                X holds the characters we need on this line, reset it
[a,26|             FOR c = a to 26 --> loop over the last part of the alphabet
X=X+$CHR$(64+|c)]  Convert c+64 to ASCII and append
?Y+X               Print the spaces and the letters

<outer FOR loop is closed by QBIC>

আউটপুট:

            Z
            YZ
           XYZ
           WXYZ
          VWXYZ
          UVWXYZ
         TUVWXYZ
         STUVWXYZ
        RSTUVWXYZ
        QRSTUVWXYZ
       PQRSTUVWXYZ
       OPQRSTUVWXYZ
      NOPQRSTUVWXYZ
      MNOPQRSTUVWXYZ
     LMNOPQRSTUVWXYZ
     KLMNOPQRSTUVWXYZ
    JKLMNOPQRSTUVWXYZ
    IJKLMNOPQRSTUVWXYZ
   HIJKLMNOPQRSTUVWXYZ
   GHIJKLMNOPQRSTUVWXYZ
  FGHIJKLMNOPQRSTUVWXYZ
  EFGHIJKLMNOPQRSTUVWXYZ
 DEFGHIJKLMNOPQRSTUVWXYZ
 CDEFGHIJKLMNOPQRSTUVWXYZ
BCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ

Comments

অপটির সাথে মেলে না।

— ম্যাজিক অক্টোপাস উরন

এখন এটি করেন কারসোকম্পুটিং।

— স্টেইনবার্গ

Answer 30

র‌্যাকেট 137 বাইট

(for((n(range 122 96 -1)))(for((i(floor(/(- n 97)2))))(display #\space))
(for((i(range n 123)))(display(integer->char i)))(displayln ""))

Ungolfed:

(define (f)
  (for ((n (range 122 96 -1)))
       (for ((i (floor(/(- n 97)2))))
         (display #\space))
       (for ((i (range n 123)))
         (display (integer->char i)))
    (displayln "")))

পরীক্ষামূলক:

(f)

আউটপুট:

            z
            yz
           xyz
           wxyz
          vwxyz
          uvwxyz
         tuvwxyz
         stuvwxyz
        rstuvwxyz
        qrstuvwxyz
       pqrstuvwxyz
       opqrstuvwxyz
      nopqrstuvwxyz
      mnopqrstuvwxyz
     lmnopqrstuvwxyz
     klmnopqrstuvwxyz
    jklmnopqrstuvwxyz
    ijklmnopqrstuvwxyz
   hijklmnopqrstuvwxyz
   ghijklmnopqrstuvwxyz
  fghijklmnopqrstuvwxyz
  efghijklmnopqrstuvwxyz
 defghijklmnopqrstuvwxyz
 cdefghijklmnopqrstuvwxyz
bcdefghijklmnopqrstuvwxyz
abcdefghijklmnopqrstuvwxyz