एक तार को पवनचक्की में बदल दें

Question

इस साइट पर कोड तेजी से समाप्त हो रहा है। हमें अक्षय स्ट्रिंग्स में निवेश करने की आवश्यकता है। तो आपको एक प्रोग्राम लिखना होगा जो एक स्ट्रिंग लेता है और इसे एक पवनचक्की में परिवर्तित करता है।

चुनौती

एक उदाहरण के रूप में एक साधारण पवन चक्की लेते हैं। तार ले लो abc। धुरी केंद्र चरित्र, इस मामले में है b। चूंकि स्ट्रिंग 3 वर्ण लंबा है, हर उत्पादन किया जाएगा वास्तव में तीन लाइनों लंबा और तीन पात्रों विस्तृत। यहाँ चरण 1 पर आपका आउटपुट है (नोट व्हाट्सएप)

एबीसी

अगला चरण प्राप्त करने के लिए, धुरी के चारों ओर प्रत्येक वर्ण को दक्षिणावर्त घुमाएँ। यहाँ चरण 2 है:

ए
 ख
  सी

यहां चरण 3-8 हैं:

 ए
 ख
 सी

  ए
 ख
सी

CBA

सी
 ख
  ए

 सी
 ख
 ए

  सी
 ख
ए

और नौवें चरण पर, यह मूल स्ट्रिंग में पूर्ण चक्र के आसपास आता है:

एबीसी

ध्यान दें कि bपूरे समय एक ही स्थान पर रहे। ऐसा इसलिए है क्योंकि bयह धुरी वर्ण है। आपको एक प्रोग्राम या फ़ंक्शन लिखना चाहिए जो इनपुट के रूप में एक स्ट्रिंग लेता है और प्रोग्राम बंद होने तक इस क्रम को बार-बार प्रिंट करता है।

स्पष्टीकरण

• सभी इनपुट स्ट्रिंग्स में विषम संख्या में वर्ण होंगे। (ताकि हर पवन चक्की में एक धुरी होगी)

• चुनौती को सरल रखने के लिए, सभी तारों में केवल ऊपरी और निचले वर्णमाला वर्ण होंगे।

• आउटपुट len(input_string)वर्ण विस्तृत और लंबा होना चाहिए ।

• इससे कोई फर्क नहीं पड़ता कि आप जिस क्रम को शुरू करते हैं, उसका कौन सा चरण तब तक चलता है, जब तक आप घूर्णन और लूपिंग को हमेशा के लिए जारी रखते हैं।

अधिक परीक्षण IO:

चूंकि पोस्ट पहले से ही काफी लंबी है, इसलिए यहां "विंडमिल" के आउटपुट के लिए एक लिंक दिया गया है:

पक्षीय लेख:

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

Comments

संबंधित

— लुइस मेंडो

Answer 1

MATL , 35 33 21 बाइट्स

jtn2/kYaG1$Xd`wtD3X!T

निम्नलिखित पवनचक्की को चेतन करेगा ( 26 बाइट्स )

jtn2/kYaG1$Xd`wtXxDlY.3X!T

ऑनलाइन डेमो

इस संस्करण में, Xxडिस्प्ले साफ़ करने के लिए निर्दिष्ट किया गया 1Y.है और यह 1 सेकंड का ठहराव है।

व्याख्या

मूल विचार यह है कि हम इनपुट के दो संस्करण बनाना चाहते हैं। एक "ऑर्थोगोनल" संस्करण

+-----+
|     |       
|     |
|abcde|
|     |
|     |
+-----+

और एक "विकर्ण" संस्करण

+-----+
|a    |
| b   |
|  c  |
|   d |
|    e|
+-----+

हम स्टैक पर इन दो संस्करणों को धक्का देते हैं। हर बार लूप के माध्यम से, हम स्टैक के क्रम को स्विच करते हैं और शीर्ष पर एक बार घुमाते हैं।

j       % Grab the input as a string
t       % Duplicate the input

%--- Create the "orthogonal" version ---%

n2/     % Determine numel(input) / 2
k       % Round down to nearest integer
Ya      % Pad the input string with floor(numel(input)/2) rows above and below 

%--- Create the "diagonal" version ---%

G       % Grab the input again
1$Xd    % Place the input along the diagonal of a matrix    

