वर्णमाला का हीरा

Question

आपने अद्भुत वर्णमाला त्रिकोण , वर्णमाला त्रिकोण का बदला देखा है और अब यह वर्णमाला त्रिकोण का बदला लेने का समय है!

परिचय ...

ALPHABET हीरा!

आपका कार्य इस सटीक टेक्स्ट को आउटपुट करना है, लोअरकेस / अपरकेस कोई फर्क नहीं पड़ता, हालांकि नई लाइनें हैं:

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

यह कोड-गोल्फ है, सबसे कम बायटेकाउंट जीतता है।

नियम:

1. मानक खामियों को अस्वीकार कर दिया जाता है।
2. a वर्णमाला हीरे का केंद्र होना चाहिए।

Comments

अच्छी चुनौती है। मुझे व्यक्तिगत रूप से लगता है कि अगर कोने aऔर केंद्र z

— 20-20 में ETHproductions

@ETHproductions मैं इसे गोल्फ भाषाओं के लिए कठिन बनाना चाहता था जो वर्णमाला को धक्का दे सकती हैं;)। हालांकि मुझे संदेह है कि यह बहुत कठिन है।

— मैजिक ऑक्टोपस Urn

@ क्रूसोकोम्पुटिंग एक बाएं घूमता है। उदाहरण के लिए, .<इसे पायथ में करेंगे: .<S5 1परिणाम होगा [2, 3, 4, 5, 1]। यह वैसा ही है .<[1 2 3 4 5)1। हीरे के लिए निश्चित नहीं, यद्यपि।

— आउटगॉल्फ

@EriktheGolfer मुझे एहसास है कि ऐसा करने के लिए कुछ स्मार्ट तरीके भी हैं, जैसे कि डू-टाइम में शिफ्ट को गिराना। हीरे को खुद ही शिफ्टिंग की आवश्यकता होती है, इसलिए वास्तविक हीरे के पुनरावृत्तियों में भी प्रारंभिक बदलाव को संयोजित करने के तरीके हैं। यह चुनौती का एक जानबूझकर हिस्सा था कि कौन उनके पाश को अनुकूलित करता है।

— मैजिक ऑक्टोपस Urn

@ कोरसोकोम्पुटिंग का मतलब था कि मैं bइसके बजाय शुरुआती अक्षर था a। बेशक स्थानांतरण भी महत्वपूर्ण है।

— को आउटगोल्फर के एरिक

Answer 1

05AB1E , 13 12 बाइट्स

A27FÀDûˆ}¯û»

इसे ऑनलाइन आज़माएं!

व्याख्या

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

Comments

संभवत: रजिस्टरों और जी का उपयोग करके बाइट को बचा सकता है और इसे वर्णमाला की लंबाई को कम करने के बजाय वर्णमाला की लंबाई को शांत कर सकता है।

— मैजिक ऑक्टोपस Urn

@carusocomputing: जब तक मैं यह गलत कर रहा हूं (अगर मुझे ऐसा करना है तो मुझे शिक्षित करने के लिए स्वतंत्र महसूस करें) मैं 13 साल की उम्र में समाप्त हो गया। मैंने हालांकि वैश्विक सूची के साथ एक बाइट को बचाने का प्रबंधन किया।

— एमिग्ना

A©gF®À©û})û»मैं यही सोच रहा था। किसी भी तरह से आप इसे कभी गलत नहीं कर रहे हैं! मैंने सीखा है कि मैं तुम्हें हेह देखने से जानता हूं। वैश्विक सूची एक ही मूल विचार है।

— मैजिक ऑक्टोपस Urn

अब तुम मेरे साथ बंधे हो। : 3

— ओलिवर नी

@ ओलिवर: वास्तव में! और एक ही भाषा में 2 अलग-अलग तरीकों से :)

— एमिगा

Answer 2

विम, 62 , 60 कीस्ट्रोक्स

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

मदद डॉक्स से वर्णमाला चुराने का विचार लेने के लिए लिन के भयानक विम जवाब से प्रेरणा लेते हुए।

आप इसे वास्तविक समय में घटित होते देख सकते हैं क्योंकि मैं कीस्ट्रोक्स के सही क्रम को याद रखने के लिए संघर्ष करता हूँ!

