Последовательность пойманного рыцаря

10

Введение

Вдохновленный недавним видео The Trapped Knight - Numberphile , я столкнулся с проблемой.

Ловушка последовательность рыцаря есть конечная целое число последовательность длины 2016 года, начиная с 1, и имеет следующие правила строительства:

  1. Напишите числовую спираль следующим образом:
17 16 15 14 13 ...
18  5  4  3 12 ...
19  6  1  2 11 ...
20  7  8  9 10 ...
21 22 23 24 25 ...
  1. Поместите рыцаря на 1.
  2. Переместите коня в сетку с наименьшим числом, которое он может пройти, которого не посещали ранее, согласно правилам шахмат (то есть 2 единицы по вертикали и 1 единица по горизонтали, или наоборот).
  3. Повторяйте, пока рыцарь не застрянет.

Вот первые три шага:

Шаг 1

 17  [16]  15  [14]  13 
[18]   5    4    3  [12]
 19    6  < 1>   2   11 
[20]   7    8    9  [10]
 21  [22]  23  [24]  25 

Возможные ходы: 10, 12, 14, 16, 18, 20, 22, 24, среди которых наименьшее - 10, поэтому второе слагаемое - 10.

Шаг 2

  4  [ 3]  12  [29]  54
( 1)   2   11   28  [53] 
  8    9  <10>  27   52 
[23]  24   25   26  [51] 
 46  [47]  48  [49]  50 

Возможные ходы: 1 , 3, 23, 29, 47, 49, 51, 53, среди которых наименьшее - 3, поэтому третий член - 3.

Шаг 3

 35  [34]  33  [32]  31 
[16]  15   14   13  [30] 
  5    4  < 3>  12   29 
[ 6] ( 1)   2   11  [28] 
  7  [ 8]   9  (10)  27 

Возможные ходы: 6, 8, 10 , 16, 28, 30, 32, 34, среди которых наименьшее - 6, поэтому четвертый член - 6.

Последовательность звездочек с:

1 10 3 6 9 4 7 2 5 8 11 14 ...

и заканчивается

... 2099 2284 2477 2096 2281 2474 2675 2884 3101 2880 2467 2084

Вызов

Напишите самую короткую программу или функцию, получив в качестве входного значения целое число в диапазоне [1, 2016](или, [0, 2015]если используется 0-индексированный), выведите число с этим индексом в захваченной последовательности коня. Вы можете выбрать индексирование последовательности с 0-индексированием или 1-индексированием, но вы должны указать, какую схему индексации вы используете.

Контрольные примеры (1-индексированные)

n    | s(n)
-----+-----
   1 |    1
   2 |   10
   3 |    3
   6 |    4
  11 |   11
  21 |   23
  51 |   95
 101 |   65
 201 |  235
 501 |  761
1001 | 1069
2001 | 1925
2016 | 2084

Для всех возможных выходов, пожалуйста, обратитесь к этой странице .

Критерии победы

Самый короткий код каждого языка выигрывает. Применяются ограничения на стандартные лазейки.

Сиеру Асакото
источник
1
@Arnauld Этот вопрос был вдохновлен моим (как указано), только быстрее стать основным. Кроме того, эта последовательность конечна, поэтому некоторые аспекты игры в гольф могут отличаться в этом смысле.
Сиеру Асакото
1
Другая последовательность также конечна, останавливаясь на площади12851850258
Джо Кинг
2
@JoKing Хорошо, но поскольку это останавливается довольно быстро, я хотел бы видеть ответы в эзолангах с меньшими целочисленными диапазонами (есть ли эзоланги, реализующие 16-битные целые числа?)
Ширу Асакото
1
Что ж, если этот вопрос был опубликован первым в песочнице, это не значит, что дураком будет другой вопрос ?
Луис Фелипе Де Иисус Муньос

Ответы:

4

JavaScript (ES7),  182  181 байт

f=(n,[x,y]=[2,1],a=[...Array(4e3)].map((_,n)=>[1,-1].map(s=>(i&1?-s:s)*(i+s*n-(n>0?n:-n)>>1),i=n**.5|0,n-=i*++i)))=>n--?f(n,a.find(([X,Y],j)=>(i=j,(x-X)*(y-Y))**2==4),a,a[i]=[]):i+1

