25

Цей виклик відбувається в сітці.

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

Це 10 x 10, але він може бути будь-якої прямокутної форми.

У цій сітці є чотири напрямки. Вгору, вниз, вліво і вправо.

Завдання полягає в тому, щоб намалювати шлях, починаючи з початкового напрямку верхнього регістру. У цьому прикладі піде прямо вгору від U.

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

Шлях піде вгору і буде складатися з символів повного стопу (.), Поки він не потрапить у стіну, коли він закінчиться зірочкою (*).

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

Окрім запуску шляху, є також змінні напрямків, представлені початковим напрямком нижнього регістру.

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

Також верхній регістр X нам перешкода, яка припинить шлях.

+----------+
|          |
|          |
|          |
|          |
|   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: S Shape

+----------+
|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|
+----------+

code-golf

— AJFaraday
джерело

@TFeld Додано, дякую!

— AJFaraday

1

Схоже, що у ваших тестових випадках завжди змінюються змінні напрямків, що могло б спростити алгоритм. Я б запропонував додати тестовий випадок, коли це неправда.

— Арнольд

@Arnauld Я впевнений, що у випадку 12. є кілька невикористаних

— змінників

1

запропонований тестовий

— зразок

3

Зазначено, що сітка може мати будь-яку прямокутну форму, але всі тестові випадки здаються однаковими за розмірами та формою.

— гастропнер

9

JavaScript (ES6), 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()

— Арнольд
джерело

btw, [...""+a].mapможе створити масив принаймні 2x довжиною a. Я не впевнений, чи допомагає це.

— tsh

(a+0)[n]зберігає байт, хоча nзараз його потрібно ініціалізувати.

— Арнольд

8

Python 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,

Спробуйте в Інтернеті!

Бере список списків.

Виводиться шляхом зміни вхідного масиву.

— TFeld
джерело

6

Perl 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}

ТІО

Як це працює

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

перемикається /eна eval, /sтак що .(всередині $n) також відповідає символу нового рядка
$&eq$"?$1?'*':'.':uc$&в разі відповідності є простором, якщо termiator відповідає *інакше в .іншому випадку в верхньому регістрі.

— Нахуель Фуле
джерело

1

@Arnauld, він працює, якщо ви вводите по одному тестовому випадку.

— Кудлатий

так, я швидко розмістив повідомлення і не міг перевірити, чи виправлено це перезавантаження $sв колонтитулі. $sвикористовується для збереження введення та відновлення малих літер, оскільки під час малювання контуру вони перемикаються на великі літери

— Nahuel Fouilleul

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;_=[])

Спробуйте в Інтернеті!

— Οurous
джерело

3

Python 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-рядових рядків, як це чітко дозволено ОП.

Змінює список на місці.

Для легшого вводу / виводу використовуйте це .

— Ерік Аутгольфер
джерело

Намалюйте шлях, зроблений змінниками напрямку

Правила

Випробування

1: Просте

2: Правий поворот

3: Перехрестя

4: 4 Перехрестя шляхів

5: Перша петля

6: Стартер як зміна

7: Пряма петля

8: Тугий вузол

9: Перешкода

10: S Shape

11: 4-х напрямний вузол

12: Зайняті перехрестя

13: Починає в край

14: Перетинання мертвих шляхів

JavaScript (ES6), 191 183 181 байт

Прокоментував

Python 2 , 283 279 293 288 279 байт

Perl 5, 203 188 166 байт

Чистота , 409 байт

Python 2 , 250 байт