दिशा परिवर्तक द्वारा बनाया गया एक रास्ता बनाएं

Question

यह चुनौती एक ग्रिड पर होती है।

+----------+
|          |
|          |
|          |
|          |
|          |
|          |
|          |
|          |
|          |
+----------+

यह 10 x 10 है, लेकिन यह किसी भी आयताकार आकार का हो सकता है।

इस ग्रिड पर चार दिशाएँ हैं। ऊपर, नीचे, बाएँ और दाएँ।

कार्य एक ऊपरी मामला दिशा प्रारंभिक के साथ शुरू करने के लिए एक रास्ता निकालना है। इस उदाहरण में, U से सीधे ऊपर की ओर जाएंगे।

+----------+
|          |
|          |
|          |
|          |
|          |
|          |
|          |
|          |
|   U      |
+----------+

पथ ऊपर की ओर जाएगा और पूर्ण-रोक पात्रों (।) से युक्त होगा, जब तक कि यह एक दीवार से टकराता नहीं है, जब यह एक तारांकन (*) के साथ समाप्त हो जाएगा।

+----------+
|   *      |
|   .      |
|   .      |
|   .      |
|   .      |
|   .      |
|   .      |
|   .      |
|   U      |
+----------+

पथ प्रारंभ के अलावा, दिशा परिवर्तक भी होते हैं, जो प्रारंभिक केस दिशा द्वारा दर्शाया जाता है।

+----------+
|          |
|          |
|          |
|   r.....*|
|   .      |
|   .      |
|   .      |
|   .      |
|   U      |
+----------+

इसके अलावा, एक ऊपरी मामला एक्स हमें एक बाधा है जो पथ को समाप्त कर देगा।

+----------+
|          |
|          |
|          |
|          |
|   r...*X |
|   .      |
|   .      |
|   .      |
|   U      |
+----------+

---

नियम

• इनपुट एक स्ट्रिंग है जिसमें एक फ्रेम होता है, (जिसमें, -, और + अक्षर शामिल होते हैं) में अक्षर होते हैं जो पथ को शुरू करने, दिशा बदलने, और बाधाओं को दर्शाता है।
• आपके कोड को प्रारंभ और दिशा परिवर्तक द्वारा वर्णित पथ का अनुसरण करने के लिए पूर्ण विराम वर्ण जोड़ना चाहिए, और जब पथ किसी दीवार या बाधा से मिलता है तो एक तारांकन चिह्न।
• कई रास्ते शुरू हो सकते हैं।
• यदि पथ लूप का वर्णन करता है, तो कोड अभी भी त्रुटि के बिना समाप्त होगा।
• यदि कोई पथ प्रारंभ से मिलता है, तो यह एक दिशा परिवर्तक के रूप में कार्य करेगा।
• यह कोड गोल्फ, कम-बाइट कोड और कोई मानक कमियां नहीं है, कृपया।
• मैं हमेशा ऑन-लाइन दुभाषिया के लिंक पसंद करता हूं।

---

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

1: सरल

+----------+
|          |
|          |
|          |
|          |
|          |
|          |
|          |
|          |
|   U      |
+----------+


+----------+
|   *      |
|   .      |
|   .      |
|   .      |
|   .      |
|   .      |
|   .      |
|   .      |
|   U      |
+----------+

2: राइट टर्न

+----------+
|          |
|          |
|          |
|   r      |
|          |
|          |
|          |
|          |
|   U      |
+----------+


+----------+
|          |
|          |
|          |
|   r.....*|
|   .      |
|   .      |
|   .      |
|   .      |
|   U      |
+----------+

3: चौराहा

+----------+
|          |
|          |
|          |
|   r  d   |
|          |
| u    l   |
|          |
|          |
|   U      |
+----------+


+----------+
| *        |
| .        |
| .        |
| . r..d   |
| . .  .   |
| u....l   |
|   .      |
|   .      |
|   U      |
+----------+

4: 4 क्रॉसिंग पथ

+----------+
|      D   |
|          |
|          |
|R         |
|          |
|         L|
|          |
|          |
|   U      |
+----------+


