Bu zorluğa bir çözüm yolundaki bir hatadan esinlenerek , zorluğunuz bu kesin metni üretmek:

                         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

• İlk satırda 25 boşluk, daha sonra alfabenin 26. harfinden ( ZYXWVUTSRQPONMLKJIHGFEDCBA) başlayarak geriye doğru , sonra da yeni bir satır olacaktır.
• İkinci satırda 24 boşluk, daha sonra alfabenin 25. harfinden ( YXWVUTSRQPONMLKJIHGFEDCBA) başlayarak geriye doğru , sonra da yeni bir satır olacaktır.
• ...
• Son (26) satırda boşluk kalmaz, daha sonra alfabenin ilk harfinden ( A) itibaren geriye doğru , sonra da yeni bir satır olur.

Ek kurallar:

• Programınız izin verilen çıktı yöntemlerini kullanabilir.
• Bir sondaki yeni satır ve / veya bir adet yeni satır sonuna izin verilir.
• Harfleri içeren satırlar arasında yeni bir satır olmalı, artık yok.
• Harflerin tümü büyük harf olmalıdır.

Kod golf ile olduğu gibi , en kısa teslim kazandı. İyi şanslar!

Liderler Sıralaması:

var QUESTION_ID=141725,OVERRIDE_USER=61563;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

05AB1E , 7 bayt

Kod:

₂žp.s1Λ

05AB1E kodlamasını kullanır . Çevrimiçi deneyin!

açıklama

 ž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

R , 67 55 bayt

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

Çevrimiçi deneyin!

Python 2 , 57 bayt

i=26
while i:i-=1;print' '*i+bytearray(range(65+i,64,-1))

Çevrimiçi deneyin!

V , 13 , 11 bayt

¬ZAòY>HGpxl

Çevrimiçi deneyin!

HexDump:

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

Telefonumdan yazılan: P.

¬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

PowerShell , 42 bayt

25..0|%{' '*$_+-join[char[]]((65+$_)..65)}

Çevrimiçi deneyin!

Açıklama:

25..0|%{                                 } # Loop from 25 to 0
                             (65+$_)..65   # Construct a range of the specific ASCII codes
                    [char[]](           )  # Cast that as a character array
               -join                       # that has been joined together into a string
        ' '*$_+                            # Prepended with the correct amount of spaces

Bash + GNU sed, 60

printf %s {Z..A}|sed 'h
s/./ /g
G
s/ \n//
:x
p
s/ \S//
tx
d'

Çevrimiçi deneyin .

/// , 105 97 bayt

/:/\\\\*//#/: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//\\*/\/\/_____#
\/ //_/     //*#

Çevrimiçi deneyin!

açıklama

/// sadece bir komut bilir /<pattern>/<substitution>/<text>, <pattern>içindeki tüm olayları <text>ile değiştirir <substitution>. Ek \olarak karakterlerden kaçmak için kullanılabilir.

Basitlik için kısaltılmış kod:

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

İlk komut sonraki kodda ile yer /:/\\\\*/değiştirir . Bu verir::\\*

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

Sonra /#/\\*E\\*D\\*C\\*B\\*A/yerini #ile \*E\*D\*C\*B\*A:

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

Sonra /\\*/\/\/__\*E\*D\*C\*B\*A<newline>\/ /yerini \*ile //__*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

Uyarı: \*Değişim için kullanmak zorunda kaldım . Yana *da ikame parçası sadece yerine, eğer sonsuz bir döngü oluşturmak olacaktır *.

