Diamante alfabeto

31

Hai visto l'incredibile triangolo dell'alfabeto , la vendetta del triangolo dell'alfabeto e ora è tempo di vendicarsi della vendetta del triangolo alfabetico!

L'introduzione di ...

IL DIAMANTO ALFABETO!

Il tuo compito è quello di produrre questo testo esatto, le lettere minuscole / maiuscole non contano, sebbene i newline facciano:

bcdefghijklmnopqrstuvwxyzazyxwvutsrqponmlkjihgfedcb
cdefghijklmnopqrstuvwxyzabazyxwvutsrqponmlkjihgfedc
defghijklmnopqrstuvwxyzabcbazyxwvutsrqponmlkjihgfed
efghijklmnopqrstuvwxyzabcdcbazyxwvutsrqponmlkjihgfe
fghijklmnopqrstuvwxyzabcdedcbazyxwvutsrqponmlkjihgf
ghijklmnopqrstuvwxyzabcdefedcbazyxwvutsrqponmlkjihg
hijklmnopqrstuvwxyzabcdefgfedcbazyxwvutsrqponmlkjih
ijklmnopqrstuvwxyzabcdefghgfedcbazyxwvutsrqponmlkji
jklmnopqrstuvwxyzabcdefghihgfedcbazyxwvutsrqponmlkj
klmnopqrstuvwxyzabcdefghijihgfedcbazyxwvutsrqponmlk
lmnopqrstuvwxyzabcdefghijkjihgfedcbazyxwvutsrqponml
mnopqrstuvwxyzabcdefghijklkjihgfedcbazyxwvutsrqponm
nopqrstuvwxyzabcdefghijklmlkjihgfedcbazyxwvutsrqpon
opqrstuvwxyzabcdefghijklmnmlkjihgfedcbazyxwvutsrqpo
pqrstuvwxyzabcdefghijklmnonmlkjihgfedcbazyxwvutsrqp
qrstuvwxyzabcdefghijklmnoponmlkjihgfedcbazyxwvutsrq
rstuvwxyzabcdefghijklmnopqponmlkjihgfedcbazyxwvutsr
stuvwxyzabcdefghijklmnopqrqponmlkjihgfedcbazyxwvuts
tuvwxyzabcdefghijklmnopqrsrqponmlkjihgfedcbazyxwvut
uvwxyzabcdefghijklmnopqrstsrqponmlkjihgfedcbazyxwvu
vwxyzabcdefghijklmnopqrstutsrqponmlkjihgfedcbazyxwv
wxyzabcdefghijklmnopqrstuvutsrqponmlkjihgfedcbazyxw
xyzabcdefghijklmnopqrstuvwvutsrqponmlkjihgfedcbazyx
yzabcdefghijklmnopqrstuvwxwvutsrqponmlkjihgfedcbazy
zabcdefghijklmnopqrstuvwxyxwvutsrqponmlkjihgfedcbaz
abcdefghijklmnopqrstuvwxyzyxwvutsrqponmlkjihgfedcba
bcdefghijklmnopqrstuvwxyzazyxwvutsrqponmlkjihgfedcb
abcdefghijklmnopqrstuvwxyzyxwvutsrqponmlkjihgfedcba
zabcdefghijklmnopqrstuvwxyxwvutsrqponmlkjihgfedcbaz
yzabcdefghijklmnopqrstuvwxwvutsrqponmlkjihgfedcbazy
xyzabcdefghijklmnopqrstuvwvutsrqponmlkjihgfedcbazyx
wxyzabcdefghijklmnopqrstuvutsrqponmlkjihgfedcbazyxw
vwxyzabcdefghijklmnopqrstutsrqponmlkjihgfedcbazyxwv
uvwxyzabcdefghijklmnopqrstsrqponmlkjihgfedcbazyxwvu
tuvwxyzabcdefghijklmnopqrsrqponmlkjihgfedcbazyxwvut
stuvwxyzabcdefghijklmnopqrqponmlkjihgfedcbazyxwvuts
rstuvwxyzabcdefghijklmnopqponmlkjihgfedcbazyxwvutsr
qrstuvwxyzabcdefghijklmnoponmlkjihgfedcbazyxwvutsrq
pqrstuvwxyzabcdefghijklmnonmlkjihgfedcbazyxwvutsrqp
opqrstuvwxyzabcdefghijklmnmlkjihgfedcbazyxwvutsrqpo
nopqrstuvwxyzabcdefghijklmlkjihgfedcbazyxwvutsrqpon
mnopqrstuvwxyzabcdefghijklkjihgfedcbazyxwvutsrqponm
lmnopqrstuvwxyzabcdefghijkjihgfedcbazyxwvutsrqponml
klmnopqrstuvwxyzabcdefghijihgfedcbazyxwvutsrqponmlk
jklmnopqrstuvwxyzabcdefghihgfedcbazyxwvutsrqponmlkj
ijklmnopqrstuvwxyzabcdefghgfedcbazyxwvutsrqponmlkji
hijklmnopqrstuvwxyzabcdefgfedcbazyxwvutsrqponmlkjih
ghijklmnopqrstuvwxyzabcdefedcbazyxwvutsrqponmlkjihg
fghijklmnopqrstuvwxyzabcdedcbazyxwvutsrqponmlkjihgf
efghijklmnopqrstuvwxyzabcdcbazyxwvutsrqponmlkjihgfe
defghijklmnopqrstuvwxyzabcbazyxwvutsrqponmlkjihgfed
cdefghijklmnopqrstuvwxyzabazyxwvutsrqponmlkjihgfedc
bcdefghijklmnopqrstuvwxyzazyxwvutsrqponmlkjihgfedcb