+----------+
|   *  D   |
|   .  .   |
|   .  .   |
|R........*|
|   .  .   |
|*........L|
|   .  .   |
|   .  .   |
|   U  *   |
+----------+

5: पहला लूप

+----------+
|          |
|          |
|          |
|   r  d   |
|          |
|   u  l   |
|          |
|          |
|   U      |
+----------+

+----------+
|          |
|          |
|          |
|   r..d   |
|   .  .   |
|   u..l   |
|   .      |
|   .      |
|   U      |
+----------+

6: चेंजर के रूप में स्टार्टर

+----------+
|          |
|          |
|          |
|   L      |
|          |
|          |
|          |
|          |
|   U      |
+----------+


+----------+
|          |
|          |
|          |
|*..L      |
|   .      |
|   .      |
|   .      |
|   .      |
|   U      |
+----------+

7: सीधे लूप

+----------+
|          |
|          |
|          |
|          |
|   r  l   |
|          |
|          |
|          |
|   U      |
+----------+


+----------+
|          |
|          |
|          |
|          |
|   r..l   |
|   .      |
|   .      |
|   .      |
|   U      |
+----------+

8: तंग गाँठ

+----------+
|          |
|          |
|          |
|  d  l    |
|   r u    |
|  r u     |
|          |
|          |
|   U      |
+----------+


+----------+
|    *     |
|    .     |
|    .     |
|  d..l    |
|  .r.u    |
|  r.u     |
|   .      |
|   .      |
|   U      |
+----------+

9: एक बाधा

+----------+
|          |
|          |
|          |
|          |
|   r    X |
|          |
|          |
|          |
|   U      |
+----------+


+----------+
|          |
|          |
|          |
|          |
|   r...*X |
|   .      |
|   .      |
|   .      |
|   U      |
+----------+ 

10: एस आकार

+----------+
|r     d   |
|          |
|  XXXXXXXX|
| d      l |
|ul        |
|XXXXXXX   |
|          |
|R       u |
|          |
+----------+


+----------+
|r.....d   |
|.     *   |
|. XXXXXXXX|
|.d......l |
|ul      . |
|XXXXXXX . |
|        . |
|R.......u |
|          |
+----------+

11: 4-वे गाँठ

+----------+
|      D   |
|          |
|   r      |
|R    d    |
|          |
|    u    L|
|      l   |
|          |
|   U      |
+----------+


+----------+
|    * D   |
|    . .   |
|   r.....*|
|R....d.   |
|   ....   |
|   .u....L|
|*.....l   |
|   . .    |
|   U *    |
+----------+

12: व्यस्त जंक्शन

+----------+
|rrrrr rrrd|
| rlrl     |
|ul rrd    |
|ruX X     |
|udl ll    |
|ull       |
|rlr       |
|rdr  d    |
|Uruull    |
+----------+


+----------+
|rrrrr.rrrd|
|.rlrl    .|
|ul rrd   .|
|ruX.X.   .|
|udl.ll   .|
|ull.     .|
|rlr.     .|
|rdr..d   .|
|Uruull   *|
+----------+

13: एज में शुरू होता है

+----------+
|   U      |
|          |
|          |
|          |
|          |
|          |
|          |
|          |
|          |
+----------+

+----------+
|   U      |
|          |
|          |
|          |
|          |
|          |
|          |
|          |
|          |
+----------+

14: डेड पाथ को पार करना

+----------+
|          |
|          |
|          |
|      R   |
|          |
|          |
|          |
|          |
|         U|
+----------+


+----------+
|         *|
|         .|
|         .|
|      R..*|
|         .|
|         .|
|         .|
|         .|
|         U|
+----------+

Comments

@TFeld जोड़ा गया, धन्यवाद!

— AJFaraday

ऐसा लगता है कि आपके परीक्षण मामलों में सभी दिशा परिवर्तक हमेशा पहुंच जाते हैं, जो एल्गोरिथ्म को सरल बनाने की अनुमति दे सकता है। मैं एक परीक्षण के मामले को जोड़ने का सुझाव दूंगा जहां यह सच नहीं है।

