डी-सनकीज़ ए स्ट्रिंग

Question

एक नियमित स्ट्रिंग इस तरह दिखता है:

Hello,IAmAStringSnake!

और एक स्ट्रिंग सांप कुछ इस तरह दिखता है:

Hel         
  l      rin
  o,IAmASt g
           S
       !ekan

आपका कार्य

स्ट्रिंग सांप खतरनाक हैं, इसलिए आपको एक प्रोग्राम बनाना चाहिए जो एक स्ट्रिंग सांप को इनपुट के रूप में लेता है और इसे एक नियमित स्ट्रिंग के रूप में आउटपुट करता है।

विशेष विवरण

• इनपुट मल्टीलाइन स्ट्रिंग या स्ट्रिंग्स की एक सरणी हो सकती है।
• आयताकार ग्रिड बनाने के लिए रिक्त स्थान के साथ इनपुट की प्रत्येक पंक्ति को गद्देदार किया जाएगा।
• साँप में वर्ण केवल ऊपर, नीचे, बाएँ या दाएँ उनके निकटवर्ती वर्णों से जुड़ सकते हैं (ठीक उसी तरह जैसे साँप खेल में होता है)। वे विकर्ण नहीं जा सकते।
• साँप के पात्र साँप के दूसरे भाग से कभी भी जुड़े हुए नहीं होंगे, केवल जुड़े हुए पात्र।
• स्ट्रिंग का पहला वर्ण इनपुट ग्रिड के ऊपरी-बाएँ कोने से सबसे कम मैनहट्टन की दूरी के साथ अंतिम वर्ण है (यानी न्यूनतम संख्या में चालें सांप के लिए अंत वर्ण से सीधे ऊपर-बाईं ओर जाने के लिए होती हैं कोने)। दोनों छोरों की दूरी समान नहीं होगी।
• स्ट्रिंग में कोड अंक 33 और 126 समावेशी (कोई रिक्त स्थान या newlines) के बीच कोई भी ASCII वर्ण हो सकता है।
• तार 2 और 100 वर्णों के बीच लंबा होगा।
• बाइट्स में सबसे छोटा कोड जीतता है।

परीक्षण के मामलों

(इनपुट ग्रिड, इसके बाद आउटपुट स्ट्रिंग)

Hel         
  l      rin
  o,IAmASt g
           S
       !ekan

Hello,IAmAStringSnake!

----------

Python

Python

----------

P  ngPu  Code 
r  i  z  d  G 
o  m  z  n  o 
gram  lesA  lf

ProgrammingPuzzlesAndCodeGolf

----------

   ~ zyx tsr XWVUTSR
   }|{ wvu q Y     Q
!          p Z `ab P
"#$ 6789:; o [ _ c O
  % 5    < n \]^ d N
('& 432  = m     e M
)     1  > lkjihgf L
*+,-./0  ?         K
         @ABCDEFGHIJ

!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~

----------

  tSyrep    
  r    p    
  in Sli    
   g    Sile
   Snakes  n
Ser      ylt
a eh   ilS  
fe w   t    
   emo h    
     Sre    

SlipperyStringSnakesSilentlySlitherSomewhereSafe

Comments

मजेदार तथ्य: लिंक विकिपीडिया लेख के अनुसार, मैनहट्टन की दूरी को साँप की दूरी के रूप में भी जाना जाता है!

— user81655

क्या hastebin.com/asugoropin.vbs जैसा इनपुट सही होगा?

— फ्लिफी

@FliiFe नहीं, सांप के कुछ अंग एक दूसरे के बगल में नहीं हो सकते क्योंकि यह बताना हमेशा संभव नहीं होता है कि ऐसा होने पर साँप कहाँ जा रहा है (और यह चुनौती को बहुत कठिन बना देगा)। मैंने इसे समझाने के लिए युक्ति में एक पंक्ति जोड़ी।

— user81655

क्या इनपुट एक द्वि-आयामी सरणी (यानी प्रत्येक तत्व के रूप में) हो सकता है?

— फ्लिफी

निश्चित रूप से इस पहेली को अजगर में जवाब चाहिए?

— अब्लीग

Answer 1

एपीएल, 55 बाइट्स

{⍵[1↓(⊂0 0){1<⍴⍵:⍺,∆[⊃⍋+/¨|⍺-∆]∇∆←⍵~⍺⋄⍺}(,⍵≠' ')/,⍳⍴⍵]}

यह फ़ंक्शन इसमें स्ट्रिंग साँप के साथ एक चरित्र मैट्रिक्स लेता है।

उदाहरण:

      s1 s2 s3
┌────────────┬──────────────┬────────────────────┐
│Hel         │P  ngPu  Code │   ~ zyx tsr XWVUTSR│
│  l      rin│r  i  z  d  G │   }|{ wvu q Y     Q│
│  o,IAmAst g│o  m  z  n  o │!          p Z `ab P│
│           S│gram  lesA  lf│"#$ 6789;: o [ _ c O│
│       !ekan│              │  % 5    < n \]^ d N│
│            │              │('& 432  = m     e M│
│            │              │)     1  > lkjighf L│
│            │              │*+,-./0  ?         K│
│            │              │         @ABCDEFGHIJ│
└────────────┴──────────────┴────────────────────┘
      ↑ {⍵[1↓(⊂0 0){1<⍴⍵:⍺,∆[⊃⍋+/¨|⍺-∆]∇∆←⍵~⍺⋄⍺}(,⍵≠' ')/,⍳⍴⍵]} ¨ s1 s2 s3 
Hello,IAmAstringSnake!                                                                        
ProgrammingPuzzlesAndCodeGolf                                                                 
!"#$%&'()*+,-./0123456789;:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefhgijklmnopqrstuvwxyz{|}~

स्पष्टीकरण:

