Introdução

Eu tenho alguns carros ASCII que têm velocidade e direção. Sua velocidade é representada por seu número. Se um carro estiver <>, ele parou. Por exemplo:

<>
1>
2>
3>

Depois de um segundo, eu recebo

<>
 1>
  2>
   3>

Depois das duas, eu recebo

<>
  1>
    2>
      3>

Se dois carros estiverem muito próximos, eles colidem.

1> <1
1> <2

Após um segundo, isso se torna

 ###
 ##

Se dois carros se cruzam, eles se tornam hashtags onde seriam.

Se um carro é rápido o suficiente para "pular" sobre o outro, isso não resulta em um acidente.

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

torna-se

 <13>   ###     <>4>

Se um carro for deixado fora da tela, ele desaparecerá (a menos que haja um acidente). Não há como um carro sair da tela.

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

Desafio

Com base na física do carro, você deve criar um programa que possa demorar um segundo no futuro. A entrada serão carros com espaços e uma velocidade máxima de 5 (regex correspondente (<[1-5]|[1-5]>|<>| )+). A simulação ocorrerá em uma linha, no entanto, essa linha não tem tamanho fixo.

Casos de teste

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

Pontuação

Isso é código-golfe , então o código com o menor número de bytes vence!

JavaScript (ES6), 140 bytes

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

Experimente online!

Comentado

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 bytes

254 a 259 porque eu adicionei o caso de teste que não estava nos casos de teste que complicaram meu localizador de resultados regex

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)

Experimente online!

Retina , 178 bytes

^\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

Experimente online! O link inclui casos de teste. Explicação:

^\d([^>])
 $1

Manuseie o estojo de um carro saindo da esquerda.

T`5-1`d`<.

Temporariamente complementar os dígitos dos carros que se deslocam para a esquerda.

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

Coloque cada carro em sua própria linha ( $.`* $&¶) e adicione algum recuo, dependendo da velocidade do carro; carros em movimento à esquerda obtêm a velocidade complementada, enquanto carros em movimento obtêm 5 a mais que a velocidade.

T`d`5-1`<.

Descompacte os dígitos do carro em movimento à esquerda.

m`^.{0,5}

Mova todos os carros 5 para a esquerda. Isso corrige o recuo para todos os carros.

G`.

Exclua todos os carros que foram movidos para a esquerda.

N^$`
$.&

Classifique os carros restantes na ordem horizontal inversa.

{

Repita as etapas restantes até que todos os carros tenham sido processados.

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

Enquanto o próximo carro não bater, adicione-o ao resultado.

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

Adicione um carro batendo ao resultado.