ध्यान दें कि यह GIF थोड़ा पुराना है क्योंकि यह गलत आउटपुट देता है, और मैंने इसे अभी तक री-रिकॉर्डिंग करने के लिए इधर-उधर नहीं किया है।

Comments

मैंने इस कार्यक्रम की कोशिश की और यह मिला ।

— लीजियनममाल 978

Pls rerecord ty

— ASCII-only

Answer 3

MATL , 14 बाइट्स

2Y226Zv27Zv!+)

इसे ऑनलाइन आज़माएं!

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

Answer 4

PHP, 129 बाइट्स

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

Comments

syntax error, unexpected '(' on line 1कौन सा PHP संस्करण?

— शालचलाक

@Tschallacka पीएचपी> 7 इससे पहले कि आप लिख सकते हैं for($f=substr;और $f($r=join(range(a,z)),$i,26-$i))बजाय ($f=substr)($r=join(range(a,z)),$i,26-$i))त्रुटि से बचने के

— Jörg Hülsermann

Answer 5

हास्केल, 75 बाइट्स

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

यह काम किस प्रकार करता है:

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

Answer 6

सी, 76 बाइट्स

समारोह, नीचे के रूप में बुलाया जाना है। प्रिंट्स बड़े अक्षर।

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();}

सरल दृष्टिकोण, वर्ग के केंद्र से x और y की दूरी को जोड़ते हैं, और aबीच के लिए 25 की एक ऑफसेट , मोडुलो 26 लेते हैं और से 90, ASCII कोड के लिए सब्रेक्ट करते हैं Z। जहाँ i%52== 0 एक नईलाइन ASCII 10छपी है।

Comments

का आपका ऑफसेट +25रूप में ही है -1सापेक्ष 26 में

— कार्ल नप्फ़

@KarlNapf C नकारात्मक संख्याओं के तौर-तरीकों को लागू नहीं करता है जिस तरह से गणितज्ञ करते हैं। -1%26C में -1, 25 नहीं है। परिणाम [अपेक्षित के बजाय केंद्र में है A। धन्यवाद वैसे भी, आप सही भाषा में रूबी जैसे -1%2625 के बराबर होते हैं।

— लेवल रिवर सेंट

Answer 7

आर, 71 बाइट्स

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

outerअक्षरों के सूचकांकों के साथ एक मैट्रिक्स बनाता है, letters[...]फिर सही अक्षरों के साथ एक वेक्टर बनाता है cat(...,sep="",fill=53)फिर वांछित प्रारूपण के साथ इसे प्रिंट करता है।

Comments

अच्छा है! किसी तरह मैं fillविकल्प के बारे में भूल गया था cat। मुद्रण के महान तरीके से स्वरूपित मैट्रिसेस।

— बिलीवोब

Answer 8

जेली , 13 बाइट्स

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

इसे ऑनलाइन आज़माएं!

व्याख्या

Ø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

Comments

Øaṙ'JŒBŒḄY10 :) के लिए

— जोनाथन एलन

@JonathanAllan धन्यवाद, लेकिन यह बीच का हिस्सा याद नहीं कर रहा है, यही वजह है कि मुझे यह करना पड़ा ṙ1ṭ। यह ØaṙJŒBŒḄYभी ठीक है, आपको जल्दी की आवश्यकता नहीं है क्योंकि यह 0 से दाईं ओर वेक्टर होता है

— मील

पूरी तरह से याद किया कि हीरा सही नहीं था! ओह अच्छा ...

— जोनाथन एलन

Answer 9

जेली, 11 बाइट्स

27RØaṙŒḄŒBY

स्पष्टीकरण:

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

Answer 10

पायथन 2, 96 85 बाइट्स

अपरकेस संस्करण प्रिंट करना (1 बाइट बचाता है)।

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

मैलाफिश की मदद से पिछला समाधान

s="abcdefghijklmnopqrstuvwxyz"*3
for i in range(53):j=min(i,52-i);print s[j+1:j+27]+s[j+25:j:-1]

Comments

सिर्फ वर्णमाला कम वर्ण टाइप नहीं है?

— ब्लू

Answer 11

पर्ल, 77 बाइट्स

आवश्यक -Eकोई अतिरिक्त कीमत पर।

सुंदर मानक दृष्टिकोण ... मुझे लगता है कि मुझे लगता है कि इस पर अधिक गणित आधारित दृष्टिकोण होने की संभावना है, मुझे लगता है कि मैं कैसे प्राप्त करूँगा कॉल को पसंद नहीं करता!

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

प्रयोग

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

Comments

आप के बाद सफेद स्थान को निकाल द्वारा 1 बाइट बचा सकता है reverseमें reverse 1..25। forहालांकि इसकी जरूरत है।

— simbabque

@ सिंबेबेक शायद यह एक पर्ल संस्करण की बात है, लेकिन इसके reverse1..25परिणामस्वरूप 0..25। मैं चला रहा हूँ 5.18.2...

— डोम हेस्टिंग्स

आप सही हे। क्योंकि नंगे पैर reverse1अपरिभाषित है। समझ में आता है।

— हिम्मती

Answer 12

जावास्क्रिप्ट (ईएस 6), 97 96 बाइट्स

@ उपयोगकर्ता81655 पर 1 बाइट का धन्यवाद सहेजा गया

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

दो पुनरावर्ती कार्य; Cवह है जो सही पाठ को आउटपुट करता है। इसे यहाँ आज़माएँ:

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

console.log(C())

Comments

@ user81655 मैं हमेशा नए संबंधों में शामिल होने पर स्ट्रिंग प्रक्षेप के बारे में भूल जाता हूं: पी

— ETHproductions

Answer 13

पायथन 3, 119 बाइट्स

मैंने हीरे के दो सममिति अक्षों का दोहन करने की कोशिश की, लेकिन यह कार्ल नेफ के समाधान की तुलना में अधिक क्रियात्मक था ।

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

Comments

फिर भी एक अच्छा समाधान! आप 1 पंक्ति में लूप के लिए लिखकर 3 बाइट्स काट सकते हैं:for k in range(1,27):D+=A[k:]+A[:k];D+=D[-2:-27:-1]+'\n'

— फ्लिपकैक

फिर से छोटा: A के साथ 'bcdefghijklmnopqrstuvwxyza'बदलें और उसके range(1,27)साथ बदलें range(26)। मेरी बाइट गिनती अब 114 है

— FlipTack

Answer 14

हास्केल, 67 66 बाइट्स

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

Answer 15

सी, 252 बाइट्स

#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);}

स्वरूपित, मैक्रो-विस्तारित संस्करण, जो उम्मीद से अधिक समझदार है:

#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]);
}