`       % do...while loop   
  w     % Flip the order of the first two elements on the stack
  t     % Duplicate the top of the stack

  %--- OCTAVE ONLY (converts NULL to space chars) ---%

  O       % Create a scalar zero
  32      % Number literal (ASCII code for ' ')
  XE      % Replaces 0 elements in our 3D array with 32 (' ')

  %--- END OCTAVE ONLY ---%

  D     % Display the element     
  3X!   % Rotate this element 90 degrees counter-clockwise 3 times (clockwise)
  T     % Explicit TRUE to create an infinite loop
        % Implicit end of while loop

Answer 2

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

r=a=>{w.textContent=a.map(a=>a.join``).join`
`;for(i=j=h=a.length>>1;j++,i--;){t=a[i][i];a[i][i]=a[h][i];a[h][i]=a[j][i];a[j][i]=a[j][h];a[j][h]=a[j][j];a[j][j]=a[h][j];a[h][j]=a[i][j];a[i][j]=a[i][h];a[i][h]=t}}
s=w=>{a=[...w=[...w]].map(_=>w.map(_=>' '));a[w.length>>1]=w;setInterval(r,1000,a)}
s("windmills")

<pre id=w>

Comments

क्या आप वज़न कम करके कुछ बाइट्स नहीं निकाल सकते?

— मेयरमोनी

Answer 3

05AB1E , 88 53 बाइट्स

कोड:

¹VYg;ïU[2FX¶×DYsJ,YvNð×y¶J?}YvðX×yJ,}Yv¹gN>-ð×yJ,}YRV

इसे ऑनलाइन आज़माएं! । मारने के बटन को सही से चलाने के बाद सुनिश्चित करें, क्योंकि यह एक अनंत लूप में जाता है।

Comments

यह बर्बरता थी।

— निक रामेउ

Answer 4

रूबी, 122 119 बाइट्स

->n{c=0
loop{i=[l=n.size,m=l+1,m+1,1][3-c=c+1&7]*(3.5<=>c)
s=(' '*l+$/)*l
l.times{|j|s[m*l/2-1+(j-l/2)*i]=n[j]}
$><<s}}

नींद के साथ Ungolfed संस्करण, परीक्षण कार्यक्रम में

रोटेशन पूर्ण कंसोल ऊंचाई पर बहुत आश्वस्त नहीं है। लेकिन यदि आप ऊंचाई को इनपुट स्ट्रिंग की लंबाई तक कम करते हैं, तो रोटेशन बहुत अधिक आश्वस्त है।

f=->n{
  c=0                                     #loop counter
  m=1+l=n.size                            #l=string length. m=l+1
  loop{                                   #start infinite loop
    s=(' '*l+$/)*l                        #make a string of l newline-terminated lines of l spaces. Total m characters per line.              
    i=[m-1,m,m+1,1][3-c=c+1&7]*(3.5<=>c)  #array contains positive distance between characters in string 1=horizontal, m=vertical, etc.
                                          #c=c+1&7 cycles through 0..7. Array index 3..-4 (negative indices count from end of array, so 3=-1, 0=-4 etc)
                                          #(3.5<=>c) = 1 or -1. We use to flip the sign. This is shorter than simply using 8 element array [m-1,m,m+1,1,1-m,-m,-m+1,-1]  
    l.times{|j|s[m*l/2-1+i*(j-l/2)]=n[j]} #for each character in n, write the appropriate space character in s to the character in n
    puts s                                #print s
    sleep 1                               #sleep for 1 second
  }
}

f[gets.chomp]                             #get input, remove newline, call function

Answer 5

MATL , 47 44 बाइट्स

' 'jntX"tGtnXyg(wGtnQ2/Y(XJDXKD`J@_X!DK3X!DT

इसे ऑनलाइन आज़माएं! (लेकिन इसे तुरंत मार डालो, अनंत लूप)

1 सेकंड के ठहराव के साथ: 56 बाइट्स

' 'jntX"tGtnXyg(wGtnQ2/Y(XJD1Y.XKD1Y.`J@_X!D1Y.K3X!D1Y.T

इसे ऑनलाइन आज़माएं! (फिर से, अनंत लूप)

Answer 6

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

def c (a): e = ''; s = len (a); l = int (s / 2); b = range (s); m = '\ n' * l; प्रिंट; m, a; m ); x के लिए b: प्रिंट (e * x, [x]); x में b के लिए: प्रिंट (e * l, [x]); x में b के लिए: प्रिंट (e * (s-1-) एक्स), एक [x]); a = input (); जबकि True: c (a); c (a [:: - 1]);

Ungolfed

def c (a):
    e = ''; s = len (a); l = int (s / 2); b = श्रेणी (s); m = '\ n' * l;
    प्रिंट (एम, एक, मीटर);
    एक्स में बी के लिए: प्रिंट (ई * एक्स, [एक एक्स]);
    x के लिए b: प्रिंट (e * l, [a x]);
    x के लिए b: प्रिंट (e * (s-1-x), एक [x]); 