Попробуйте онлайн!

Как?

Немного измененная версия моего ответа на «Путь антилопы гну» определенно короче (и быстрее). Но я хотел попробовать другой подход. Между прочим, я думаю, что может быть проще реализовать этот метод в некоторых esolangs.

Алгоритм:

  1. 3199
  2. (Икс,Y)

    ((Икс-Икс)×(Y-Y))2знак равно4

    (Икс,Y)

    |Икс-Икс|знак равно1|Y-Y|знак равно2|Икс-Икс|знак равно2|Y-Y|знак равно1

  3. (Икс,Y)знак равно(Икс,Y)

  4. Мы либо перезапускаем на шаге 2, либо возвращаем последний найденный индекс, если все готово.


Node.js , 155 байт

n=>(g=(x,y)=>n--?g(Buffer('QHUbcdWJ').map(m=c=>g[i=4*((x+=c%6-2)*x>(y+=c%7-2)*y?x:y)**2,i-=(x>y||-1)*(i**.5+x+y)]|i>m||(H=x,V=y,m=i))|H,V,g[m]=1):m+1)(1,2)

Попробуйте онлайн!

Arnauld
источник
3

05AB1E , 53 байта

Xˆ0UF2D(Ÿ0KãʒÄ1¢}εX+}Dε·nàDtyÆ+yO·<.±*->}D¯KßDˆkèU}¯θ

32θN+1

Попробуйте онлайн или проверьте еще несколько тестовых случаев (время ожидания для самых больших тестовых случаев).

Объяснение:

См. Объяснение в моем связанном ответе «Путь гну» . Единственными модифицированными частями являются:

2D    # Get a list in the range [-2,2]: [-2,-1,0,1,2]

и завершающий:

θ       # Only leave the last item of the list

РЕДАКТИРОВАТЬ: порт подхода @Arnauld в своем ответе JavaScript (ES7) является (в настоящее время):

05AB1E , 57 56 байт

0D‚DˆUF64D(ŸãΣ·nàDtyÆ+yO·<.±*->}©ʒX-Pn4Q}¯¡˜2£DˆU}®J¯Jk>θ

Попробуйте онлайн или проверьте еще несколько тестовых случаев (время ожидания для самых больших тестовых случаев).

Объяснение:

‚%                # Create a pair of zeros: [0,0]
                  # (by pairing the (implicit) input with itself,
                  #  and then using modulo (implicit) input)
  DˆU             # Set both variable `X` to this, and add it to the global_array
F                 # Loop the (implicit) input amount of times:
 64D            #  Create a list in the range [-64,64]
      ã           #  Create each possible pair of `x,y`-coordinates
       Σ·nàDtyÆ+yO·<.±*->}
                  #  Sort this list in a spiral
        ©         #  Save it in the register (without popping)
 ʒ      }         #  Filter the list of coordinates by:
  X-              #   Subtract the coordinate of variable `X`
    P             #   Take the product
     n            #   Take the square
      4Q          #   Check if its equal to 4
                  # Since 05AB1E cannot remove inner lists, we use a workaround:
         ¯¡       # Split this list on each coordinate in the global_array
           ˜      # Flatten the entire list
            2£    # Only leave the first two integers as `x,y`-coordinate
                  # (if 05AB1E could remove inner lists, this would've been `¯Kн` instead)
              DˆU # Replace variable `X` with this, and add it to the global_array
                # After the loop: push all coordinates sorted in a spiral from the register
  J               # Join each coordinate together to a string
   ¯J             # Push the global_array, and also join them together to a string
                  # (if 05AB1E could index inner lists, both `J` could have been removed)
     k            # Get the index of each item of the global_array in the spiral list
      >           # Increase the 0-indexed index by 1 to make it 1-based
       θ          # And only leave the last one (which is output implicitly)

Σ·nàDtyÆ+yO·<.±*->}Икс,Y

Кевин Круйссен
источник