Questo è il code-golf, il più basso numero di vittorie.

Regole:

  1. Le scappatoie standard non sono ammesse.
  2. a deve essere il centro dell'alfabeto diamante.
code-golf  string  kolmogorov-complexity  alphabet 
— Urna di polpo magico
fonte
11
Bella sfida. Personalmente penso che avrebbe più senso se gli angoli fossero ae il centro fossez
— ETHproductions
4
@ETHproductions Volevo renderlo più difficile per le lingue del golf che possono spingere l'alfabeto;). Anche se dubito che sia molto più difficile.
— Magic Octopus Urn,
@carusocomputing Una rotazione a sinistra lo farebbe. Ad esempio, .<lo farebbe in Pyth: .<S5 1si tradurrebbe in [2, 3, 4, 5, 1]. È lo stesso di .<[1 2 3 4 5)1. Non sono sicuro per il diamante, però.
— Erik the Outgolfer,
@EriktheGolfer Mi rendo conto che ci sono anche alcuni modi più intelligenti di farlo, come far crollare il turno in un attimo. Il diamante stesso dovrebbe richiedere lo spostamento, quindi ci sono modi per combinare lo spostamento iniziale anche nelle iterazioni effettive del diamante. È stata una parte intenzionale della sfida vedere chi ha ottimizzato il loro loop.
— Magic Octopus Urn,
@carusocomputing Intendevo bessere la lettera iniziale anziché a. Ovviamente anche il cambio è vitale.
— Erik the Outgolfer,

Risposte:

16

05AB1E , 13 12 byte

A27FÀDûˆ}¯û»

Provalo online!

Spiegazione

A              # push alphabet
 27F           # 27 times do
    À          # rotate alphabet left
     Dû        # create a palendromized copy
       ˆ       # add to global list
        }      # end loop
         ¯     # push global list
          û    # palendromize list
           »   # merge list on newline
               # implicit output
— Emigna
fonte
Probabilmente potrebbe salvare un byte usando i registri e la g per calcolare la lunghezza dell'alfabeto invece di duplicarlo.
— Magic Octopus Urn,
@carusocomputing: a meno che non stia sbagliando (sentitevi liberi di educarmi se è così) sono finito a 13 anni. Sono riuscito comunque a salvare un byte con l'elenco globale.
— Emigna,
A©gF®À©û})û»è quello che stavo pensando. Non stai mai sbagliando! Ho imparato tutto quello che so da guardarti eh. L'elenco globale è la stessa idea di base.
— Magic Octopus Urn,
1
Ora sei legato con me. : 3
— Oliver Ni,
1
@Oliver: Davvero! E con 2 approcci diversi nella stessa lingua :)
— Emigna,
27

Tasti Vim, 62 , 60

:se ri|h<_<cr>jjYZZPqqx$pYpq26@qdjyH:g/^/m0<cr>VP:%norm DPA<C-v><C-r>"<C-v><esc>x<cr>

Traendo ispirazione dalla fantastica risposta di Lynn per prendere l'idea di rubare l'alfabeto dai documenti di aiuto.

Puoi vederlo accadere in tempo reale mentre faccio fatica a ricordare la giusta sequenza di tasti!

inserisci qui la descrizione dell'immagine

Nota che questa gif è leggermente obsoleta perché produce un output errato e non sono ancora riuscito a registrarlo di nuovo.

— DJMcMayhem
fonte
Ho provato questo programma e ho ottenuto questo .
— LegionMammal978,
Per favore, registra di nuovo
— ASCII il
8

MATL , 14 byte

2Y226Zv27Zv!+)

Provalo online!

2Y2     % Push string 'abc...z'
26Zv    % Push symmetric range [1 2 ... 25 26 25 ... 2 1]
27Zv    % Push symmetric range [1 2 ... 25 26 27 26 25 ... 2 1]
!       % Transpose into a column
+       % Addition with broadcast. Gives a matrix of all pairwise additions:
        % [  2  3 ... 26 27 26 ...  3  2
             3  4 ... 27 28 27 ...  4  3
             ...
            27 28 ... 51 52 51 ... 28 27
            28 29 ... 52 53 52 ... 29 28
            27 28 ... 51 52 51 ... 28 27
             ...
             2  3 ... 26 27 26 ...  3  2 ]
)       % Index modularly into the string. Display implicitly
— Luis Mendo
fonte
6