• (,⍵≠' ')/,⍳⍴⍵: सभी गैर-रिक्त स्थान के निर्देशांक प्राप्त करें
• (⊂0 0): (0,0) पर शुरू करें (जो एक अवैध समन्वय है)
• {... }: साँप का पालन करें, स्थिति और साँप:
  • 1<⍴⍵:: यदि 1 से अधिक तत्व बचे हैं:
    • ∆←⍵~⍺: साँप से वर्तमान स्थिति को हटा दें और इसे स्टोर करें ∆।
    • +/¨|⍺-∆: वर्तमान स्थिति और शेष सांप के प्रत्येक बिंदु के बीच की दूरी का पता लगाएं
    • ∆[⊃⍋...] `: साँप पर निकटतम बिंदु प्राप्त करें
    • ∇: नए वर्तमान बिंदु के रूप में निकटतम बिंदु और नए साँप के रूप में छोटा साँप के साथ, फिर से कार्य करें।
    • ⍺,: उस के परिणाम में वर्तमान स्थिति जोड़ें
  • ⋄⍺: अन्यथा, बस वर्तमान स्थिति लौटाएं
• 1↓: परिणाम से पहला आइटम छोड़ें (जो (0,0) स्थिति है)
• ⍵[... ]: उन तत्वों को from से, उस क्रम में प्राप्त करें

Answer 2

जावास्क्रिप्ट ( ईएस 6 ) + स्नेकएक्स , 176 बाइट्स

a=b=>snakeEx.run("s{A}:<+>([^ ]<P>)+",b).reduce((c,d)=>(e=c.marks.length-d.marks.length)>0?c:e?d:c.x+c.y>d.x+d.y?d:c).marks.reduce((c,d,e,f)=>e%2?c+b.split`\n`[d][f[e-1]]:c,"")

SnakeEx याद है? अच्छा है, क्योंकि न तो मैं! गोल्फ सुझाव का स्वागत करते हैं।

Answer 3

MATL , 80 बाइट्स

एक सुधार के लिए @LevelRiverSt को धन्यवाद

32>2#fJ*+X:4Mt1Y6Z+l=*2#fJ*+ttXjwYj+K#X<)wt!"tbb6#Yk2#)yw]xxvtXjwYjqGZy1)*+Gw)1e

इनपुट एक 2 डी सरणी के रूप में है, जिसमें पंक्तियों को अलग किया गया है ;। इस प्रारूप में परीक्षण मामले हैं

['Hel         ';'  l      rin';'  o,IAmASt g';'           S';'       !ekan']
['Python']
['P  ngPu  Code ';'r  i  z  d  G ';'o  m  z  n  o ';'gram  lesA  lf']
['   ~ zyx tsr XWVUTSR';'   }|{ wvu q Y     Q';'!          p Z `ab P';'"#$ 6789:; o [ _ c O';'  % 5    < n \]^ d N';'(''& 432  = m     e M';')     1  > lkjihgf L';'*+,-./0  ?         K';'         @ABCDEFGHIJ']
['  tSyrep    ';'  r    p    ';'  in Sli    ';'   g    Sile';'   Snakes  n';'Ser      ylt';'a eh   ilS  ';'fe w   t    ';'   emo h    ';'     Sre    ']

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

व्याख्या

प्रत्येक नॉनस्पेस चरित्र के निर्देशांक एक जटिल संख्या द्वारा दर्शाए जाते हैं। प्रत्येक वर्तमान चरित्र के लिए, अगला प्राप्त होता है जो निकटतम है (उनके जटिल निर्देशांक का न्यूनतम पूर्ण अंतर)।

प्रारंभिक चार को निर्धारित करने के लिए, दो समापन बिंदुओं को खोजने की आवश्यकता है। यह अग्रानुसार होगा। एक समापन बिंदु एक बकवास चार्ट है जिसमें बिल्कुल एक nonspace पड़ोसी है। पड़ोसियों की संख्या 2 डी दृढ़ संकल्प द्वारा एक उपयुक्त मुखौटा के साथ प्राप्त की जाती है। प्रारंभिक बिंदु वह समापन बिंदु है जिसका जटिल समन्वय वास्तविक और काल्पनिक भागों का कम से कम योग है; यानी मैनहट्टन की दूरी जटिल संख्या 0 या निकटतम 1 + 1j के बराबर है, जो ऊपरी बाएं कोने का जटिल समन्वय है।

32>      % Take input as 2D char array. Compute 2D array with true for nonspace,
         % false for space
2#f      % Arrays of row and column indices of nonspaces
J*+      % Convert to complex array. Real part is row, imaginary part is column
X:       % Convert to column array
4Mt      % Push arrays of zeros and ones again. Duplicate
1Y6      % Push array [0 1 0; 1 0 1; 0 1 0]. Used as convolution mask to detect
         % neighbours that are nonspace
Z+       % 2D convolution with same size as the input
1=       % True for chars that have only one neighbour (endpoints)
*        % Multiply (logical and): we want nonspaces that are endpoints
2#fJ*+   % Find complex coordinates (as before)
ttXjwYj  % Duplicate. Take real and imaginary parts
+        % Add: gives Manhattan distance to (0,0)
K#X<     % Arg min. Entry with minimum absolute value has least Manhattan
         % distance to (0,0), and thus to (1,1) (top left corner)
)        % Apply as an index, to yield complex coordinate of initial endpoint
wt!      % Swap, duplicate, transpose.
         % The stack contains, bottom to top: complex coordinates of initial
         % endpoint, column array with all complex coordinates, row array of all
         % coordinates. The latter is used (and consumed) by the next "for"
         % statement to generate that many iterations
"        % For loop. Number of iterations is number of nonspaces
  tbb    %   Duplicate, bubble up twice (rearrange is stack)
  6#Yk   %   Find which of the remaining points is closest to current point. This
         %   is the next char in the string
  2#)    %   Remove the point with that index from the array of complex
         %   coordinates. Push that point and the rest of the array
  yw     %   Duplicate extracted point, swap
]        % End for
xx       % Delete top two elements of the stack
v        % Concatenate all stack contents into a column array. This array
         % contains the complex coordinates of chars sorted to form the string
tXjwYj   % Extract real part and imaginary part
GZy1)    % Number of rows of input. Needed to convert to linear index
*+       % Convert rows and columns to linear index
Gw       % Push input below that
)        % Index to get the original chars with the computed order
1e       % Force the result to be a row array (string). Implicitly display

Comments

मुझे लगता है कि एक स्पष्टीकरण आगामी है?

— मैट

@ मेत ज़रूर ... बाद में दिन में :-)

— लुइस मेंडो

स्पष्टीकरण ने @ मट

— लुइस मेंडो

The initial point is the endpoint whose complex coordinate has the least absolute valueसावधान: यूक्लिडियन दूरी! = मैनहट्टन दूरी। उदाहरण के लिए बिंदु 7 + 7j में यूक्लिडियन दूरी 9.8994 और मैनहट्टन की दूरी 14. 10j है, जो यूक्लिडियन दूरी से आगे है लेकिन मैनहट्टन की दूरी से काफी करीब है। इसके अलावा, महान अवधारणा!

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

@LevelRiverSt धन्यवाद! सही किया

— लुइस मेंडो

Answer 4

सी 198 190 179 180 181 बाइट्स

संपादित करें: user81655 द्वारा टिप का उपयोग किया गया और त्रैमासिक ऑपरेटर में कोष्ठक को हटा दिया, धन्यवाद! मैंने और अधिक उपयुक्त (और कम!) S% 2 के लिए भी बोझिल (S & 1) परीक्षा को बदल दिया।

Edit2: * एक संबोधन शैली का भारी उपयोग करते हुए, मुझे S की परिभाषा में स्पष्ट अनुकूलन के लिए अंधा बना दिया, अर्थात, [a] एक [m] द्वारा * (a + m) को प्रतिस्थापित करके I ने S को T से बदल दिया, जो अनिवार्य रूप से होता है। S जो करता है उसका आधा। कोड अब पुचर के वापसी मूल्य का भी लाभ उठाता है।

एडिट 3: फिक्स्ड बग जो शुरुआत से आसपास रहा है, मैनहट्टन-सर्च स्टॉपिंग मानदंड <b + m केवल तभी सही है जब पहले से ही डीक्रिएट हो चुका हो। यह 2 बाइट्स जोड़ता है, लेकिन एक को वैश्विक m की परिभाषा बनाकर पुनः प्राप्त किया जाता है।

Edit4: मेरी गोल्फिंग न्यूनतम पास कर चुकी है और अब गलत रास्ते पर जा रही है। मैनहट्टन-खोज से संबंधित एक और बग फिक्स। मेरे पास मूल रूप से इन-बाउंड चेक थे और उन के बिना सरणी बी से परे बड़े इनपुट सरणियों (कहीं दौर 50x50) के लिए खोज जारी है। इसलिए उस सरणी को कम से कम दो बार पिछले आकार में विस्तारित किया जाना है, जो एक और बाइट जोड़ता है।