मुझे पता है कि यह जीत नहीं सकता, लेकिन मुझे कोशिश करने में मज़ा आया। कोड गोल्फ में यह मेरा पहला प्रयास है।

Comments

गोल्फ में आपका स्वागत है, यह आहाता आदी है;)।

— मैजिक ऑक्टोपस Urn

Answer 16

बैच, 255 बाइट्स

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

स्पष्टीकरण: उप- uकेंद्र केंद्र से एक वर्ण द्वारा वर्णमाला को बाहर की ओर घुमाता है, जो वांछित आउटपुट के शीर्ष आधे भाग में उपयोग किया जाने वाला पैटर्न है। सबरूटीन lवर्णमाला को दो अक्षरों से अंदर की ओर घुमाता है। यह तब uसबरूटीन के माध्यम से गिरता है , एक प्रभावी एकल पत्र आवक रोटेशन प्राप्त करता है। अंत में अंतिम पंक्ति को कोड को lसबरूटीन के माध्यम से गिरने की अनुमति देकर मुद्रित किया जाता है ।

Answer 17

पाइके, २३ २२ २१ बाइट्स

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

यहाँ कोशिश करो!

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]

Answer 18

सी ++, 191 179 166 165 बाइट्स

-12 बाइट्स केविन क्रूज़सेन
-14 बाइट्स के लिए धन्यवाद जकार्सी को धन्यवाद

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

Comments

आप इस तरह 12 बाइट्स बचा सकते हैं:#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';};}

— केविन क्रूज़सेन

डांग यह केविन, हां निंजा मुझे।

— 13

@KevinCruijssen मदद के लिए धन्यवाद। वैसे, टिप्पणी में आपके कोड में unprintable यूनिकोड वर्ण थे।

— HatsuPointerKun