PHP, 129 byte

for(;++$i<27;)$o.=($s=($f=substr)($r=join(range(a,z)),$i,26-$i)).$t.strrev($s.$t=$f($r,0,$i))."\n";echo$o.$f($o,0,51).strrev($o);
— Jörg Hülsermann
fonte
syntax error, unexpected '(' on line 1Quale versione di php?
— Tschallacka,
1
@Tschallacka PHP> 7 prima di poter scrivere for($f=substr;e $f($r=join(range(a,z)),$i,26-$i))invece di ($f=substr)($r=join(range(a,z)),$i,26-$i))evitare l'errore
— Jörg Hülsermann,
5

Haskell, 75 byte

g=(++)<*>reverse.init 
unlines$g$g.take 26.($cycle['a'..'z']).drop<$>[1..27]

Come funziona:

g=(++)<*>reverse.init    -- helper function that takes a list and appends the
                         -- reverse of the list with the first element dropped, e.g.
                         -- g "abc"  -> "abcba"

             <$>[1..27]  -- map over the list [1..27] the function that
           drop          -- drops that many elements from
    ($cycle['a'..'z'])   -- the infinite cycled alphabet and
   take 26               -- keeps the next 26 chars and
  g                      -- appends the reverse of itself

                         -- now we have the first 27 lines

 g                       -- do another g to append the lower half
unlines                  -- join with newlines
— Nome del modello
fonte
5

C, 76 byte

Funzione, da chiamare come di seguito. Stampa lettere maiuscole.

f(i){for(i=2756;--i;)putchar(i%52?90-(abs(i%52-26)+abs(i/52-26)+25)%26:10);}

//call like this
main(){f();}

Approccio semplice, aggiungi le distanze xey dal centro del quadrato, più un offset di 25 per ail centro, prendi modulo 26 e sottrai 90, il codice ASCII per Z. Dove i%52== 0 10viene stampata una nuova riga ASCII .