#define T(x)+x*((a[x]>32)-(a[-x]>32))
m=103;main(){char b[m<<8],*e=b,*a=e+m;while(gets(e+=m));for(e=a;(T(1)T(m))%2**a<33;a=a<b+m?e+=m:a)a-=m-1;for(;*a;a+=T(1)T(m))*a-=putchar(*a);}

असंगठित और समझाया गया:

/* T(1)T(m) (formerly S) is used in two ways (we implicitly assume that each cell has
   one or two neighbors to begin with):
   1. (in the first for-loop) T(1)T(m) returns an odd (even) number if cell a has one (two)
      neighbors with ASCII value > 32. For this to work m must be odd.
   2. (in the second for-loop) at this stage each cell a in the array at which T(1)T(m) is
      evaluated has at most one neighboring cell with ASCII value > 32. T(1)T(m) returns the
      offset in memory to reach this cell from a or 0 if there is no such cell.
      Putting the + in front of x here saves one byte (one + here replaces two
      + in the main part)

#define T(x)+x*((a[x]>32)-(a[-x]>32))

  /* A snake of length 100 together with the newlines (replaced by 0:s in memory) fits
     an array of size 100x101, but to avoid having to perform out-of-bounds checks we
     want to have an empty line above and the array width amount of empty lines below
     the input array. Hence an array of size 202x101 would suffice. However, we save
     a (few) bytes if we express the array size as m<<8, and since m must be odd
     (see 1. above), we put m = 103. Here b and e point to the beginning of the (now)
     256x103 array and a points to the beginning of the input array therein */

m=103;
main()
{

  char b[m<<8],*e=b,*a=e+m;

  /* This reads the input array into the 256x103 array */

  while(gets(e+=m));

  /* Here we traverse the cells in the input array one
     constant-Manhattan-distance-from-top-left diagonal at a time starting at the top-left
     singleton. Each diagonal is traversed from bottom-left to top-right since the starting point
     (memory location e) is easily obtained by moving one line downwards for each diagonal
     (+m) and the stopping point is found by comparing the present location a to the input array
     starting position (b+m). The traversal is continued as long as the cell has either
     an ASCII value < 33 or it has two neighbors with ASCII value > 32 each (T(1)T(m)
     is even so that (T(1)T(m))%2=0).
     Note that the pointer e will for wide input arrays stray way outside (below) the
     input array itself, so that for a 100 cell wide (the maximum width) input array
     with only two occupied cells in the bottom-right corner, the starting cell
     will be discovered 98 lines below the bottom line of the input array.
     Note also that in these cases the traversal of the diagonals will pass through the
     right-hand side of the 103-wide array and enter on the left-hand side. This, however,
     is not a problem since the cells that the traversal then passes have a lower
     Manhattan distance and have thereby already been analyzed and found not to contain
     the starting cell. */

  for(e=a;(T(1)T(m))%2**a<33;a=a<b+m?e+=m:a)a-=m-1;

  /* We traverse the snake and output each character as we find them, beginning at the
     previously found starting point. Here we utilize the function T(1)T(m), which
     gives the offset to the next cell in the snake (or 0 if none), provided that
     the current cell has at most one neighbor. This is automatically true for the
     first cell in the snake, and to ensure it for the rest of the cells we put the
     ASCII value of the current cell to 0 (*a-=putchar(*a)), where we use the fact
     that putchar returns its argument. The value 0 is convenient, since it makes the
     stopping condition (offset = 0, we stay in place) easy to test for (*a == 0). */

  for(;*a;a+=T(1)T(m))
    *a-=putchar(*a);
}

Comments

यह उत्तर बहुत अच्छा है।

— abligh

+1 यह बहुत अच्छा है। मैं अपने उत्तर में एक स्पष्टीकरण जोड़ना चाहूंगा, जिसमें दिखाया गया है कि मैं आपके समाधान की तुलना में बाइट करता हूं, क्या यह ठीक है?

— mIllIbyte

mIllIbyte - टिप्पणियों को जोड़ने के लिए स्वतंत्र महसूस करें, यह नए विचारों की ओर सड़क है।

— ज़ुंगा

user81655 - टिप के लिए धन्यवाद, यह 6 बाइट्स से मुंडा हुआ है। वास्तव में, मैंने कोशिश की कि कल के साथ-साथ S (S & 1) के बजाय S% 2 का उपयोग किया जाए, जो कि एक और 2 बाइट्स को मुकरता है, समानता परीक्षण के लिए, लेकिन किसी कारण से (मेरा कोड कहीं और छोटी गाड़ी थी) न तो उचित रूप से काम किया। अब, हालांकि, सब ठीक लगता है।

— ज़ुंगा

बहुत अच्छा। साथ कुछ और सहेजें a[1], a[-m]आदि, और बनाने mवैश्विक - m=103;main()।

— बदसूरत

Answer 5

सी, 272 बाइट्स

#define E j+(p/2*i+1)*(p%2*2-1)
#define X(Y) a[Y]&&a[Y]-32
char A[999],*a=A+99;j,p,t;i;main(c){for(;gets(++j+a);j+=i)i=strlen(a+j);for(c=j;j--;){for(t=p=4;p--;)t-=X(E);t==3&&X(j)?c=c%i+c/i<j%i+j/i?c:j:0;}for(j=c;c;){putchar(a[j]),a[j]=0;for(c=0,p=4;!c*p--;)X(E)?c=j=E:0;}}

@ ज़ुंगा के स्रोत को देखें। अब मेरा देखो। जानना चाहते हैं कि मुझे 91-बाइट कैसे मिलीं?
Ungolfed:

#define E j+(p/2*i+1)*(p%2*2-1)
#define X(Y) a[Y]&&a[Y]-32  //can be more concise, see @Zunga's
  //and then doesn't need the define
char A[999],*a=A+99;j,p,t;i;
main(c){for(;gets(++j+a);j+=i)
i=strlen(a+j); //we don't need to know the length of a line
  //in @Zunga's solution, lines are spaced a constant distance apart
for(c=j;j--;){
for(t=p=4;p--;)t-=X(E);  //a ton of bytes can be saved with determining 
  //the neighbors, see @Zunga's source
t==3&&X(j)?
c=c%i+c/i<j%i+j/i?c:j:0;}  //we search for ends of the snake, 
  //and compute the Manhattan distance
for(j=c;c;){putchar(a[j]),a[j]=0;
for(c=0,p=4;!c*p--;)  //determining the neighbors again
X(E)?c=j=E:0;}}

Answer 6

पायथन (2 और 3), 640 624 604 583 575 561 546 538 बाइट्स

मैं अभी भी एक गोल्फिंग n00b हूँ इसलिए यह थोड़ा बड़ा है।

संपादित करें: सुझावों के लिए @porglezomp को धन्यवाद ! मैंने सभी 'और' संचालकों को नहीं हटाया क्योंकि यह पायथन 3 को तोड़ देगा।

