Вступ

У мене є кілька автомобілів ASCII, які мають швидкість і напрямок. Їх швидкість представлена ​​їх кількістю. Якщо автомобіль, <>то він зупинився. Наприклад:

<>
1>
2>
3>

Через одну секунду я дістаю

<>
 1>
  2>
   3>

Після двох я отримую

<>
  1>
    2>
      3>

Якщо дві машини занадто близько, вони розбиваються.

1> <1
1> <2

Через секунду це стає

 ###
 ##

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

Якщо одна машина досить швидка, щоб «перестрибнути» над іншою, це не призведе до аварії.

3><1   2><1   4><>

стає

 <13>   ###     <>4>

Якщо автомобіль залишається поза екраном, він зникає (якщо не відбудеться аварія). Немає можливості, щоб машина їхала прямо за межі екрана.

 <11>
<1  1>
1    1>
      1>

Виклик

Виходячи з даної фізики автомобілів, ви повинні створити програму, яка може за крок заступити одну секунду в майбутнє. Вхідні дані будуть машини з пробілами і максимальною швидкістю 5 (відповідність регулярному вираженню (<[1-5]|[1-5]>|<>| )+). Моделювання відбуватиметься на одній лінії, проте ця лінія не має фіксованого розміру.

Тестові справи

<> 1> 2> 3> 4> 5>
<>  1>  2>  3>  4>  5>

1><1   1> <1   1>  <1
 ##     ###     1><1

2><2   2> <2   2>  <2   2>   <2   2>    <2
<22>    ###      ##       ###       2><2

<22>  <1 3>   <2
    ###     ##

<><>     1><>     2><>     3><>     4><>     5><>
<><>      ###       ##       ###      <>4>     <> 5>

<><1 <2 <3 <4 <5
###<2<3<4<5

Оцінка балів

Це є код-гольф, тож код з найменшою кількістю байтів виграє!

JavaScript (ES6), 140 байт

s=>[...s.replace(/\S./g,([a,b],i)=>r[r[i+=+b?-b:~~a]=r[i]?C:a,++i]=r[i]?C:b,r=[],C='#')&&r].map((c,i)=>c?r[i-1]==C|r[i+1]==C?C:c:' ').join``

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

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

s =>                      // given the input string s
  [ ...s.replace(         // search in s ...
    /\S./g,               //   ... all substrings consisting of 2 non-whitespace characters
    ([a, b], i) =>        //   let a be the 1st character, b the 2nd one and i the position
      r[                  //   update r[]:
        r[i +=            //     apply the car velocity to i:
          +b ? -b         //       if b is a digit, then move b cells backwards
                  : ~~a   //       else: use a to move forwards (or don't move at all)
        ] = r[i] ? C : a, //     if r[i] is set, overwrite it with '#'; otherwise, insert a
        ++i               //     increment i for the 2nd character
      ] = r[i] ? C : b,   //     if r[i] is set, overwrite it with '#'; otherwise, insert b
      r = [],             //   initialize r[] to an empty array
      C = '#'             //   define C as the 'crash' character
  ) && r ]                // end of replace(); return a fully iterable copy of r[]
  .map((c, i) =>          // for each entry c at position i in this array:
    c ?                   //   if c is defined:
      r[i - 1] == C |     //     if either the previous
      r[i + 1] == C ?     //     or the next cell is '#' (in the original array):
        C                 //       replace the current cell with '#'
      :                   //     else:
        c                 //       let c unchanged
    :                     //   else:
      ' '                 //     insert a space
  ).join``                // end of map(); join the result

JavaScript (Node.js) , 259 байт

254 до 259, тому що я додав тестовий випадок, який не був у тестах, які ускладнили мій результат пошуку регексу

s=>{
c=[]
n=[S=""]
s.replace(/<?\d>?|<>/g,([d,D],i)=>d>0?g(i+ +d,d)+g(i-~d,D):g(i-~~D,d)+g(i-~~D+1,D))
for(i of n)S+=i||" "
return S.replace(/1?[2-9]*1?/g,(d,i)=>d>"1".repeat(l=d.length)?"#".repeat(l):c.slice(i,i+l).join``)}
g=(x,p)=>x<0||(n[x]=-~n[x],c[x]=p)

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

Сітківка , 178 байт

^\d([^>])
 $1
T`5-1`d`<.
 *(<(\d)|((\d)>|<>))
$2* $#3*5* $4* $.`* $&¶
T`d`5-1`<.
m`^.{0,5}

G`.
N^$`
$.&
{+m`\A( *)  (.*)¶\1(..?)$
$1$3$2
m`^\A( *)( *)..(.*)¶\1(..?)$
$1##$.2*#$3

Спробуйте в Інтернеті! Посилання включає тестові випадки. Пояснення:

^\d([^>])
 $1

Обробляйте корпус автомобіля, який рухається ліворуч.

T`5-1`d`<.

Тимчасово доповнити цифри автомобілів, що рухаються зліва.

 *(<(\d)|((\d)>|<>))
$2* $#3*5* $4* $.`* $&¶

Поставте кожне авто на свій рядок ( $.`* $&¶) і додайте відступ залежно від швидкості руху машини; Автомобілі, що рухаються зліва, отримують доповнену швидкість, в той час як автомобілі, що рухаються, отримують на 5 більше швидкості.

T`d`5-1`<.

Не виконайте цифри автомобіля, що рухається ліворуч.

m`^.{0,5}

Перемістіть усі машини 5 ліворуч. Це фіксує відступ для всіх автомобілів.

G`.

Видаліть усі автомобілі, які з'їхали зліва.

N^$`
$.&

Сортуйте залишки автомобілів у зворотному горизонтальному порядку.

{

Повторіть решту етапів, поки всі машини не будуть оброблені.

+m`\A( *)  (.*)¶\1(..?)$
$1$3$2

Поки наступний автомобіль не вріжеться, додайте його до результату.

m`^\A( *)( *)..(.*)¶\1(..?)$
$1##$.2*#$3

Додайте збій автомобіля до результату.