— अरनुलद

@Arnauld मुझे पूरा यकीन है कि मामले में कुछ अप्रयुक्त दिशा परिवर्तक 12 हैं

— AJFaraday

सुझाए गए

— टेस्टकेस

यह कहा जाता है कि ग्रिड किसी भी आयताकार आकार का हो सकता है, लेकिन सभी परीक्षण मामले आकार और आकार में समान प्रतीत होते हैं।

— गैस्ट्रोपनर

Answer 1

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

बग को ठीक करने में मदद करने के लिए @tsh को धन्यवाद

वर्णों के मैट्रिक्स के रूप में इनपुट लेता है। इनपुट को संशोधित करके आउटपुट।

f=(a,X,Y,d,n=0)=>a.map((r,y)=>r.map((v,x)=>(a+0)[i=' .*dlurDLUR'.indexOf(v),n]?X?X-x+~-d%2|Y-y+(d-2)%2?0:~i?f(a,x,y,i>2?i&3:d,n+1,r[x]=i?v:'.'):n?a[Y][X]='*':0:i>6&&f(a,x,y,i&3):0))

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

टिप्पणी की गई

f = ( a,                           // a[]  = input matrix
      X, Y,                        // X, Y = coordinates of the previous cell
      d,                           // d    = current direction (0 .. 3)
      n = 0                        // n    = number of iterations for the current path
    ) =>                           //
  a.map((r, y) =>                  // for each row r[] a position y in a[]:
    r.map((v, x) =>                //   for each character v at position x in r[]:
      (a + 0)[                     //
        i = ' .*dlurDLUR'          //     i = index of the character
            .indexOf(v),           //     blocking characters '-', '|' and 'X' gives -1
        n                          //     by testing (a + 0)[n], we allow each cell to be
      ]                            //     visited twice (once horizontally, once vertically)
      ?                            //     if it is set:
        X ?                        //       if this is not the 1st iteration:
          X - x + ~-d % 2 |        //         if x - X is not equal to dx[d]
          Y - y + (d - 2) % 2 ?    //         or y - Y is not equal to dy[d]:
            0                      //           ignore this cell
          :                        //         else:
            ~i ?                   //           if this is not a blocking character:
              f(                   //             do a recursive call:
                a,                 //               pass a[] unchanged
                x, y,              //               pass the coordinates of this cell
                i > 2 ? i & 3 : d, //               update d if v is a direction char.
                n + 1,             //               increment n
                r[x] = i ? v : '.' //               if v is a space, set r[x] to '.'
              )                    //             end of recursive call
            :                      //           else (this is a blocking character):
              n ?                  //             if this is not the 1st iteration:
                a[Y][X] = '*'      //               set the previous cell to '*'
              :                    //             else:
                0                  //               do nothing
        :                          //       else (1st iteration):
          i > 6 &&                 //         if v is a capital letter:
            f(a, x, y, i & 3)      //           do a recursive call with this direction
      :                            //     else ((a + 0)[n] is not set):
        0                          //       we must be in an infinite loop: abort
    )                              //   end of inner map()
  )                                // end of outer map()

Comments

btw, [...""+a].mapकम से कम 2x लंबाई के साथ एक सरणी बना सकता है। मुझे यकीन नहीं है कि यह मदद करता है।

— tsh

(a+0)[n]एक बाइट को बचाता है, भले ही nअब इसे आरंभ करने की आवश्यकता है।

— अरनौल

Answer 2

पायथन 2 , 283 279 293 288 279 बाइट्स

e=enumerate
def f(M):
 s=[(x,y,c)for y,l in e(M)for x,c in e(l)if'A'<c<'X'];v=set(s)
 for x,y,C in s:
	d=ord(C)%87%5;q=d>1;X,Y=x-d+q*3,y+~-d-q;c=M[Y][X];N=(X,Y,[C,c]['a'<c<'x'])
	if'!'>c:M[Y][X]='.'
	if(c in'-|X')*('/'>M[y][x]):M[y][x]='*'
	if(c in'udlr. *')>({N}<v):v|={N};s+=N,

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