— Level River St
fonte
Il tuo offset di +25è lo stesso -1del modulo 26
— Karl Napf,
2
@KarlNapf C non implementa il modulo di numeri negativi come fanno i matematici. -1%26in C è -1, non 25. Il risultato è [a al centro invece del previsto A. Grazie comunque, avresti avuto ragione in una lingua come Ruby dove -1%26equivale a 25.
— Level River St
5

R, 71 byte

cat(letters[outer(c(1:27,26:1),c(0:25,24:0),"+")%%26+1],sep="",fill=53)

outercrea una matrice con gli indici delle lettere, letters[...]quindi crea un vettore con le lettere corrette dentro. cat(...,sep="",fill=53)Quindi lo stampa con la formattazione desiderata.

— JDL
fonte
1
Ben fatto! In qualche modo mi ero dimenticato filldell'opzione per cat. Ottimo modo per stampare matrici formattate.
— Billywob,
4

Gelatina , 13 byte

Øaṙ1ṭṙJ$ŒBŒḄY

Provalo online!

Spiegazione

Øaṙ1ṭṙJ$ŒBŒḄY  Main link. No arguments
Øa             Get the lowercase alphabet
  ṙ1           Rotate left by 1
    ṭ          Append to
       $       Monadic chain
      J          Indices of the alphabet [1, 2, ..., 26]
     ṙ           Rotate the alphabet by each
        ŒB     Bounce each rotation
          ŒḄ   Bounce the rotations
            Y  Join with newlines and print implicitly
— miglia
fonte
Øaṙ'JŒBŒḄYper 10 :)
— Jonathan Allan,
@JonathanAllan Grazie ma mi manca la parte centrale ed è per questo che ho dovuto fare quel ṙ1ṭpoco. Inoltre ØaṙJŒBŒḄYva bene, non è necessario il rapido in quanto vettorializza a destra a 0
— miglia
Totalmente mancato che il diamante non fosse perfetto! Oh bene ...
— Jonathan Allan,
4

Gelatina, 11 byte

27RØaṙŒḄŒBY

Spiegazione:

27R          range of 1...27
   Øa        the alphabet
     ṙ       rotate
      ŒḄŒB   bounce in both dimensions
          Y  join on newline
— applaudire
fonte
3

Python 2, 96 85 byte

Stampa della versione maiuscola (salva 1 byte).

R=range
for i in R(53):print''.join(chr(90-(abs(j-25)+abs(i-26)-1)%26)for j in R(51))

soluzione precedente con l'aiuto di muddyfish

s="abcdefghijklmnopqrstuvwxyz"*3
for i in range(53):j=min(i,52-i);print s[j+1:j+27]+s[j+25:j:-1]
— Karl Napf
fonte
3
non è solo digitando l'alfabeto meno caratteri?
— Blu,
3

Perl, 77 byte

Richiede -Esenza costi aggiuntivi.

Approccio abbastanza standard ... Non mi piacciono le chiamate invertite Penso che probabilmente ci sia un approccio più matematico a questo, vedrò come vado avanti!

@a=((a..z)x3)[$_..$_+26],$a=pop@a,(say@a,$a,reverse@a)for 1..26,reverse 1..25

uso

perl -E '@a=((a..z)x3)[$_..$_+26],$a=pop@a,(say@a,$a,reverse@a)for 1..26,reverse 1..25'
— Dom Hastings
fonte
È possibile salvare 1 byte rimuovendo lo spazio bianco dopo reversein reverse 1..25. Il forbisogno però.
— simbabque,
1
@simbabque forse è una cosa versione Perl, ma reverse1..25risulta 0..25. Sto correndo 5.18.2...
— Dom Hastings,
Hai ragione. Perché la parola nuda reverse1non è definita. Ha senso.
— simbabque,
3

JavaScript (ES6), 97 96 byte

Salvato 1 byte grazie a @ user81655

R=(n,s=25,c=(n%26+10).toString(36))=>s?c+R(n+1,s-1)+c:c
C=(n=1,r=R(n))=>n<27?r+`
${C(n+1)}
`+r:r

Due funzioni ricorsive; Cè quello che genera il testo corretto. Provalo qui:

Mostra snippet di codice

— ETHproductions
fonte
@ user81655 Mi dimentico sempre dell'interpolazione di stringhe quando sono coinvolte le
— newline
3

Python 3, 119 byte

Ho cercato di sfruttare i due assi di simmetria del diamante, ma questo è risultato più dettagliato della soluzione di Karl Napf .

A='abcdefghijklmnopqrstuvwxyz'
D=''
for k in range(1,27):
 D+=A[k:]+A[:k]
 D+=D[-2:-27:-1]+'\n'
print(D+D[:51]+D[::-1])
— ojdo
fonte
Una buona soluzione comunque! Puoi ridurre 3 byte scrivendo il ciclo for in 1 riga:for k in range(1,27):D+=A[k:]+A[:k];D+=D[-2:-27:-1]+'\n'
— FlipTack
abbreviato di nuovo: sostituire A con 'bcdefghijklmnopqrstuvwxyza'e sostituire range(1,27)con range(26). Il mio conteggio dei byte ora è 114
— FlipTack,
3

Haskell, 67 66 byte

unlines[[toEnum$mod(-abs j-abs i)26+97|j<-[-25..25]]|i<-[-26..26]]
— Damien
fonte
3

C, 252 byte

#define j q[y]
#define k(w,v) (v<'z')?(w=v+1):(w=97)
char q[28][52],d;main(){int y,x=1;y=1;j[0]=98;j[50]=98;for(;y<27;y++){for(;x<26;x++){(x<1)?(k(d,q[y-1][50])):(k(d,j[x-1]));j[50-x]=d;j[x]=d;}x=0;j[51]=0;puts(j);}strcpy(j,q[1]);for(;y;y--)puts(j);}

Versione formattata, macro-espansa, che si spera sia più comprensibile:

#define j q[y]
#define k(w,v) (v<'z')?(w=v+1):(w=97)
char q[28][52],d;
main(){
int y,x=1;
y=1;
q[1][0]=98;q[1][50]=98;
//98 takes one less byte to type than the equivalent 'b'
for(;y<27;y++){
    for(;x<26;x++){
        (x<1)?
            (k(d,q[y-1][50]))
            :(k(d,q[y][x-1]));
        q[y][50-x]=d;
        q[y][x]=d;
        }
    x=0;
    q[y][51]=0;
    puts(q[y]);
    }
strcpy(q[y],q[1]);
for(;y;y--)puts(q[y]);
}

So che non può vincere, ma mi sono divertito a provarci. Questo è il mio primo tentativo di codice golf.

— qzlpnfv
fonte
Benvenuti nel codice golf, è avvincente ahah;).
— Magic Octopus Urn,
3

Lotto, 255 byte

@echo off
set l=abcdefghijklmnopqrstuvwxyz
set r=yxwvutsrqponmlkjihgfedcba
for /l %%i in (1,1,27)do call:u
for /l %%i in (1,1,25)do call:l
:l
set r=%r:~2%%l:~-1%.
set l=%l:~-2%%l:~0,-2%
:u
set r=%l:~-1%%r:~0,-1%
set l=%l:~1%%l:~0,1%
echo %l%%r%

