Inspirado por um bug em uma solução para esse desafio , seu desafio é produzir este texto exato:

                         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

• A primeira linha terá 25 espaços, depois o alfabeto a partir da 26ª letra ( ZYXWVUTSRQPONMLKJIHGFEDCBA) e, em seguida, uma nova linha.
• A segunda linha terá 24 espaços, depois o alfabeto a partir da 25ª letra ( YXWVUTSRQPONMLKJIHGFEDCBA) e, em seguida, uma nova linha.
• ...
• A última (26ª) linha não terá espaços, depois o alfabeto a partir da 1ª letra ( A) e, em seguida, uma nova linha.

Regras adicionais:

• Seu programa pode usar qualquer método de saída permitido.
• Uma nova linha à direita e / ou uma nova linha à frente é permitida.
• Deve haver uma nova linha entre as linhas que contêm as letras, não mais.
• As letras devem estar todas em maiúsculas.

Assim como no código-golfe , a submissão mais curta vence. Boa sorte!

Entre os melhores:

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 bytes

Código:

₂žp.s1Λ

Usa a codificação 05AB1E . Experimente online!

Explicação

 ž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 bytes

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

Experimente online!

Python 2 , 57 bytes

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

Experimente online!

V , 13 , 11 bytes

¬ZAòY>HGpxl

Experimente online!

Hexdump:

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

Escrito do meu telefone: 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 bytes

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

Experimente online!

Explicação:

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'

Experimente online .

/// , 105 97 bytes

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

Experimente online!

Explicação

/// conhece apenas um comando, /<pattern>/<substitution>/<text>substitui todas as ocorrências de <pattern>in <text>por <substitution>. Além disso, \pode ser usado para escapar de caracteres.

Código reduzido para simplificar:

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

O primeiro comando /:/\\\\*/substitui :por \\*no código subseqüente. Isto dá:

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

Em seguida, /#/\\*E\\*D\\*C\\*B\\*A/substitui #por \*E\*D\*C\*B\*A:

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

Em seguida, /\\*/\/\/__\*E\*D\*C\*B\*A<newline>\/ /substitui \*por //__*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

Aviso: eu tive que usar \*para substituição. Como *também faz parte da substituição, geraria um loop infinito se eu apenas substituísse *.