सूचियों की एक सूची लेता है।

इनपुट सरणी को संशोधित करके आउटपुट।

Answer 3

पर्ल 5, 203 188 166 बाइट्स

$l='\K[ a-z](?=';$t='([-|X])?';$s=$_;/
/;$n='.'x"@-";{$_|=s/(?|R[.*]*$l$t)|$t${l}[.*]*L)|D$n(?:[.*]$n)*$l$n$t)|$t$n$l$n([.*]$n)*U))/$&eq$"?$1?'*':'.':uc$&/es?redo:$s}

TIO

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

• $s=$_$sलोअरकेस चेंजर्स को पुनर्स्थापित करने के लिए इनपुट को बचाने के लिए। $_|=$sक्योंकि बिटवाइज़ या स्पेस नहीं बदलेगा .और *, लोअरकेस अक्षरों urldको बिटवाइज़ या ऑपरेशन के साथ रिस्टोर किया जाएगा।
• /\n/;$n='.'x"@-""चौड़ाई" प्राप्त करने के लिए और $nकिसी भी चरित्र "चौड़ाई" बार मिलान करने के लिए
• $l='\K[ a-z](?=';$t='([-|X])?'रेगेक्स की लंबाई कम करने के लिए; एक टर्मिनेटर से मेल करने के लिए $lएक लोअरकेस पत्र urldया पथ पर एक स्थान $tका मिलान करने के लिए।

प्रतिस्थापन के बाद: (?| R[.*]*\K[ a-z](?=([-|X])?) | ([-|X])?\K[ a-z](?=[.*]*L) | D$n(?:[.*]$n)*\K[ a-z](?=$n([-|X])?) | ([-|X])?$n\K[ a-z](?=$n([.*]$n)*U) )

• /eeval पर स्विच करता है, /sताकि .(अंदर $n) मेल भी एक नया चरित्र हो
• $&eq$"?$1?'*':'.':uc$&यदि मिलान किया हुआ स्थान है, यदि टर्मिनेटर मेल खाता *है तो .अन्यथा अपरकेस।

Comments

@Arnauld, यह काम करता है यदि आप एक बार में एक टेस्ट केस इनपुट करते हैं।

— शैगी

हाँ, मैंने जल्दी से पोस्ट किया और यह जाँच नहीं कर सका कि यह $sफ़ूटर में रीसेट करना तय है । $sइनपुट को सहेजने के लिए और लोअरकेस अक्षरों को फिर से

— जोड़ने के

Answer 4

साफ , 409 बाइट्स

import StdEnv,Data.List
q=flatlines
$m=foldl(zipWith\a b|a=='*'||b=='*'='*'=max a b)(q m)[q(foldl(\m(_,y,x)=[[if(b<>x||a<>y)if(k=='*')'.'k'*'\\k<-r&b<-[0..]]\\r<-m&a<-[0..]])m(last(takeWhile(not o hasDup)(inits(f 0y 0x)))))\\l<-m&y<-[0..],c<-l&x<-[0..]|isUpper c]
where f a y b x=let(u,v)=(a+y,b+x)in(case toLower((m!!u)!!v)of' '=[((a,b),u,v):f a u b v];'r'=f 0u 1v;'l'=f 0u -1v;'u'=f -1u 0v;'d'=f 1u 0v;_=[])

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

Answer 5

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

def f(G,e=enumerate):
 for i,k in e(G):
	for j,l in e(k):
	 v=X=x=y=m,=l,
	 while(m in'-X|')<(l in'DLRU')>(X in v):v+=X,;y,x=zip((1,0,0,-1,y),(0,-1,1,0,x))['DLRU dlru'.find(m)%5];G[i][j]=(m,'.*'[G[i+y][j+x]in'-X|'])[m<'!'];i+=y;j+=x;X=x,i,j;m=G[i][j]

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

ओपी द्वारा स्पष्ट रूप से अनुमत 1-चार तारों की सूची की सूची लेता है।

सूची में जगह बदलता है।

आसान I / O के लिए, इसका उपयोग करें ।