This is Markov.
Markov's golf ball rolls around randomly.
Markov's ball will hole however he strikes it.
Markov is smart.
Be like Markov.

А це:
мурашник на задньому дворі Ленґтона.
Мурашник достатньо великий, щоб утримувати Марківський гольфбол, MarGolf. Однак мурашник рухається і змінює напрямок залежно від навколишньої місцевості.

Завдання

Введіть поле 10x20:

• * Маргольф
• O Мурашник Лантона
• , Мурашник обертається на 90 градусів за годинниковою стрілкою
• . Мурашник обертається на 90 градусів проти годинникової стрілки
• 0 Маргольф у мурашника Лангтона

Поле виглядає так:

,...,.,,..,...,.,,..
..,.,,,..,...,..,.,.
.,,*.,....,.,,,.,,,.
,.,,.,...,,.,.,,,,,.
.,..,....,,.....,,.,
,.,.,...,..,.,,,,..,
....,,,,,,,,,.......
........,,.,...,...,
,,,,,,,,,,,,....,O.,
,.,.,.,.....,,.,,,,,

Правила гри:
Конфігурація поля введення називається галочкою 0. Вашій програмі потрібно оцінити та роздрукувати конфігурацію наступного галочки, в якій і Маргольф, і Мурашник Ленґтона перемістяться в іншу клітинку. Елемент у поточній комірці стане елементом, який наразі знаходиться в цільовій комірці. Якщо і MarGolf, і мурашник переходять до однієї клітини в наступному галочці, гра закінчується.

Правила пересування:

• Маргольф рухається випадковим чином. Усі дев'ять комірок в районі 3х3 навколо Маргольфа мають однакові шанси на вибір. Це стає вибором серед 6 комірок на краю поля та 4 комірок на куті.
• Мурашник Лангтона повинен пам’ятати його напрямок руху вгору, вниз, вліво або вправо (NSEW або будь-який інший еквівалент). Він переміщує одну клітинку у своєму напрямку кожен галочку, і вихідний вміст комірки змінює свій напрямок за годинниковою або проти годинникової стрілки, як зазначено вище. Початковий напрямок біля галочки 0 є випадковим, кожен напрямок має рівний шанс бути початковим.

Примітки

• Програмі потрібно роздрукувати конфігурацію кожного галочки, поки гра не закінчиться.
• Номер галочки передує конфігурації поля кожної галочки.
• Ви можете припустити, що введення завжди дійсне.
• Найкоротша програма - виграє байти.

Оновлення: забув згадати мурашник перевертати напрямок перед рухом, якщо він інакше піде з поля. Кредит користувачеві81655 за нагадування.

Java 10, 611 609 607 593 591 байт

m->{int x=0,y=0,X=0,Y=0,r=10,c,d=4,e;for(d*=Math.random();r-->0;)for(c=20;c-->0;){if(m[r][c]<43){x=r;y=c;}if(m[r][c]>48){X=r;Y=c;}}for(;;d=m[r][c]<45?d<2?d+2:d<3?1:0:d>1?d-2:d>0?2:3){p(m);for(e=4;e==4;e*=Math.random())e=9;m[r=x][c=y]=m[x+=e/3<1?x>0?-1:1:e/3>1?x<9?1:-1:0][y+=e%3<1?y>0?-1:1:e%3>1?y<19?1:-1:0];if(m[x][y]>48){m[x][y]=48;m[r][c]=0;p(m);e/=0;}m[x][y]=42;m[r=X][c=Y]=m[X+=d<1?X<9?1:-1:d==1?X>0?-1:1:0][Y+=d==2?Y<19?1:-1:d>2?Y>0?-1:1:0];if(m[X][Y]<43){m[r][c]=48;m[X][Y]=0;p(m);e/=0;}m[X][Y]=79;}}void p(char[][]m){var p="";for(var a:m)p+=p.valueOf(a)+"\n";System.out.println(p);}

-4 байти завдяки @ceilingcat .

Передбачає остаточну заміну *і Oспорожнить клітинку, звідки *надходить.

Пояснення:

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

m->{                        // Method with character-matrix parameter and no return-type
  int x=0,y=0,              //  [x,y] coordinates of MarGolf
      X=0,Y=0,              //  [X,Y] coordinates of Langton's Anthill
      r=10,c,               //  Temp [x,y] coordinates
      d=4,                  //  Direction Langton's Anthill
      e;                    //  Direction MarGolf
  for(d*=Math.random();     //  Set the direction Langton's Anthill randomly [0,3]
      r-->0;)               //  Loop over the rows:
    for(c=20;c-->0;){       //   Inner loop over the columns:
      if(m[r][c]<43){       //    If '*' is found:
        x=r;y=c;}           //     Set MarGolf's [x,y] coordinates
      if(m[r][c]>48){       //    If 'O' is found:
        X=r;Y=c;}}          //     Set Langton's Anthill's [X,Y] coordinates
  for(;                     //  Loop indefinitely:
       ;                    //    After every iteration:
        d=                  //     Change the direction of Langton's Anthill:
          m[r][c]<45?       //      If the swapped cell contained a comma:
           d<2?d+2:d<3?1:0  //       Change the direction clockwise
          :                 //      Else (the swapped cell contained a dot):
           d>1?d-2:d>0?2:3){//       Change the direction counterclockwise
  p(m);                     //  Pretty-print the matrix
  for(e=4;e==4;e*=Math.random())e=9;
                            //  Change direction MarGolf randomly [0-9] (excluding 4)
  m[r=x][c=y]               //  Save the current MarGolf coordinates
   =m[x+=e/3<1?x>0?-1:1:e/3>1?x<9?1:-1:0]
     [y+=e%3<1?y>0?-1:1:e%3>1?y<19?1:-1:0];
                            //  And change that cell to the content in direction `e`
                            //  0 to 9 (excl. 4) is NW,N,NE,W,n/a,E,SW,S,SE respectively
                            //  If `e` would go out of bounds, it moves opposite instead
  if(m[x][y]>48){           //  If MarGolf reached Langton's Anthill:
    m[x][y]=48;             //   Set that cell to '0'
    m[r][c]=0;              //   And empty the swapped cell
    p(m);                   //   Print the final status of the matrix
    e/=0;}                  //   And stop the loop with an error to exit the program
  m[x][y]=42;               //  Change the cell in the new coordinate to '*'
  m[r=X][c=Y]               //  Save the current Langton's Anthill coordinates
   =m[X+=d<1?X<9?1:-1:d==1?X>0?-1:1:0]
      [Y+=d==2?Y<19?1:-1:d>2?Y>0?-1:1:0];
                            //  And change that cell to the content in direction `d`
                            //  0 to 3 is E,W,S,N respectively
                            //  If `d` would be out of bounds, it moves opposite instead
  if(m[X][Y]<43){           //  If MarGolf reached Langton's Anthill:
    m[r][c]=48;             //   Set that cell to '0'
    m[X][Y]=0;              //   And empty the swapped cell
    p(m);                   //   Print the final status of the matrix
    e/=0;}                  //   And stop the loop with an error to exit the method
  m[X][Y]=79;}}             //  Change the cell in the new coordinate to 'O'

void p(char[][]m){          // Separated method to print the given matrix
  var p="";                 //  String to print, starting empty
  for(var a:m){             //  Loop over the rows:
    p+=p.valueOf(a)         //   Convert the character-array to a String line and append,
                     +"\n"; //   including a trailing newline
  System.out.println(p);}   //  Print the String with trailing newline as separator