Sonra komut boşluklarla /_/ /değiştirilir _ve /*//tümünü siler *:

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

Bir sonraki komut hiçbir şeyin /#//yerine #geçmez. Kodda olmadığından hiçbir #şey yapmaz. Bu sadece //kodun başlangıcındaki iki yönlendirmeyi kaldırmak için burada . Bu yapraklar

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

Sonra komut / E//kaldırılır <space>E, bu koddan çıkar.

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

Benzer / D//kaldırır <space>D:

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

/ C//:

    EDCBA
   DCBA
  CBA
 BA
/ B// BA
/ 

/ B//:

    EDCBA
   DCBA
  CBA
 BA
A
/ 

Ve son komut eksik, bu yüzden hiçbir şey yapmıyor:

    EDCBA
   DCBA
  CBA
 BA
A

Haskell, 53 52 bayt

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

Çevrimiçi deneyin!

Nasıl çalışır

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

Python 2 , 66 64

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

Çevrimiçi deneyin!

JavaScript (ES6), 83 77 76 bayt

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

o.innerText = f()

<pre id=o>

Jöle , 12 bayt

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

Çevrimiçi deneyin!

Ø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

Miller sayesinde -3 bayt

brainfuck , 105 bayt

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

Çevrimiçi deneyin!

Küçültülmüş ve biçimlendirilmiş:

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

Okunabilir sürüm:

[
  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 <<<<.
>>>]

Octave , 53 49 46 45 bayt

@Sanchises sayesinde 1 bayt kaldırıldı

for k=25:-1:0,disp([blanks(k) 65+k:-1:65])end

Çevrimiçi deneyin!

Şiirsel , 601 bayt

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

Şiirsel, 2018 yılında bir sınıf projesi için yarattığım bir esolang ve sözcüklerin uzunluklarının beyin sapı komutlarına (ve +, -,> ve <komutlarının her biri 1 basamaklı argümanlara sahip) karşılık geldiği bir beyin fırtınası türevidir.

Yalnızca sözcük uzunluğunun komutları belirlediği gerçeği, teknik olarak tamamen sözcüklerden oluşmayan bir program yaratabileceğim anlamına geliyor (yani, X harfi gerektiği kadar, harflerin arasında boşluk bırakarak), ancak ilginç bir şey yapmak istedim. Gereksiz baytlar eklemeden serbest şiir şiiri.

Çevrimiçi denemek istiyorsanız (ilk etapta sınıf projesinin yarısıdır), çevrimiçi tercümanımı inceleyin !

05AB1E , 10 bayt

žpDvÐg<ú,¦

Çevrimiçi deneyin!

açıklamalar:

ž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

Perl 6 , 37 bayt

@Massa sayesinde 9 byte kurtarıldı.

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

Çevrimiçi deneyin!

Açıklama: 25...0 25 ile 0 arasında bir aralıktır (beklendiği gibi). Çok fazla alan ve ASCII kodları ( chrs) 65 + 'dan bu sayıya ( $_+65...65) sahip karakter dizgisi (= newline ile yazdırma) diyerek bu aralığın üzerinde duruyoruz .

Kömür , 19 11 bayt

-Sadece ASCII sayesinde -8 bayt.

Ｆ²⁶«Ｐ⮌…α⊕ι↗

Çevrimiçi deneyin! Bağlantı ayrıntılı versiyonudur.

Perl 5 , 36 bayt

İçin 35 bayt kodu + 1 -p.

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

Not : TIO boş girişi desteklemiyor , bu nedenle yeni bir satır sağlandı, bu durum fazladan bir yeni satıra yol açıyor, ancak boş girişli komut satırında çalışırken bu görüntülenmiyor.

Çevrimiçi deneyin!

Ruby , 54 52 bayt

25.downto 0{|n|puts' '*n+[*?A..?Z][0..n].reverse*''}

Çevrimiçi deneyin!

Cubix , 43 46 bayt

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

Çevrimiçi deneyin!

Cubified

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

Çalıştırılmasını izle

Bundan bir kaç tane daha tıraş etmeyi başardım, ama düşündüğümden biraz daha zordu. Bana 26 vermek için ilk tekliften sonra yerine bir karakter var.

• '<sub> taban numarası olarak 26'yı istifin üzerine itin
• :(! Bir sayaç olarak yinelenen taban, azaltma, gerçeği sınama
• utrue olduğunda $komutu atla ve sağa dön
  • So;u 32'yi itin, karakter olarak çıktı alın, pop 32 açın ve aşağı doğru döndürün
• $yanlış atlamak sonraki ukomutu
• ;:'@^ pop, baz sayısını kopyalayın, 64'ü istifin üzerine itin ve zorlu bir rotaya yönlendirin
• $\s/:\/u;$Bu, üst yüzdeki adımların sırasıdır. Sayacı 64 ile değiştirmek için aşağı kaynar. Buraya koyan yönlendirmeyi atlayarak biter.
• <+o;U eklemek için yönlendirme, çıktı karakteri, pop, sola dönüş
• (!azaltma, gerçeği sınama. True, u dönüşüne çarpan yoldan başlar ve yönlendirmeye geri döner.
• |(;No yanlış, yansıt, fazlalık testi, fazlalık azalma, pop, push 10 ve çıkış karakteri
• ;;(u!@Wtemel sayıya inin, azaltın, truthy testine sağa dönün, yanlış olursa durun, aksi takdirde başlangıçtaki kopya üzerine şeridi değiştirin. Durulayın ve tekrarlayın.

Python, 83 bayt

[print(' '*i+''.join([chr(64+i)for i in range(i+1,0,-1)]))for i in range(25,-1,-1)]

Codegolf'a ilk cevabım :)

sed 4.2.2 + Bash , 50 bayt

s/^/printf %25s;printf %s {Z..A}/e
:
p
s/ \S//
t
d

Çevrimiçi deneyin!

Bash + sed 4.2.2 , 51 bayt

printf %s {Z..A}|sed 'h
s/./ /g
G
:
s/ [^ ]//p
t
d'

@ DigitalTrauma'nın cevabı üzerine inşa .

Çevrimiçi deneyin!

Vim, 43 tuş vuruşlarını

:h<_<CR>jjYZZPVgUxjpqqy$-i <Esc>lpl"aDYPD"ap+q25@q

Lynn'in python betiği kullanılarak yapılan bu GIF'te çalışırken görebilirsiniz

JavaScript, 75 74 bayt

Rick Hitchcock sayesinde 1 bayt kurtarıldı

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

Çevrimiçi deneyin!

Perl 5 , 49 bayt

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

Çevrimiçi deneyin!

Pyke , 8 bayt

G_.<XFo}h-

Burada dene!

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

prepend n spaces to stringPyke’in yaptığı gibi bir yerleşimi varsa, bunu 6 baytta yapan doğru dili görebiliyorum.

PHP ( 63 58 55 bayt)

Bu muhtemelen benim en sevdiğim PHP garip köşesi, Perl'den miras aldığı bir köşe:

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

Bu, açıkça izin verildiği gibi sondaki yeni satırı çıkarır. Bu, bir dosyaya koymak için gereken php -raçıklığı kaydetmek için çalıştırılabilir <?php.

Açıklama: dizeyi içeren değişken bir zaman 'A'PHP'de artırılır, bu olur 'B've ardından 'C'vb kadar 'Z'olur 'AA'. 'A'Bu madcap cebirinde başlamadan önce bir rakam yoktur ve azalma operatörü bunu geri almaz, bu yüzden artımlı olarak ters çevrilmiş bir alfabeyi $z( NULLbir dize ile bittiği zaman boş dize gibi davrandığı varsayılanları kaydederiz) aynı $sve ile olur $q). Boşluklar biriktirilir $sve tüm dizge değişkende geriye doğru biriktirilir $q, bu da sonunda eko yapmamız gerektiği anlamına gelir.

Kıvırcık parantezlerimi fırlatıp attığım için ve Titus'a teşekkür ederim -r. Bunun gibi satır içi değerlendirme bayrakları için ceza almam gerekmediğini söyledi .

SOGL V0.12 , 10 8 bayt

Z±{Xf}⁰¼

Burada dene!

Ortak Lisp, 84 82 bayt

(dotimes(i 26)(format t"~v@{ ~}~a
"(- 25 i)(subseq"ZYXWVUTSRQPONMLKJIHGFEDCBA"i)))

Çevrimiçi deneyin!

Sadece @ Ascii sayesinde iki byte daha az!

Python 2 , 72 67 bayt

i=26
while-~i:print' '*i+''.join(map(chr,range(65,91)))[i::-1];i-=1

Çevrimiçi deneyin!