Em seguida, o comando /_/ /substitui _por espaços e /*//exclui tudo *:

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

O próximo comando /#//substitui #por nada. Como não existe #no código, ele não faz nada. Aqui está apenas para remover os dois líderes //do início do código. Isso deixa

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

Em seguida, o comando é / E//removido <space>E, então isso deixará o código

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

/ D//Remoções semelhantes <space>D:

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

/ C//:

    EDCBA
   DCBA
  CBA
 BA
/ B// BA
/ 

/ B//:

    EDCBA
   DCBA
  CBA
 BA
A
/ 

E o último comando está incompleto, por isso não faz nada:

    EDCBA
   DCBA
  CBA
 BA
A

Haskell, 53 52 bytes

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

Experimente online!

Como funciona

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:]

Experimente online!

JavaScript (ES6), 83 77 76 bytes

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

o.innerText = f()

<pre id=o>

Gelatina , 12 bytes

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

Experimente online!

Ø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 bytes graças a milhas

brainfuck , 105 bytes

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

Experimente online!

Minificado e formatado:

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

Versão legível:

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

Oitava , 53 49 46 45 bytes

1 byte removido graças a @Sanchises

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

Experimente online!

Poético , 601 bytes

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

Poetic é um esolang que eu criei em 2018 para um projeto de classe e é um derivado de foda cerebral em que o comprimento das palavras corresponde aos comandos de foda cerebral (e os comandos +, -,> e <têm argumentos de 1 dígito).

O fato de que apenas o comprimento da palavra dita os comandos significa que eu tecnicamente poderia ter criado um programa inteiramente composto de não palavras (ou seja, a letra X quantas vezes for necessário, com espaços entre as palavras), mas eu queria fazer um interessante poema de verso livre, sem adicionar bytes desnecessários.

Se você quiser experimentá-lo on-line (que é metade do ponto do projeto da turma), confira meu intérprete on-line !

05AB1E , 10 bytes

žpDvÐg<ú,¦

Experimente online!

Explicações:

ž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 bytes

Economizou 9 bytes graças a @Massa.

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

Experimente online!

Explicação: 25...0 é um intervalo de 25 a 0 (conforme o esperado). Nós iteramos nesse intervalo, dizendo (= imprimindo com nova linha) que muitos espaços e a sequência de caracteres que possuem códigos ASCII ( chrs) de 65 + esse número ( $_+65...65).

Carvão , 19 11 bytes

-8 bytes graças ao ASCII-only.

Ｆ²⁶«Ｐ⮌…α⊕ι↗

Experimente online! Link é a versão detalhada.

Perl 5 , 36 bytes

Código de 35 bytes + 1 para -p.

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

Nota : O TIO não suporta entrada vazia ; portanto, uma nova linha é fornecida, isso resulta em uma nova linha externa, mas ao executar na linha de comandos com entrada vazia, isso não é exibido.

Experimente online!

Ruby , 54 52 bytes

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

Experimente online!

Cubix , 43 46 bytes

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

Experimente online!

Cubificado

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

Veja-o correr

Conseguiram barbear um pouco mais disso, mas foi um pouco mais difícil do que eu pensava. Existe um caractere substituto após a primeira citação para me dar 26.

• '<sub> empurre 26 na pilha como o número base
• :(! base duplicada como contador, decremento, teste de verdade
• uem true pule o $comando e gire para a direita
  • So;u pressione 32, produza como caractere, pop 32 e vire à direita para diminuir
• $no salto falso o próximo ucomando
• ;:'@^ pop, duplique o número base, coloque 64 na pilha e redirecione para uma rota torturante
• $\s/:\/u;$esta é a ordem das etapas na face superior. Tudo se resume a trocar o contador pelo 64. Termina com um pulo sobre o redirecionamento que o coloca aqui.
• <+o;U redirecione para adicionar, caractere de saída, pop, vire à esquerda
• (!decréscimo, teste a verdade. Se true inicia em um caminho que atinge a inversão de marcha e volta ao redirecionamento.
• |(;No em falso, refletir, teste redundante, decremento redundante, pop, push 10 e caractere de saída
• ;;(u!@Wdesça até o número base, diminua, vire à direita no teste da verdade, pare se falso, caso contrário mude a faixa para a duplicata no início. Enxague e repita.

Python, 83 bytes

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

Minha primeira resposta sobre codegolf :)

sed 4.2.2 + Bash , 50 bytes

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

Experimente online!

Bash + sed 4.2.2 , 51 bytes

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

Com base na resposta da @ DigitalTrauma .

Experimente online!

Vim, 43 pressionamentos de tecla

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

Você pode vê-lo em ação neste GIF criado usando o script python de Lynn

JavaScript, 75 74 bytes

1 byte economizado graças a Rick Hitchcock

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

Experimente online!

Perl 5 , 49 bytes

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

Experimente online!

Pyke , 8 bytes

G_.<XFo}h-

Experimente aqui!

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

Eu posso ver o idioma certo fazendo isso em 6 bytes, se eles tiverem um builtin prepend n spaces to stringe o que o Pyke faz

PHP ( 63 58 55 bytes)

Este é possivelmente o meu canto estranho favorito do PHP, um canto que ele herda do Perl:

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

Isso gera a nova linha à direita, conforme explicitamente permitido. Isso pode ser executado php -rpara salvar a abertura <?phpnecessária para colocar isso em um arquivo.

Explicação: quando uma variável que contém a cadeia 'A'é incrementado em PHP, torna-se 'B'e, em seguida, 'C'e assim por diante até que 'Z'se torna 'AA'. Não há um dígito antes 'A'para começar nessa álgebra louca, e o operador de decremento não o desfaz; portanto, salvamos o alfabeto invertido incrementalmente em $z(cujo padrão NULLé quando concatenado com uma string se comporta como a string vazia - o o mesmo acontece com $se $q). O espaço em branco é acumulado $se a cadeia inteira é acumulada para trás na variável, o $qque significa que precisamos repeti-la no final.

Agradeço a Titus por jogar golfe nos meus aparelhos encaracolados e me dizer que não preciso aplicar uma penalidade por bandeiras de avaliação em linha como -r.

SOGL V0.12 , 10 8 bytes

Z±{Xf}⁰¼

Experimente aqui!

Lisp comum, 84 82 bytes

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

Experimente online!

Dois bytes a menos graças ao @ Ascii-only!

Python 2 , 72 67 bytes

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

Experimente online!