Spiegazione: La subroutine uruota l'alfabeto verso l'esterno di una lettera dal centro, che è il modello utilizzato nella metà superiore dell'output desiderato. La subroutine lruota l'alfabeto verso l'interno di due lettere. Quindi rientra nella usubroutine, ottenendo un'efficace rotazione verso l'interno di una sola lettera. Infine viene stampata l'ultima riga consentendo al codice di cadere nella lsubroutine.

— Neil
fonte
2

Pyke, 23 22 21 byte

GV'th+jj_t+j)K]0n'JOX

Provalo qui!

GV          )         - repeat 26 times, initially push alphabet.
  'th+                -  push tos[1:]+tos[0]
      j               -  j = tos
       j              -  push j
        _t+           -  push pop+reversed(pop)[1:]
           j          -  push j
             K        - pop
              ]0      - list(stack)
                n'JOX - print "\n".join(^),
                      - splat ^[:-1]
— Blu
fonte
2

C ++, 191 179 166 165 byte

-12 byte grazie a Kevin Cruijssen
-14 byte grazie a Zacharý

#include<iostream>
#define C j;)std::cout<<char(97+(d+j
int main(){for(int i=0,j,d=1;i<53;d+=i++/26?-1:1){for(j=0;26>C++)%26);for(j=24;0<=C--)%26);std::cout<<'\n';}}
— HatsuPointerKun
fonte
1
È possibile salvare 12 byte in questo modo:#include<iostream> int main(){for(int i=0,j,d=1;i<53;d+=i++/26?-1:1){for(j=0;j<26;)std::cout<<char((j+++d)%26+97);for(j=24;j>=0;)std::cout<<char((j--+d)%26+97);std::cout<<'\n';};}
— Kevin Cruijssen,
Dannazione Kevin, mi hai ucciso.
— Zacharý,
@KevinCruijssen Grazie per l'aiuto. A proposito, il tuo codice nel commento conteneva caratteri unicode non stampabili.
— HatsuPointerKun
@HatsuPointerKun Questo è qualcosa che accade automaticamente nei commenti, temo. È davvero piuttosto fastidioso quando provi a copiare e incollare il codice da esso .. :)
— Kevin Cruijssen,
2
Puoi abusare delle macro aggiungendo questo #define C j;)std::cout<<char(97+(d+jint main(){for(int i=0,j,d=1;i<53;d+=i++/26?-1:1){for(j=0;26>C++)%26);for(j=24;0<=C--)%26);std::cout<<'\n';};}
— :,
2

Carbone , 24 21 byte

-3 byte grazie solo a ASCII.

Ｆ²⁷«Ｐ✂×β³⊕ι⁺ι²⁷↓»‖Ｂ↓→

Provalo online! Il collegamento è alla versione dettagliata.

... Ho bisogno di lavorare sul mio carbone di legna. : P

— totallyhuman
fonte
— solo ASCII
Ora scopro che il quarto argomento Sliceè facoltativo. > _>
— totalmente umano il
Tutti gli argomenti (sì, tutti e quattro) sono facoltativi
— solo ASCII il
cosa fa Niladic Slice?
— totalmente umano il
2
Oh aspetta nvm, sì, è necessario il primo argomento: P
— ASCII il
1

JavaScript (ES6), 128 115 114 byte

a='abcdefghijklmnopqrstuvwxyz'
for(o=[i=27];i--;)o[26-i]=o[26+i]=(a=(p=a.slice(1))+a[0])+[...p].reverse().join``
o
— darrylyeo
fonte
1

Groovy - 103 97 byte

Mi rendo conto che ci sono modi più intelligenti per farlo ma ...

. {T = ( 'a' .. 'z') join (); q = {it [-2..0]}; c = []; 27.times {t = t [1 ..- 1] + t [0]; c << t + q (t)};. (c + q (c)) join ( '\ n')}

Quando viene eseguito, il risultato dello script è la risposta richiesta.

(Grazie al carusocomputing per il suggerimento su come salvare 7 byte).

Esempio aggiornato di conseguenza su:

Vedi http://ideone.com/MkQeoW

— GolfIsAGoodWalkSpoilt
fonte
Invece del ciclo for puoi usare 27.times(){}e salvare 7 byte;).
— Magic Octopus Urn,
1

Racchetta 293 byte

(let*((ls list->string)(rr reverse)(sr(λ(s)(ls(rr(string->list s))))))(let p((s(ls(for/list((i(range 97 123)))(integer->char i))))
(n 0)(ol'()))(let*((c(string-ref s 0))(ss(substring s 1 26))(s(string-append ss(string c)(sr ss))))(if(< n 53)(p s(+ 1 n)(cons s ol))
(append(rr ol)(cdr ol))))))

Ungolfed: 