Edit2: isspace () के बारे में टिप्पणी के लिए @Aleksi Torhamo को धन्यवाद । परिणामी कमी, मेरे द्वारा लगाए गए बगफिक्स के लिए क्षतिपूर्ति करती है। सिंटैक्स हाइलाइटिंग के लिए अनाम के लिए धन्यवाद!

Edit3: कुछ अतिरिक्त बाइट्स के लिए @ mbomb007 का धन्यवाद ।

import sys;s=sys.stdin.read().split('\n');m={};q=[];o=len;j=o(s);r=range;g='!'
for y in r(j):
 v=s[y];f=o(v);d=y+1
 for x in r(f):
  n=[];a=n.append;U=s[y-1]
  if v[x]>=g:j>=y>0==(U[x]<g)<=x<o(U)and a((x,y-1));j>y>=0==(v[x-1]<g)<x<=f and a((x-1,y));j>y>-1<x+1<f>(v[x+1]<g)<1and a((x+1,y));j>d>-1<x<o(s[d])>(s[d][x]<g)<1and a((x,d));m[x,y]=[v[x],n];o(n)-1or q.append((x,y))
t=min(q,key=sum);w=sys.stdout.write;w(m[t][0]);c=m[t][1][0]
while o(m[c][1])>1:
 b=m[c][1];w(m[c][0])
 for k in r(o(b)):
  if b[k]!=t:t=c;c=b[k];break
print(m[c][0])

और यहाँ मेरा पूर्व-गोल्फ संस्करण है

import sys

lines = sys.stdin.read().split('\n')
startend = []
mydict = {}
for y in range( 0, len(lines)):
  for x in range( 0, len(lines[y])):
    if not lines[y][x].isspace():
      neighbors = []
      if x>=0 and x<len(lines[y-1]) and y-1>=0 and y-1<len(lines):
        if not lines[y-1][x].isspace():
          neighbors.append( (x,y-1) )
      if x-1>=0 and x-1<len(lines[y]) and y>=0 and y<len(lines):
        if not lines[y][x-1].isspace():
          neighbors.append( (x-1,y) )
      if x+1>=0 and x+1<len(lines[y]) and y>=0 and y<len(lines):
        if not lines[y][x+1].isspace():
          neighbors.append( (x+1,y) )
      if x>=0 and x<len(lines[y+1]) and y+1>=0 and y+1<len(lines):
        if not lines[y+1][x].isspace():
          neighbors.append( (x,y+1) )
      mydict[(x,y)] = [ lines[y][x], neighbors ]

      if len( neighbors ) == 1:
        startend.append( (x,y) )

startend.sort( key=lambda x : x[0]*x[0] + x[1]*x[1] )

last = startend[0]
sys.stdout.write( mydict[ last ][0] )
current = mydict[last][1][0]
while len( mydict[current][1] ) > 1:
  sys.stdout.write( mydict[current][0] )
  for k in range( 0, len( mydict[current][1] ) ):
    if mydict[current][1][k] != last:
      last = current
      current = mydict[current][1][k]
      break

print(mydict[current][0])

Comments

मैंने 12 बाइट्स की शुरुआत की S=lambda s:s.isspace()और फिर S(s)इसके बजाय कर रहा था s.isspace()।

— porglezomp

मुझे लगता है कि आप भी अपने के सभी बदल सकते हैं and करने के लिए <है, क्योंकि f() < g() < h()रूप में ही है g = g(); f() < g and g < h()साइड इफेक्ट के मामले (तुलना चेन शॉर्ट सर्किट) में है, और आप की तुलना का परिणाम वैसे भी अनदेखा कर रहे हैं।

— porglezomp

m[(x,y)]=m[x,y]=

— porglezomp

@porglezomp: यह कहने के लिए और भी छोटा हैS=str.isspace

— अलेक्सी तोरमो

हटाने Sऔर इसके बजाय <'!'प्रत्येक घटना में उपयोग करना एक ही लंबाई हो सकती है, संभवतः अधिक को बचाने का अवसर खोलना। उदाहरण के if 1-S(v[x]):लिए if(v[x]<'!')<1:, बदलना । और हो सकता है कि आप बाद के तुलनाओं में कुछ कोष्ठकों को इस तरह से निकाल सकें।

— mbomb007 14

Answer 7

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

परीक्षण स्निपेट के अंदर स्पष्टीकरण देखें

s=>[...s].map((c,i)=>{if(c>' '&([n=-1,1,o=-~s.search('\n'),-o].map(d=>n+=s[i+d]>' '&&!!(e=d)),n<1)&m>(w=i/o+i%o|0))for(m=w,r=c,p=i+e;r+=s[i=p],[e,o/e,-o/e].some(d=>s[p=i+(e=d)]>' '););},m=1/0)&&r

परीक्षा

f=s=>[...s].map((c,i)=>{if(c>' '&([n=-1,1,o=-~s.search('\n'),-o].map(d=>n+=s[i+d]>' '&&!!(e=d)),n<1)&m>(w=i/o+i%o|0))for(m=w,r=c,p=i+e;r+=s[i=p],[e,o/e,-o/e].some(d=>s[p=i+(e=d)]>' '););},m=1/0)&&r

// Less golfed

u=s=>(
  o = -~s.search('\n'), // offset between lines
  m = 1/0, // current min manhattan distance, init at infinity
  // scan input looking for the 2 ends of the string
  [...s].map((c,i)=>{ // for each char c at position i
     if(c > ' ' // check if part of the string
        & ( [-1,1,o,-o] // scan in 4 directions and count neighbors
             .map(d=> n+=s[i+d]>' '&&!!(e=d), n=0), // remember direction in e
          n < 2) // if at end of string will have exactly 1 neighbor
        & (w = i/o + i%o |0) < m) // manhattan distance in w, must be less than current min
       // found one of the ends, follow the path and build the string in r
       for(m = w, r = c, p = i+e; 
           r += s[i=p], 
           [e,o/e,-o/e] // check 3 directions, avoiding to go back
           .some(d=>s[p=i+(e=d)]>' '); // save candidate position and direction in p and e
          ); // empty for body, all the work is inside the condition
  }),
  r
)  

console.log=x=>O.textContent+=x+'\n'

;[`Hel         
  l      rin
  o,IAmASt g
           S
       !ekan`,
 `   ~ zyx tsr XWVUTSR
   }|{ wvu q Y     Q
!          p Z \`ab P
"#$ 6789:; o [ _ c O
  % 5    < n \\]^ d N
('& 432  = m     e M
)     1  > lkjihgf L
*+,-./0  ?         K
         @ABCDEFGHIJ`].forEach(t=>{
  console.log(t+'\n\n'+f(t)+'\n')
  })

<pre id=O></pre>

Comments

क्या अर्धविराम की ););}जरूरत है?

— सीस टिम्मरमैन

@CeesTimmerman हाँ। पहला forशीर्षलेख के अंदर है जहाँ 2 कॉलनों की आवश्यकता है। दूसरा forशरीर के लिए

— परिधि है

Answer 8

लुआ, 562 535 529 513 507 504 466 458 बाइट्स

इस समय मेरे सबसे बड़े गोल्फ से, मुझे लगता है कि मैं अभी भी 100 बाइट्स काट सकता हूं, जो मैं काम करूंगा, लेकिन इसे एक उत्तर के रूप में पोस्ट कर रहा हूं क्योंकि यह पहले ही कुछ समय ले चुका है :)। मैं सही था, मैंने 100 से अधिक बाइट्स काट लिए हैं! मुझे नहीं लगता कि सुधार के लिए बहुत जगह है।

