Tâche

Votre tâche consiste à imprimer ce texte exact:

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

Spécifications

• Vous pouvez le faire en minuscules au lieu de tout en majuscules.
• Les sauts de ligne à la fin du triangle sont autorisés.
• Les espaces de fin après chaque ligne sont autorisés.
• Vous devez imprimer sur STDOUT au lieu de générer un tableau de chaînes.

Notation

C'est du code-golf . Programme avec le plus petit nombre de victoires d'octets.

Vim, 29 octets

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

Où ↵représente la touche Retour, ♥la touche Échap et βla touche Retour arrière.

Python 2, 65 octets

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

Gelée , 10 octets

26RḤ’RØAṁY

Essayez-le en ligne!

Comment ça marche

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.

VBA Excel (80 octets, 1742 octets)

Excel, 1742 octets

Inspiré par la réponse créative de l'ugoren , j'ai réussi à trouver une formule Excel pour créer le motif comme indiqué dans l'OP.

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

Collez cette formule dans la cellule A1, puis faites-la glisser sur toute la plage A1: A26.

La longueur de la formule est de 67 octets mais vous devez la répliquer 26 fois, elle est donc égale à 67 * 26 = 1742 octets. Voici la sortie:

Excel VBA, 80 octets

Il est désormais possible d'intégrer Excel à VBA pour automatiser le processus et économiser de nombreux octets, car VBA est intégré à la plupart des applications Microsoft Office, y compris Excel. Écrivez et exécutez le code suivant dans la fenêtre Exécution (utilisez les touches de combinaison CTRL+ Gpour l'afficher dans Visual Basic Editor):

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

Le programme fonctionne en imprimant la formule Excel ci-dessus dans la plage A1: A26. Malheureusement, Excel et VBA n'ont pas d'alphabet intégré.

Haskell, 67 octets

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

Une récursivité simple sur la longueur ide la ligne. À chaque étape, les icaractères suivants sont extraits d'une répétition infinie de l'alphabet.

Mathematica, 90 octets

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

Fonction anonyme. Ne prend aucune entrée et renvoie une chaîne en sortie. Suggestions de golf bienvenues. Un exemple de ce qui Internal`PartitionRaggedfait:

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

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

C, 79 octets

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

Ma première réponse en C \ o /

Les suggestions de golf sont plus que bienvenues.

Brachylog , 37 octets

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

Essayez-le en ligne!

Explication

• Prédicat principal:

  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
  

• Prédicat 1: utilisé pour générer des chaînes variables de longueurs impaires.

  =            Assign a value to the Input
  :2%1,        That value must be odd
  .#@l?,       Output is a string of length Input
  

Pyth , 12 octets

jtc*G26*Rd26

Essayez-le en ligne!

JavaScript (ES6), 77 82 88

EcmaScript 6 requis juste pour enregistrer 1 octet en utilisant un littéral de chaîne de modèle pour la nouvelle ligne.

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

Moins golfé

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

Tester

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

Perl, 42 41 39 octets

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

Juste le code:

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

Une version plus courte évidente déclenche malheureusement un problème perl interne (utilisation de la valeur libérée dans l'itération):

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

JavaScript, 129 octets

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

Pyke, 14 octets

G26*WDoh<
Ko>D

Essayez-le ici!

Aller, 133 octets

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

MATLAB, 112109 95 79 77 octets

Cela fonctionnera également avec Octave , vous pouvez essayer en ligne ici .

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

Donc, après quelques changements majeurs, j'ai enregistré 14 32 octets supplémentaires . Celui-ci devient beaucoup plus semblable à la longueur que j'attendais de MATLAB. J'ai laissé l'ancienne version ci-dessous car elle est sensiblement différente.

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

Version originale:

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

Wow celui-là a fini par être plus long que je ne le pensais. Je vais voir si je ne peux pas en supprimer quelques octets.

Une version non golfée pour expliquer:

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

Remerciements

• 3 octets enregistrés - merci @LuisMendo

XPath 3.0 (et XQuery 3.0), 84 octets

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

Explication:

(1 to 26)!(65 to 90) est l'alphabet 26 fois

(0 to 25)!(subsequence(XX, start, len),10) en prend 26 sous-séquences, chacune suivie d'une nouvelle ligne

subsequence(X, .*.+1, 2*.+1) prend des sous-séquences successives avec position de départ et longueur: (1, 1), (2, 3), (5, 5), (10, 9) etc.

codepoints-to-string() transforme les points de code Unicode en caractères

Rubis, 46 octets

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

Voir sur ideone: http://ideone.com/3hGLB0

05AB1E (alternatif) 15 octets

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

Essayez-le en ligne!

Explication:

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.

R, 120 115 111 octets

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

Non golfé:

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

Fondamentalement, best le vecteur des nombres impairs entre 1et 51, donnant ainsi la longueur de chaque ligne. Évidemment, la sumfonction additionne les nombres de ce vecteur et donne les index de début et de fin.

-5 octets grâce à @plannapus!
-4 octets grâce à @plannapus!

R, 81 73 65 63 octets

Une forapproche en boucle simple . Répétez l'alphabet 26 fois et parcourez une plage d'index mobile calculée à l'aide de (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="")

Husk , 10 octets

Cİ1ṠṁK…"AZ

Essayez-le en ligne!

Explication

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

Lot, 123 octets

@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%%

05AB1E , 18 17 octets

26FA26×N>n£NnF¦},

Explication

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

Essayez-le en ligne!

Rexx, 74 72 octets

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

Non golfé:

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

TSQL, 129 octets

UTILISER MASTER au début du script est de s'assurer que la requête est exécutée dans la base de données master qui est par défaut pour de nombreux utilisateurs (sans compter les octets pour cela).

Golfé:

USE MASTER

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

Non golfé:

USE MASTER

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

Violon

Fiddle pour les anciennes versions utilisant le chemin xml

PowerShell, 68 octets

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

La section précédant le premier point-virgule produit une chaîne contenant 26 copies de l'alphabet majuscule. La section suivante injecte des sauts de ligne à l'index de chaque nombre carré (en travaillant en arrière donc je n'ai pas à tenir compte du décalage). Enfin, le $aà la fin pousse simplement cette variable de chaîne sur l'équivalent de PowerShell STDOUT.

Dyalog APL, 18 octets

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

C, 60 octets

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

C ++, 111 octets

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

Essayez d'abord l'un d'entre eux. Utilise un int "c" pour enregistrer la lettre à imprimer à tout moment. Une fois que "c" dépasse 90 ('Z'), il est réinitialisé à 65 ('A'). Imprime la pyramide à l'aide de boucles.

PHP, 76 69 octets

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

• Créez 26 alphabets (plus que suffisant) et contactez-les dans $ a
• boucle pour i <26
• afficher $ a sous-chaîne début i ^ 2, fin 2 * i + 1