(define (f)
  (define (sr s)           ; sub-fn reverse string;
    (list->string
     (reverse
      (string->list s))))
  (let loop ((s
              (list->string
               (for/list
                   ((i
                     (range 97 123)))
                 (integer->char i))))
             (n 0)
             (ol '()))
    (define c (string-ref s 0))
    (define ss (substring s 1 26))
    (set! s (string-append
             ss 
             (string c)
             (sr ss)))
    (if (< n 53)
        (loop s (add1 n) (cons s ol))
        (append (reverse ol) (rest ol)))))

test: 

(f)

Produzione: 

'("bcdefghijklmnopqrstuvwxyzazyxwvutsrqponmlkjihgfedcb"
  "cdefghijklmnopqrstuvwxyzabazyxwvutsrqponmlkjihgfedc"
  "defghijklmnopqrstuvwxyzabcbazyxwvutsrqponmlkjihgfed"
  "efghijklmnopqrstuvwxyzabcdcbazyxwvutsrqponmlkjihgfe"
  "fghijklmnopqrstuvwxyzabcdedcbazyxwvutsrqponmlkjihgf"
  "ghijklmnopqrstuvwxyzabcdefedcbazyxwvutsrqponmlkjihg"
  "hijklmnopqrstuvwxyzabcdefgfedcbazyxwvutsrqponmlkjih"
  "ijklmnopqrstuvwxyzabcdefghgfedcbazyxwvutsrqponmlkji"
  "jklmnopqrstuvwxyzabcdefghihgfedcbazyxwvutsrqponmlkj"
  "klmnopqrstuvwxyzabcdefghijihgfedcbazyxwvutsrqponmlk"
  "lmnopqrstuvwxyzabcdefghijkjihgfedcbazyxwvutsrqponml"
  "mnopqrstuvwxyzabcdefghijklkjihgfedcbazyxwvutsrqponm"
  "nopqrstuvwxyzabcdefghijklmlkjihgfedcbazyxwvutsrqpon"
  "opqrstuvwxyzabcdefghijklmnmlkjihgfedcbazyxwvutsrqpo"
  "pqrstuvwxyzabcdefghijklmnonmlkjihgfedcbazyxwvutsrqp"
  "qrstuvwxyzabcdefghijklmnoponmlkjihgfedcbazyxwvutsrq"
  "rstuvwxyzabcdefghijklmnopqponmlkjihgfedcbazyxwvutsr"
  "stuvwxyzabcdefghijklmnopqrqponmlkjihgfedcbazyxwvuts"
  "tuvwxyzabcdefghijklmnopqrsrqponmlkjihgfedcbazyxwvut"
  "uvwxyzabcdefghijklmnopqrstsrqponmlkjihgfedcbazyxwvu"
  "vwxyzabcdefghijklmnopqrstutsrqponmlkjihgfedcbazyxwv"
  "wxyzabcdefghijklmnopqrstuvutsrqponmlkjihgfedcbazyxw"
  "xyzabcdefghijklmnopqrstuvwvutsrqponmlkjihgfedcbazyx"
  "yzabcdefghijklmnopqrstuvwxwvutsrqponmlkjihgfedcbazy"
  "zabcdefghijklmnopqrstuvwxyxwvutsrqponmlkjihgfedcbaz"
  "abcdefghijklmnopqrstuvwxyzyxwvutsrqponmlkjihgfedcba"
  "bcdefghijklmnopqrstuvwxyzazyxwvutsrqponmlkjihgfedcb"
  "cdefghijklmnopqrstuvwxyzabazyxwvutsrqponmlkjihgfedc"
  "defghijklmnopqrstuvwxyzabcbazyxwvutsrqponmlkjihgfed"
  "efghijklmnopqrstuvwxyzabcdcbazyxwvutsrqponmlkjihgfe"
  "fghijklmnopqrstuvwxyzabcdedcbazyxwvutsrqponmlkjihgf"
  "ghijklmnopqrstuvwxyzabcdefedcbazyxwvutsrqponmlkjihg"
  "hijklmnopqrstuvwxyzabcdefgfedcbazyxwvutsrqponmlkjih"
  "ijklmnopqrstuvwxyzabcdefghgfedcbazyxwvutsrqponmlkji"
  "jklmnopqrstuvwxyzabcdefghihgfedcbazyxwvutsrqponmlkj"
  "klmnopqrstuvwxyzabcdefghijihgfedcbazyxwvutsrqponmlk"
  "lmnopqrstuvwxyzabcdefghijkjihgfedcbazyxwvutsrqponml"
  "mnopqrstuvwxyzabcdefghijklkjihgfedcbazyxwvutsrqponm"
  "nopqrstuvwxyzabcdefghijklmlkjihgfedcbazyxwvutsrqpon"
  "opqrstuvwxyzabcdefghijklmnmlkjihgfedcbazyxwvutsrqpo"
  "pqrstuvwxyzabcdefghijklmnonmlkjihgfedcbazyxwvutsrqp"
  "qrstuvwxyzabcdefghijklmnoponmlkjihgfedcbazyxwvutsrq"
  "rstuvwxyzabcdefghijklmnopqponmlkjihgfedcbazyxwvutsr"
  "stuvwxyzabcdefghijklmnopqrqponmlkjihgfedcbazyxwvuts"
  "tuvwxyzabcdefghijklmnopqrsrqponmlkjihgfedcbazyxwvut"
  "uvwxyzabcdefghijklmnopqrstsrqponmlkjihgfedcbazyxwvu"
  "vwxyzabcdefghijklmnopqrstutsrqponmlkjihgfedcbazyxwv"
  "wxyzabcdefghijklmnopqrstuvutsrqponmlkjihgfedcbazyxw"
  "xyzabcdefghijklmnopqrstuvwvutsrqponmlkjihgfedcbazyx"
  "yzabcdefghijklmnopqrstuvwxwvutsrqponmlkjihgfedcbazy"
  "zabcdefghijklmnopqrstuvwxyxwvutsrqponmlkjihgfedcbaz"
  "abcdefghijklmnopqrstuvwxyzyxwvutsrqponmlkjihgfedcba"
  "bcdefghijklmnopqrstuvwxyzazyxwvutsrqponmlkjihgfedcb"
  "abcdefghijklmnopqrstuvwxyzyxwvutsrqponmlkjihgfedcba"
  "zabcdefghijklmnopqrstuvwxyxwvutsrqponmlkjihgfedcbaz"
  "yzabcdefghijklmnopqrstuvwxwvutsrqponmlkjihgfedcbazy"
  "xyzabcdefghijklmnopqrstuvwvutsrqponmlkjihgfedcbazyx"
  "wxyzabcdefghijklmnopqrstuvutsrqponmlkjihgfedcbazyxw"
  "vwxyzabcdefghijklmnopqrstutsrqponmlkjihgfedcbazyxwv"
  "uvwxyzabcdefghijklmnopqrstsrqponmlkjihgfedcbazyxwvu"
  "tuvwxyzabcdefghijklmnopqrsrqponmlkjihgfedcbazyxwvut"
  "stuvwxyzabcdefghijklmnopqrqponmlkjihgfedcbazyxwvuts"
  "rstuvwxyzabcdefghijklmnopqponmlkjihgfedcbazyxwvutsr"
  "qrstuvwxyzabcdefghijklmnoponmlkjihgfedcbazyxwvutsrq"
  "pqrstuvwxyzabcdefghijklmnonmlkjihgfedcbazyxwvutsrqp"
  "opqrstuvwxyzabcdefghijklmnmlkjihgfedcbazyxwvutsrqpo"
  "nopqrstuvwxyzabcdefghijklmlkjihgfedcbazyxwvutsrqpon"
  "mnopqrstuvwxyzabcdefghijklkjihgfedcbazyxwvutsrqponm"
  "lmnopqrstuvwxyzabcdefghijkjihgfedcbazyxwvutsrqponml"
  "klmnopqrstuvwxyzabcdefghijihgfedcbazyxwvutsrqponmlk"
  "jklmnopqrstuvwxyzabcdefghihgfedcbazyxwvutsrqponmlkj"
  "ijklmnopqrstuvwxyzabcdefghgfedcbazyxwvutsrqponmlkji"
  "hijklmnopqrstuvwxyzabcdefgfedcbazyxwvutsrqponmlkjih"
  "ghijklmnopqrstuvwxyzabcdefedcbazyxwvutsrqponmlkjihg"
  "fghijklmnopqrstuvwxyzabcdedcbazyxwvutsrqponmlkjihgf"
  "efghijklmnopqrstuvwxyzabcdcbazyxwvutsrqponmlkjihgfe"
  "defghijklmnopqrstuvwxyzabcbazyxwvutsrqponmlkjihgfed"
  "cdefghijklmnopqrstuvwxyzabazyxwvutsrqponmlkjihgfedc"
  "bcdefghijklmnopqrstuvwxyzazyxwvutsrqponmlkjihgfedcb"
  "abcdefghijklmnopqrstuvwxyzyxwvutsrqponmlkjihgfedcba"
  "zabcdefghijklmnopqrstuvwxyxwvutsrqponmlkjihgfedcbaz"
  "yzabcdefghijklmnopqrstuvwxwvutsrqponmlkjihgfedcbazy"
  "xyzabcdefghijklmnopqrstuvwvutsrqponmlkjihgfedcbazyx"
  "wxyzabcdefghijklmnopqrstuvutsrqponmlkjihgfedcbazyxw"
  "vwxyzabcdefghijklmnopqrstutsrqponmlkjihgfedcbazyxwv"
  "uvwxyzabcdefghijklmnopqrstsrqponmlkjihgfedcbazyxwvu"
  "tuvwxyzabcdefghijklmnopqrsrqponmlkjihgfedcbazyxwvut"
  "stuvwxyzabcdefghijklmnopqrqponmlkjihgfedcbazyxwvuts"
  "rstuvwxyzabcdefghijklmnopqponmlkjihgfedcbazyxwvutsr"
  "qrstuvwxyzabcdefghijklmnoponmlkjihgfedcbazyxwvutsrq"
  "pqrstuvwxyzabcdefghijklmnonmlkjihgfedcbazyxwvutsrqp"
  "opqrstuvwxyzabcdefghijklmnmlkjihgfedcbazyxwvutsrqpo"
  "nopqrstuvwxyzabcdefghijklmlkjihgfedcbazyxwvutsrqpon"
  "mnopqrstuvwxyzabcdefghijklkjihgfedcbazyxwvutsrqponm"
  "lmnopqrstuvwxyzabcdefghijkjihgfedcbazyxwvutsrqponml"
  "klmnopqrstuvwxyzabcdefghijihgfedcbazyxwvutsrqponmlk"
  "jklmnopqrstuvwxyzabcdefghihgfedcbazyxwvutsrqponmlkj"
  "ijklmnopqrstuvwxyzabcdefghgfedcbazyxwvutsrqponmlkji"
  "hijklmnopqrstuvwxyzabcdefgfedcbazyxwvutsrqponmlkjih"
  "ghijklmnopqrstuvwxyzabcdefedcbazyxwvutsrqponmlkjihg"
  "fghijklmnopqrstuvwxyzabcdedcbazyxwvutsrqponmlkjihgf"
  "efghijklmnopqrstuvwxyzabcdcbazyxwvutsrqponmlkjihgfe"
  "defghijklmnopqrstuvwxyzabcbazyxwvutsrqponmlkjihgfed"
  "cdefghijklmnopqrstuvwxyzabazyxwvutsrqponmlkjihgfedc"
  "bcdefghijklmnopqrstuvwxyzazyxwvutsrqponmlkjihgfedcb")
— rnso
fonte
1

Pyth ,21 19 byte

j+PKm+PJ.<Gd_JS27_K

Provalo online!

Spiegazione:

j+PKm+PJ.<Gd_JS27_K   expects no input

j                     joins on new line
 +   +                joins two strings
  P   P               prints everything but the last element
   K                  initialize K and implicitly print
    m                 for...in loop, uses d as iterator variable
       J              initialize J and implicitly print
        .<            cyclically rotate
          G           initialized to the lowercase alphabet
           d          iterating variables of m
            _    _    reverse
             J        call J
              S27     indexed range of 27
                  K   call K
— chromaticiT
fonte
1

SOGL V0.12 , 10 byte

zl{«:}«¹╬,

Provalo qui!

Spiegazione:

z           push the lowercase alphabet
 l{  }      repeat length times
   «          put the 1st letter at the end
    :         duplicate
      «     put the 1st letter at the end (as the last thing called is duplicate)
       ¹    wrap the stack in an array
        ╬,  quad-palindromize with 1 X and Y overlap
— dzaima
fonte
1

Kotlin , 106 byte

{(0..52).map{i->(0..50).map{j->print((90-((Math.abs(j-25)+Math.abs(i-26)-1)+26)%26).toChar())}
println()}}

Abbellire

{
    (0..52).map {i->
        (0..50).map {j->
            print((90 - ((Math.abs(j - 25) + Math.abs(i - 26) - 1)+26) % 26).toChar())
        }
        println()
    }
}

Test

var v:()->Unit =
{(0..52).map{i->(0..50).map{j->print((90-((Math.abs(j-25)+Math.abs(i-26)-1)+26)%26).toChar())}
println()}}

fun main(args: Array<String>) {
    v()
}

TryItOnline

Porto di @Karl Napf risposta s'

— jrtapsell
fonte
1

VBA (Excel), 116 byte

Sub a()
For i=-26To 26
For j=-25To 25
b=b & Chr(65+(52-(Abs(j)+Abs(i))) Mod 26)
Next
Debug.Print b
b=""
Next
End Sub

Seguendo la logica di Sir Joffan. : D

— remoel
fonte
1

VBA, 109 105 78 byte

Funzione di finestra immediata VBE anonima che non accetta input e genera l'alfabeto diamante nella finestra immediata di VBE.

For i=-26To 26:For j=-25To 25:?Chr(65+(52-(Abs(j)+Abs(i)))Mod 26);:Next:?:Next
— Taylor Scott
fonte
1

MY-BASIC , 89 byte

Funzione anonima che non accetta input e output sulla console.

For i=-26 To 26
For j=-25 To 25
Print Chr(65+(52-(Abs(j)+Abs(i)))Mod 26)
Next
Print;
Next

Provalo online!

— Taylor Scott
fonte
Utilizzando il nostro sito, riconosci di aver letto e compreso le nostre Informativa sui cookie e Informativa sulla privacy.
Licensed under cc by-sa 3.0 with attribution required.