इस फ़ंक्शन को 2 डी सरणी के साथ प्रति कक्ष एक वर्ण के साथ बुलाया जाना है।

@ धन्यवाद, @ धन्यवाद के साथ काम करते हुए 40 बाइट्स बचाए !

वू हू! 500 के तहत!

function f(m)t=2u=1i=1j=1s=" "::a::if s~=m[i][j]and(i<#m and m[i+1][j]~=s)~=(j<#m[i]and m[i][j+1]~=s)~=(i>1 and m[i-1][j]~=s)~=(j>1 and m[i][j-1]~=s)then goto b end
i,t=i%t+1,#m>t and t==i and t+1or t j=j>1 and j-1or u u=u<#m[1]and j==1 and u+1or u goto a::b::io.write(m[i][j])m[i][j]=s
i,j=i<#m and s~=m[i+1][j]and i+1or i>1 and s~=m[i-1][j]and i-1or i,j<#m[i]and s~=m[i][j+1]and j+1or j>1 and s~=m[i][j-1]and j-1or j
if s==m[i][j]then return end goto b end

Ungolfed

एक बार जब मैं इस गोल्फिंग कर रहा हूँ, स्पष्टीकरण आ जाएगा, इस समय, मैं आपको इस स्रोत कोड का एक पठनीय संस्करण उधार दूंगा: D यहाँ स्पष्टीकरण आया है!

संपादित करें: अद्यतन करने से पहले नवीनतम संशोधन के साथ अद्यतन नहीं, फिर भी गोल्फिंग। एक ही स्पष्टीकरण के लिए चला जाता है

function f(m)                    -- declare the function f which takes a matrix of characters
  t=2                            -- initialise the treshold for i
                                 -- when looking for the first end of the snake
  u=1                            -- same thing for j
  i,j=1,1                        -- initialise i and j,our position in the matrix
  s=" "                          -- shorthand for a space
  ::a::                          -- label a, start of an infinite loop
    if m[i][j]~=s                -- check if the current character isn't a space
      and(i<#m                   -- and weither it is surrounded by exactly
          and m[i+1][j]~=s)      -- 3 spaces or not
      ~=(j<#m[i]
          and m[i][j+1]~=s)      -- (more explanations below)
      ~=(i>1 
          and m[i-1][j]~=s)
      ~=(j>1
          and m[i][j-1]~=s)
      then goto b end            -- if it is, go to the label b, we found the head
    i,t=                         -- at the same time
      i%t+1,                     -- increment i
      #m>t and t==i and t+1or t  -- if we checked all chars in the current range, t++
    j=j>1 and j-1or u            -- decrement j
    u=u>#m[1]and j==1 and u+1or u-- if we checked all chars in the current range, u++
  goto a                         -- loop back to label a

  ::b::                          -- label b, start of infinite loop
  io.write(m[i][j])                    -- output the current char
    m[i][j]=s                    -- and set it to a space
    i,j=i<#m                     -- change i and j to find the next character in the snake
          and m[i+1][j]~=s       -- this nested ternary is also explained below
            and i+1              -- as it takes a lot of lines in comment ^^'
          or i>1 
            and m[i-1][j]~=s
            and i-1
          or i,
       j<#m[i] 
         and m[i][j+1]~=s
           and j+1
         or j>1 
           and m[i][j-1]~=s 
           and j-1
         or j
    if m[i][j]==s                -- if the new char is a space
    then                         -- it means we finished
      return                  -- exit properly to avoid infinite
    end                          -- printing of spaces
  goto b                         -- else, loop back to label b
end

इसलिए यहां कुछ विस्तृत व्याख्याएं हैं कि यह कार्यक्रम कैसे काम करता है।

सबसे पहले, चलो लूप लेबल पर विचार करें a, यह हमें शीर्ष-बाएं कोने के निकटतम छोर को खोजने की अनुमति देता है। यह हमेशा के लिए लूप होगा अगर कोई अंत नहीं है, लेकिन यह एक समस्या नहीं है: डी।

4x4 ग्रिड पर, यह यहाँ साँप की दूरी (बाएं) है, और जिस क्रम को वे (दाईं ओर) देखते हैं

1  2  3  4    |     1  2  4  7
2  3  4  5    |     3  5  8 11
3  4  5  6    |     6  9 12 14
4  5  6  7    |    10 13 15 16

इस चरित्र में से प्रत्येक के लिए, अंत होने के लिए, इसे दो स्थितियों की जांच करनी होगी: - स्थान नहीं होना - बिल्कुल 3 स्थानों से घिरा होना (या बिल्कुल 1 गैर-स्थान)

इन शर्तों को कोड के निम्नलिखित टुकड़े की जाँच की जाती है

r=m[i][j]~=s
    and(i<#m and m[i+1][j]~=s)
    ==not(j<#m[i] and m[i][j+1]~=s)
    ==not(i-1>0 and m[i-1][j]~=s)
    ==not(j-1>0 and m[i][j-1]~=s)
    and m[i][j]
    or r
  -- special note: "==not" is used as an equivalent to xor
  -- as Lua doesn't know what is a xor...

यह जाँच कर रहा है कि चार स्थान अभिव्यक्ति द्वारा हासिल नहीं किया गया है m[i][j]~=s।

यह जाँचने पर कि क्या केवल 1 गैर-स्थान से घिरा हुआ है, हमारे आसपास के लिए उपरोक्त शर्तों को xor-ing द्वारा प्राप्त किया जाता है, इसे इस प्रकार नहीं लिखा जा सकता है

m[i+1][j]~=" " ⊕ m[i][j+1]~=" " ⊕ m[i-1][j]~=" " ⊕ m[i][j-1]~=" "

और अंत में, यदि उपरोक्त सभी का सही मूल्यांकन किया जाता है, तो टर्नरी वापस आ जाएगी जो कि अंतिम and-> में है m[i][j]। और, हम rपरेशान हैं :)

अब जब हमारे पास सांप का सिर है, तो हम दूसरे छोर तक पहुंच सकते हैं! सांप को Iterating मुख्य रूप से निम्नलिखित नेस्टेड ternaries द्वारा प्राप्त किया जाता है:

i,j=i<#m and m[i+1][j]~=s and i+1or i-1>0 and m[i-1][j]~=s and i-1or i,
    j<#m[i]and m[i][j+1]~=s and j+1or j-1>0 and m[i][j-1]~=s and j-1or j

हम फिर से सेट करते हैं iऔर jपुराने मूल्यों को संग्रहीत करने के लिए डमी की आवश्यकता से बचने के लिए वे दोनों एक ही संरचना हैं, और सरल परिस्थितियों का उपयोग करते हैं, इसलिए मैं उन्हें नेस्टेड के रूप में प्रस्तुत करूंगा if, यह आपको उन्हें पढ़ने की अनुमति देनी चाहिए और आसानी से। :)

i=i<#m and m[i+1][j]~=s and i+1or i-1>0 and m[i-1][j]~=s and i-1or i

इसका अनुवाद किया जा सकता है:

if(i<#m)
then
  if(m[i+1][j]~=" ")
  then
    i=i+1
  end
elseif(i-1>0)
then
  if(m[i-1][j]~=" ")
  then
    i=i-1
  end
end

झसे आज़माओ!

यह कोड मैं इसे चलाने के लिए उपयोग करता हूं, आप इसे कॉपी-पेस्ट करके ऑनलाइन परीक्षण कर सकते हैं ।

function f(m)t=2u=1i=1j=1s=" "::a::if s~=m[i][j]and(i<#m and m[i+1][j]~=s)~=(j<#m[i]and m[i][j+1]~=s)~=(i>1 and m[i-1][j]~=s)~=(j>1 and m[i][j-1]~=s)then goto b end
i,t=i%t+1,#m>t and t==i and t+1or t j=j>1 and j-1or u u=u<#m[1]and j==1 and u+1or u goto a::b::io.write(m[i][j])m[i][j]=s
i,j=i<#m and s~=m[i+1][j]and i+1or i>1 and s~=m[i-1][j]and i-1or i,j<#m[i]and s~=m[i][j+1]and j+1or j>1 and s~=m[i][j-1]and j-1or j
if s==m[i][j]then return end goto b end


test1={}
s1={
"  tSyrep    ",
"  r    p    ",
"  in Sli    ",
"   g    Sile",
"   Snakes  n",
"Ser      ylt",
"a eh   ilS  ",
"fe w   t    ",
"   emo h    ",
"     Sre    ",
     }
for i=1,#s1
do
  test1[i]={}
  s1[i]:gsub(".",function(c)test1[i][#test1[i]+1]=c end)
end
f(test1)

Comments

एक लंबे समय तक जवाब के लिए एक नरम स्थान होता है जो भाषा की पसंद के कारण अब कम पसंद करता है।

— मैट

@ समर्थन के लिए बहुत बहुत धन्यवाद! वास्तव में, मैं अभी भी इसे नीचे गोल्फ के तरीके खोज रहा हूँ, लेकिन यह कठिन और कठिन हो रहा है!

— काटनकेयो

Answer 9

लूआ, 267 बाइट्स

लुआ 5.3 आवश्यक है।

e=" "w=#arg[1]+1i=1/0q=0s=table.concat(arg,e)s=e:rep(#s)..s
m,n=i,{}for p in s:gmatch"()%g"do u=-1
for _,d in ipairs{-1,1,-w,w}do u=u+(s:find("^%S",d+p)or 0)end
n[p]=u+1m=math.min(m,p*i^(u//#s)+(p%w*w+p)*#s)end
p=m%#s repeat q,p=p,n[p]-q io.write(s:sub(q,q))until p<1

उपयोग:

$ lua desnakify.lua \
>    "  tSyrep    " \
>    "  r    p    " \
>    "  in Sli    " \
>    "   g    Sile" \
>    "   Snakes  n" \
>    "Ser      ylt" \
>    "a eh   ilS  " \
>    "fe w   t    " \
>    "   emo h    " \
>    "     Sre    "
SlipperyStringSnakesSilentlySlitherSomewhereSafe

Answer 10

पायथन 3, 245 243 241 236 बाइट्स

sइनपुट स्ट्रिंग है, nस्टडआउट के लिए मुद्रित आउटपुट है:

f=s.find
w,l=f('\n')+1,len(s)
t=1,w,-1,-w
y=z=f(s.strip()[0]);n=s[y];v={y}
for i in range(l*l):
 i%=l;c=s[i]
 if c>' 'and i not in v:
  if i-y in t:y=i;n=c+n;v|={i}
  elif i-z in t:z=i;n+=c;v|={i}
if y%w+y//w>z%w+z//w:n=n[::-1]
print(n)

संपादित करें: 5 बाइट्स बचाने के लिए @Cees टिमरमैन को धन्यवाद!

Comments

c>' 'andऔर print nपायथन में 2.

— सेस टिम्मरमैन

क्या आप इसके ifबजाय नहीं कर सकते elif?

— क्लिज्मिक

@ Qwerp-Derp दुर्भाग्य से नहीं, मैंने पहले भी इसे आज़माया है, लेकिन यह प्रिंट करता है, उदाहरण के लिए "! EkanSgnirtSAmAI, olleHello, IAmAStringSnake!" और "स्लिपरीस्टीसायरपिल्स"।

— 9

इनपुट प्रारूप क्या है?

— 9

@ Qwerp-Derp sवैरिएबल एक मल्टीलाइन स्ट्रिंग है; स्ट्रिंग का अंतिम चरित्र एक नई रेखा होना चाहिए (यह Pythonपरीक्षण मामले को पारित करने के लिए आवश्यक है )

— 9

Answer 11

अजगर, 537

मेरा प्रारंभिक समाधान:

from itertools import chain, product, ifilter
from operator import add
moves = ((1,0),(0,1),(-1,0),(0,-1))
h = dict(ifilter(lambda (p,v):not v.isspace(),chain(*map(lambda (i,r):map(lambda (j,c):((i,j),c),enumerate(r)),enumerate(s)))))
n = defaultdict(list)
for m,p in product(moves, h):
    np = tuple(map(add,m,p))
    if np in h:
        n[p].append(np)
def pr(nx):
    return(lambda l:(h[l[0]], h.pop(l[0]))[0] + pr(l[0]) if l else '')([x for x in n[nx] if x in h])
(lambda y: h[y]+ pr(y))(next(x for x in n if len(n[x])==1))

थोड़ा संकुचित, लेकिन इसे एक विधि के रूप में छोड़ दिया:

from itertools import chain, product
from operator import add
def unsnake(s):
    (h,n) = (dict(filter(lambda (p,v):not v.isspace(),chain(*map(lambda (i,r):map(lambda (j,c):((i,j),c),enumerate(r)),enumerate(s))))),defaultdict(list))
    for m,p in product(((1,0),(0,1),(-1,0),(0,-1)), h):(lambda np: n[p].append(np) if np in h else 0)(tuple(map(add,m,p)))
    def pr(nx):return(lambda l:(h[l[0]], h.pop(l[0]))[0] + pr(l[0]) if l else '')([x for x in n[nx] if x in h])
    return(lambda y: h[y]+ pr(y))(next(x for x in n if len(n[x])==1))

Answer 12

जावा 7, 927 924 923 बाइट्स

import java.util.*;int l,k;char[][]z;Set p=new HashSet();String c(String[]a){int x=0,y=0,n,t,u,v,w=t=u=v=-1;l=a.length;k=a[0].length();z=new char[l][k];for(String s:a){for(char c:s.toCharArray())z[x][y++]=c;}x++;y=0;}for(x=0;x<l;x++)for(y=0;y<k;y++){n=0;if(z[x][y]>32){if(x<1|(x>0&&z[x-1][y]<33))n++;if(y<1|(y>0&&z[x][y-1]<33))n++;if(x>l-2|(x<l-1&&z[x+1][y]<33))n++;if(y>k-2|(y<k-1&&z[x][y+1]<33))n++;}if(n>2&t<0){t=x;u=y;}if(n>2&t>v){v=x;w=y;}}if(v+w>t+u){p(t,u);return n(""+z[t][u],t,u);}p(v,w);return n(""+z[v][w],v,w);}String n(String r,int x,int y){int a,b;if(x>0&&z[a=x-1][b=y]>32&q(a,b)){p(a,b);return n(r+z[a][b],a,b);}if(y>0&&z[a=x][b=y-1]>32&q(a,b)){p(a,b);return n(r+z[a][b],a,b);}if(x<l-1&&z[a=x+1][b=y]>32&q(a,b)){p(a,b);return n(r+z[a][b],a,b);}if(y<k-1&&z[a=x][b=y+1]>32&q(a,b)){p(a,b);return n(r+z[a][b],a,b);}return r;}boolean q(int x,int y){return!p.contains(x+","+y);}void p(int x,int y){p.add(x+","+y);}

ठीक है, कि थोड़ी देर हो गई .. कुछ प्रोग्रामिंग भाषाओं में यह मायने नहीं रखता है कि आपकी सरणी x और y एक 2D-सरणी की सीमाओं के बाहर है, लेकिन जावा के साथ यह फेंक देगा ArrayIndexOutOfBoundsExceptions, इसलिए सब कुछ जांचना होगा ..

मैं पहले शुरुआती बिंदु निर्धारित करता हूं, और फिर वहां से स्ट्रिंग बनाने के लिए एक पुनरावर्ती विधि का उपयोग करता हूं। इसके अलावा, मैं पहले से ही सामना किए गए समन्वय का ट्रैक रखने के लिए एक सूची का उपयोग करता हूं, इसलिए यह एक लूप में आगे-पीछे-आगे (परिणामस्वरूप StackOverflowException में) नहीं जाएगा।

यह शायद अब तक का सबसे लंबा जवाब है, लेकिन हालांकि कुछ हिस्सों को गढ़ा जा सकता है, मुझे नहीं लगता कि यह चुनौती जावा में बहुत कम हो सकती है। जावा अभी ग्रिड में पथ का अनुसरण करने के लिए उपयुक्त नहीं है .. फिर भी यह पता लगाना एक मजेदार चुनौती थी। :)

अनगढ़ और परीक्षण के मामले:

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

import java.util.*;
class M{
  static int l,
             k;
  static char[][] z;
  static Set p = new HashSet();

  static String c(String[] a){
    int x=0,
        y=0,
        n,
        t,
        u,
        v,
        w = t = u = v = -1;
    l = a.length;
    k = a[0].length();
    z = new char[l][k];
    for(String s:a){
      for(char c:s.toCharArray()){
        z[x][y++] = c;
      }
      x++;
      y = 0;
    }
    for(x=0; x<l; x++){
      for(y=0; y<k; y++){
        n = 0;
        if(z[x][y] > 32){ // [x,y] is not a space
          if(x < 1 | (x > 0 && z[x-1][y] < 33)){
            n++;
          }
          if(y < 1 | (y > 0 && z[x][y-1] < 33)){
            n++;
          }
          if(x > l-2 | (x < l-1 && z[x+1][y] < 33)){
            n++;
          }
          if(y > k-2 | (y < k-1 && z[x][y+1] < 33)){
            n++;
          }
        }
        if(n > 2 & t < 0){
          t = x;
          u = y;
        }
        if(n > 2 & t > v){
          v = x;
          w = y;
        }
      }
    }
    if(v+w > t+u){
      p(t, u);
      return n(""+z[t][u], t, u);
    }
    p(v, w);
    return n(""+z[v][w], v, w);
  }

  static String n(String r, int x, int y){
    int a,b;
    if(x > 0 && z[a=x-1][b=y] > 32 & q(a,b)){
      p(a, b);
      return n(r+z[a][b], a, b);
    }
    if(y > 0 && z[a=x][b=y-1] > 32 & q(a,b)){
      p(a, b);
      return n(r+z[a][b], a, b);
    }
    if(x < l-1 && z[a=x+1][b=y] > 32 & q(a,b)){
      p(a, b);
      return n(r+z[a][b], a, b);
    }
    if(y < k-1 && z[a=x][b=y+1] > 32 & q(a, b)){
      p(a, b);
      return n(r+z[a][b], a, b);
    }
    return r;
  }

  static boolean q(int x, int y){
    return !p.contains(x+","+y);
  }

  static void p(int x, int y){
    p.add(x+","+y);
  }

  public static void main(String[] a){
    System.out.println(c(new String[]{ "Hel         ",
      "  l      rin",
      "  o,IAmASt g",
      "           S",
      "       !ekan" }));
    p = new HashSet();
    System.out.println(c(new String[]{ "Python" }));
    p = new HashSet();
    System.out.println(c(new String[]{ "P  ngPu  Code ",
      "r  i  z  d  G",
      "o  m  z  n  o",
      "gram  lesA  lf" }));
    p = new HashSet();
    System.out.println(c(new String[]{ "   ~ zyx tsr XWVUTSR",
      "   }|{ wvu q Y     Q",
      "!          p Z `ab P",
      "\"#$ 6789:; o [ _ c O",
      "  % 5    < n \\]^ d N",
      "('& 432  = m     e M",
      ")     1  > lkjihgf L",
      "*+,-./0  ?         K",
      "         @ABCDEFGHIJ" }));
    p = new HashSet();
    System.out.println(c(new String[]{ "  tSyrep    ",
      "  r    p   ",
      "  in Sli   ",
      "   g    Sile",
      "   Snakes  n",
      "Ser      ylt",
      "a eh   ilS ",
      "fe w   t   ",
      "   emo h   ",
      "     Sre    " }));
  }
}

आउटपुट:

Hello,IAmAStringSnake!
Python
ProgrammingPuzzlesAndCodeGolf
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
SlipperyStringSnakesSilentlySlitherSomewhereSafe

Comments

924 बाइट्स, जीसस क्राइस्ट ... लोल

— शॉन वाइल्ड

@BasicallyAlanTuring हेहे। मैंने केवल चुनौती दी, इसे कोड-गोल्फ किया, और फिर बाइट-काउंट को देखा। क्या वास्तव में उम्मीद से बहुत अधिक था, लेकिन अच्छी तरह से, कम से कम यह 1k से नीचे है ... यदि आप मुझे बेहतर बनाने के लिए कुछ भी देखते हैं, और यदि आपके पास एक वैकल्पिक दृष्टिकोण है (बहुत) कम बाइट्स एक अलग बनाने के लिए स्वतंत्र महसूस करते हैं पद; मैं इसे देखना चाहूंगा। पुनश्च: यह अब 923 बाइट्स है। XD

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

एवरीथिग की जांच करने की आवश्यकता नहीं है , बस अपनी स्ट्रिंग में कुछ पैडिंग जोड़ें। संभवत: सिंगल मल्टीलाइन स्ट्रिंग का उपयोग करने से यह आसान हो जाता है। मेरे सी # उत्तर पर एक नज़र डालें जो जावास्क्रिप्ट से

— चित्रित किया गया है

Answer 13

PHP, 199 184 182 बाइट्स

अभी भी थोड़ी गोल्फिंग क्षमता हो सकती है

for($w=strpos($i=$argv[1],"
");;)for($y=++$n;$y--;)if($i[$p=$y*$w+$n-1]>" ")break 2;for($p-=$d=$w++;$d&&print$i[$p+=$e=$d];)foreach([-$w,-1,1,$w,0]as$d)if($d+$e&&" "<$i[$d+$p])break;

कमांड लाइन से मल्टीलाइन स्ट्रिंग के रूप में इनपुट लेता है, लाइनक्स स्टाइल लाइनब्रेक्स की अपेक्षा करता है।
भागो php -r '<code>' '<string>'; भागने की लकीरें।

टूट - फूट

for(
    // find width
    $w=strpos($i=$argv[1],"\n")
    ;
    // find first character: initialize $p(osition)
    ;
)
    for($y=++$n             // increase distance
        ;$y--;)             // loop $y from (old)$n to 0
        if(" "<$i[$p=$y*$w+$n   // if character at $y*($width+1)+$x(=$d-$y) is no space
            -1                  // (adjust for the premature increment)
        ])
            break 2;                    // break loops

for(
    $p-=            // b) reverse the increment that follows in the pre-condition
    $d=             // a) initialize $d to anything!=0 to enable the first iteration
    $w++;           // c) increase $w for easier directions
    $d              // loop while direction is not 0 (cursor has moved)
    &&
    print$i[$p+=$e=$d]              // remember direction, move cursor, print character
    ;
)
    foreach([-$w,-1,1,$w,0]as$d)// loop through directions
        if($d+$e                    // if not opposite previous direction
            &&" "<$i[$d+$p]         // and character in that direction is not space
        )break;                     // break this loop

Answer 14

सी #, 310

(संपादित करें: बग फिक्स)

मल्टीलाइन स्ट्रिंग पैरामीटर के साथ एक फ़ंक्शन, एक स्ट्रिंग लौटाता है।

usingबाइट की गिनती में अनुरोध शामिल है ।

यह मेरे जावास्क्रिप्ट उत्तर का पोर्टिंग है।

using System.Linq;
string f(string s){int o=-~s.IndexOf('\n'),m=99;var r=new string(' ',o);(s=r+s+r).Select((c,i)=>{int n=2,e=0,p,w=i%o+i/o;if(c>' '&w<m&&new[]{-1,1,o,-o}.All(d=>(s[i+d]>' '?(e=d)*--n:n)>0))for(m=w,r=""+c+s[p=i+e];new[]{e,o/e,-o/e}.Any(d=>s[p+(e=d)]>' ');)r+=s[p+=e];return i;}).Max();return r;}

आइडोन पर टेस्ट

रिक्त स्थान के साथ

    string f(string s)
    {
        int o = -~s.IndexOf('\n');
        var r = new string(' ', o);
        var m = 99;
        (s = r + s + r).Select((c, i) =>
        {
            int n = 2, e = 0, p, w = i % o + i / o;
            if (c > ' ' & w < m & new[] { -1, 1, o, -o }.All(d => (s[i + d] > ' ' ? (e = d) * --n : n) > 0))
                for (m = w, r = "" + c + s[p = i + e]; 
                     new[] { e, o / e, -o / e }.Any(d => s[p + (e = d)] > ' '); 
                     ) 
                   r += s[p += e];
            return i;
        }
        ).Max();
        return r;
    }

Answer 15

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

w=s.find('\n')+1;q=' ';p=q*w+'\n';s=list(p+s+p);d=-w,1,w,-1
def r(x):c=s[x];s[x]=q;v=[c+r(x+o)for o in d if s[x+o]>q];return v[0]if v else c
e=[x for x in range(len(s))if s[x]>q and sum([s[x+o]>q for o in d])<2]
print r(e[e[0]/w+e[0]%w>e[1]/w+e[1]%w])

या, यदि आप अपने टेस्टकेस में 257 बाइट्स में अग्रणी स्थान चाहते हैं:

w=s.find('\n',1);q=' ';p=q*-~w+'\n';s=list(p+s[1:]+p);d=-w,1,w,-1
def r(x):c=s[x];s[x]=q;v=[c+r(x+o)for o in d if s[x+o]>q];return v[0]if v else c
e=[x for x in range(len(s))if s[x]>q and sum([s[x+o]>q for o in d])<2]
print r(e[e[0]/w+e[0]%w>e[1]/w+e[1]%w])

सभी टेस्टकेस पास करता है।

s="""
  tSyrep    
  r    p    
  in Sli    
   g    Sile
   Snakes  n
Ser      ylt
a eh   ilS  
fe w   t    
   emo h    
     Sre    
"""

का परिणाम:

SlipperyStringSnakesSilentlySlitherSomewhereSafe

Comments

मुझे लगता है कि आप की जगह ले सकता b.append(...)के साथ b+=[...]और def n(x,y):return ...साथn=lambda x,y:...

— acrolith

के लिए एक चर बनाएं ' '।

— पचोलिक

और ~-xइसके बजाय उपयोग करें x-1, आपको कोष्ठक का उपयोग नहीं करना पड़ेगा।

— पचोलिक

Answer 16

जाप -P , 106 बाइट्स

K=U·ÌÊÄ ç iU ¬mx T=[-KJ1K]
ËÊ*Tm+E è@gX
[]V£YÃf@gXÃrQ@WpQ Tm+Q kW fZ Ì}V£[XYuK YzK]ÃkÈv ÉÃñx v rÈ+Y*K
W£gX

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

यह ... उम ... एक घृणा है।

अनपैक्ड और यह कैसे काम करता है

K=UqR gJ l +1 ç iU q mx
  UqR gJ l +1            Split the input by newline, take last item's length +1
K=                       Assign to K
              ç iU       Generate a string of K spaces, and append to U
                   q mx  Split into chars, and trim whitespaces on each item
                         Implicit assign to U

T=[-KJ1K]  Assign an array [-K, -1, 1, K] to T (this represents 4-way movement)
           I could use implicit assignment, but then 4-argument function below is broken

UmDEF{Dl *Tm+E èXYZ{UgX
UmDEF{                   Map over the list of one- or zero-length strings...
      Dl *                 If the length is zero, return zero
          Tm+E             Add the index to each element of T
               èXYZ{UgX    Count truthy elements at these indices
                         The result is an array of 0(space/newline), 1(start/end), or 2(body)
                         Implicit assign to V

[]  Implicit assign to W

VmXYZ{Y} fXYZ{UgX} rQXYZ{WpQ Tm+Q kW fZ gJ }
VmXYZ{Y}                                      Map V into indices
         fXYZ{UgX}                            Filter the indices by truthiness of U's element
                   rQXYZ{                     Reduce on the indices... (Q=last item, Z=array)
                         WpQ                    Push Q to W
                             Tm+Q               Take 4-way movements from Q
                                  kW fZ gJ }    Exclude visited ones, take last one in Z

VmXYZ{[XYuK YzK]} kXYZ{Xv -1} ñx v rXYZ{X+Y*K  Starting point of reduce
VmXYZ{[XYuK YzK]}                              Convert elements of V to [elem, col, row]
                  kXYZ{Xv -1}                  Take the ones where elem(popped)=1
                              ñx v             Sort by row+col and take first one
                                   rXYZ{X+Y*K  Convert [row,col] back to the index

WmXYZ{UgX  Map indices back to chars

-P  Join with empty string

एक उल्लेखनीय बात यह है कि मैंने जेएस में असाइनमेंट और कॉमा ऑपरेटरों के बीच ऑपरेटर पूर्वता का उपयोग किया, ताकि कुछ पंक्तियों को पैक किया जा सके और शॉर्टकट @( XYZ{) प्रयोग करने योग्य रखा जा सके।