एक = इनपुट ();
जबकि सच:
    सीए);
    सी (एक [:: - 1]);

पुनरावर्ती, 177 बाइट्स

(कुछ सेकंड के बाद दुर्घटना)

def c (a): e = ''; s = len (a); l = int (s / 2); b = range (s); m = '\ n' * l; प्रिंट; m, a; m ); x के लिए b: प्रिंट (e * x, [x]); x में b के लिए: प्रिंट (e * l, [x]); x में b के लिए: प्रिंट (e * (s-1-) एक्स), एक [x]); सी (एक [:: - 1]); ग (इनपुट ());

Ungolfed

def c (a):
    e = ''; s = len (a); l = int (s / 2); b = श्रेणी (s); m = '\ n' * l;
    प्रिंट (एम, एक, मीटर);
    एक्स में बी के लिए: प्रिंट (ई * एक्स, [एक एक्स]);
    x के लिए b: प्रिंट (e * l, [a x]);
    x के लिए b: प्रिंट (e * (s-1-x), एक [x]);
    सी (एक [:: - 1])
ग (इनपुट ());

एक अन्य समाधान, 268 बाइट्स

आयात के रूप में मैं; ​​डी; डब्ल्यू (ए): ई = ''; एस = लेन (ए); एल = इंट (एस / 2); टी = '\ n'; एम = (एल -1) * टी; एच; = सूची (i.chain.from_iterable ((e * x + a [x], e * l + a [x], e * (s-1-x) + a [x]) के लिए x को रेंज में (s) )); प्रिंट (एम, एक, मीटर, t.join (ज [:: 3]), t.join (ज [1 :: 3]), t.join (ज [2 :: 3]) सितम्बर = t, end = ''); a = इनपुट;); जबकि True: w (a); w (a [:: - 1]);

Ungolfed

आयात itertools मैं के रूप में;
डी डब्ल्यू (ए):
    e = ''; s = len (a); l = int (s / 2); t = '\ n'; m = (l-1) * t;
    h = सूची (i.chain.from_iterable ((e * x + a [x], e * l + a [x], e * (s-1-x) + a [x] श्रेणी में x (s) )))
    प्रिंट (एम, एक, मीटर, t.join (ज [:: 3]), t.join (ज [1 :: 3]), t.join (ज [2 :: 3]) सितम्बर = टी, अंत = '');
एक = इनपुट ();
जबकि सच:
    वा);
    डब्ल्यू (एक [:: - 1]);

Comments

क्या मैं यह उधार ले सकता हूं?

— लीक नून

वैसे, PPCG में आपका स्वागत है !

— लीक नून

इसके अलावा, आप अंत (पहले-स्तर-इंडेंटेशन) पर स्ट्रिंग को उल्टा करना भूल गए।

— लीक नून

यह आउटपुट अमान्य है। चरण एक और पांच में प्रमुख व्हाट्सएप गायब हैं।

— जेम्स

बदला हुआ! @ माय हैमजेड

— पी .1714825

Answer 7

पायथ, 48 बाइट्स

JlzK/J2#*btKz*btKM+*dG@zHVJgNN)VJgKN)VJg-JNN)=_z

इसे ऑनलाइन आज़माएं! (नोट: यह एक ऐसा संस्करण है जो हमेशा के लिए लूप नहीं करता है, क्योंकि यह दुभाषिया को क्रैश कर देगा।)

बेशर्मी से @BHHH द्वारा पायथन 3 समाधान से अनुवादित ।

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

JlzK/J2#*btKz*btKM+*dG@zHVJgNN)VJgKN)VJg-JNN)=_z
                                                 assign('z',input())
Jlz                                              assign("J",Plen(z))
   K/J2                                          assign("K",div(J,2))
       #                                         loop-until-error:
        *btK                                      imp_print(times(b,tail(K)))
            z                                     imp_print(z)
             *btK                                 imp_print(times(b,tail(K)))
                                                  @memoized
                 M                                def gte(G,H):
                  +*dG@zH                          return plus(times(d,G),lookup(z,H))
                         VJ   )                   for N in num_to_range(J):
                           gNN                     imp_print(gte(N,N))
                               VJ   )             for N in num_to_range(J):
                                 gKN               imp_print(gte(K,N))
                                     VJ     )     for N in num_to_range(J):
                                       g-JNN       imp_print(gte(minus(J,N),N))
                                             =_z  assign('z',neg(z))

Comments

यह आउटपुट अमान्य है। चरण एक और पांच में प्रमुख व्हाट्सएप गायब हैं।

— जेम्स

क्या अब यह ठीक है???

— लीक नून

हाँ जो बहुत अच्छा लग रहा है। ;)

— जेम्स