@HatsuPointerKun ऐसा कुछ है जो टिप्पणियों में अपने आप होता है मुझे डर लगता है। जब आप इसे से कॉपी-पेस्ट कोड की कोशिश करते हैं तो यह वास्तव में बहुत कष्टप्रद होता है .. :)

— केविन क्रूज़सेन

आप इसे जोड़कर मैक्रोज़ का दुरुपयोग कर सकते हैं: #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';};}

— Zacharý

Answer 19

चारकोल , 24 21 बाइट्स

-3 बाइट्स ASCII- केवल के लिए धन्यवाद।

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

इसे ऑनलाइन आज़माएं! लिंक वर्बोज वर्जन के लिए है।

... मुझे अपने चारकोल-फू पर काम करने की जरूरत है। : पी

Comments

कुछ आसान बाइट्स

— ASCII-only

अब मुझे पता चला कि चौथा तर्क Sliceवैकल्पिक है। > _>

— बिलकुल अमानवीय

सभी (हाँ, सभी चार) तर्क वैकल्पिक हैं

— ASCII-only

वाट, निलादिक Sliceभी क्या करता है?

— पूरी तरह से

अरे रुको nvm हाँ पहले तर्क की आवश्यकता है: P

— ASCII-only

Answer 20

जावास्क्रिप्ट (ईएस 6), 128 115 114 बाइट्स

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

Answer 21

ग्रूवी - 103 97 बाइट्स

मुझे एहसास है कि ऐसा करने के चतुर तरीके हैं लेकिन ...

। {T = ( 'एक' .. 'z') में शामिल होने के (); q = {यह [-2..0]} ग = []; 27.times {t = टी [1 ..- 1] + टी [0]; ग << t + क्ष (टी)};। (ग + क्ष (ग)) में शामिल होने के ( '\ n')}

स्क्रिप्ट के परिणाम को चलाने के लिए अनुरोधित उत्तर है।

( 7 बाइट्स बचाने पर टिप के लिए कारुसोकोम्प्यूटिंग के लिए धन्यवाद )।

तदनुसार अद्यतन उदाहरण:

देखें http://ideone.com/MkQeoW

Comments

लूप के लिए आप 27.times(){}7 बाइट्स का उपयोग कर सकते हैं और बचा सकते हैं ;)।

— मैजिक ऑक्टोपस Urn

Answer 22

रैकेट 293 बाइट्स

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

परिक्षण:

(f)

आउटपुट:

'("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")

Answer 23

पायथ ,21 19 बाइट्स

j+PKm+PJ.<Gd_JS27_K

इसे ऑनलाइन आज़माएं!

स्पष्टीकरण:

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

Answer 24

SOGL V0.12 , 10 बाइट्स

zl{«:}«¹╬,

यह कोशिश करो!

स्पष्टीकरण:

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

Answer 25

जावा 8, 154 153 बाइट्स

o->{String r="";for(int i=0,j,d=1;i<53;d+=i++>25?-1:1){for(j=0;j<26;r+=(char)((j+++d)%26+97));for(j=24;j>=0;r+=(char)((j--+d)%26+97));r+="\n";}return r;}

पोर्ट ऑफ @HatsuPointerKun C ++ उत्तर है , इसलिए उसे / उसे भी उखाड़ना सुनिश्चित करें।

इसे यहाँ आज़माएँ।

Answer 26

कोटलिन , 106 बाइट्स

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

सजा हुआ

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

परीक्षा

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

पोर्ट ऑफ @ कार्ल नेपफ का उत्तर

Answer 27

VBA (एक्सेल), 116 बाइट्स

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

सर जोफैन लॉजिक के बाद। : डी

Answer 28

VBA, _{109 105} 78 बाइट्स

अनाम VBE तत्काल विंडो फ़ंक्शन जो कोई इनपुट नहीं लेता है और VBE तत्काल विंडो में वर्णमाला हीरे को आउटपुट करता है।

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

Answer 29

uBASIC , 86 बाइट्स

0ForI=-26To26:ForJ=-25To25:?Left$(Chr$(65+(52-(Abs(J)+Abs(I)))Mod26),1);:NextJ:?:NextI

इसे ऑनलाइन आज़माएं!

Answer 30

MY-BASIC , 89 बाइट्स

बेनामी फ़ंक्शन जो कंसोल में कोई इनपुट और आउटपुट नहीं लेता है।

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

इसे ऑनलाइन आज़माएं!