За порадою пані Пак-Ман, яка переживає за те, щоб він набрав зайву вагу, Пак-Ман вирішив слідкувати за щоденним прийомом Пак-Дота. Допоможіть йому порахувати кількість Pac-Dots на заданому шляху в лабіринті!

Лабіринт

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

Подорож Пак-Мана

У контексті цього виклику застосовуються такі правила:

• По-перше, гарна новина: привидів там немає.
• Пак-Ман завжди починає свою гонку у положенні, зазначеному на малюнку вище, спрямовуючись на Схід. У вихідному положенні немає Pac-Dot.
• Поки він прямує прямим шляхом, він продовжує просуватися до наступних квадратів.
• Коли він стикається з поворотом на 90 ° без іншого доступного шляху (помаранчеві квадрати на карті), він автоматично та систематично здійснює поворот.
• Коли він стикається з перехрестям, де є кілька шляхів (зелені квадрати на карті), він може продовжувати в тому ж напрямку - якщо це можливо - або обрати інший напрямок (у тому числі робити поворот).
• Коли Pac-Man проходить через один з виходів на середній лівій або середній правій частині лабіринту, він негайно з’являється на протилежному боці.
• Pac-Man з'їдає всі Pac-Dots на шляху, який він йде. Після того, як Pac-Dot був з'їдений, його видаляють з лабіринту.

Змагання

Вхідні дані

Вам видадуть рядок, що описує поведінку Пак-Мана на місцях стику, до якого він збирається досягти. Цей рядок буде складатися з таких символів:

• L: зробіть поворот на 90 ° вліво
• R: зробіть поворот на 90 ° праворуч
• F: йти вперед (без зміни напрямку)
• B: йти назад (робити поворот)

Коли всі персонажі були оброблені, Pac-Man зупиняється на наступному стику, на який він стикається.

Вихід

Ви повинні надрукувати або вивести кількість з'їдених Pac-Dots на шляху введення.

Правила

• Ви можете написати повну програму або функцію.
• Ви можете приймати вхід у великому або малому регістрі, як рядок або масив символів. Ви також можете використовувати інші символи (але лише один символ у напрямку) або цілі числа [0 .. 9]. Якщо ви це зробите, будь ласка, уточнюйте це чітко у своїй відповіді.
• Ви можете припустити, що введення завжди дійсне. (Нижченаведений jsFiddle виявить помилки, але цього не слід робити.)
• Це код-гольф, тому виграє найкоротший код у байтах.
• Стандартні лазівки заборонені.

Підказка

Для зберігання точної форми лабіринту може не знадобитися ні оптимально.

Тестові приклади та демонстрація

У цьому jsFiddle можна перевірити наступні тестові випадки - або будь-які інші дані .

1. Input  : ""
   Output : 1
   Comment: Pac-Man just advances to the first junction, eats the Pac-Dot on it and stops.

2. Input  : "L"
   Output : 7

3. Input  : "FFR"
   Output : 13

4. Input  : "LFLR"
   Output : 17
   Comment: Pac-Man will exit on the middle right side and re-appear on the left side.

5. Input  : "BBBB"
   Output : 2

6. Input  : "BRRFFFL"
   Output : 15

7. Input  : "LFFRLFFFFRF"
   Output : 50

8. Input  : "BRFRLRFRLFR"
   Output : 54
   Comment: Pac-Man will exit on the middle left side and re-appear on the right side.

9. Input  : "FFLRLFFLLLLFFBFLFLRRRLRRFRFLRLFFFLFLLLLFRRFBRLLLFBLFFLBFRLLR"
   Output : 244
   Comment: All cleared!

Pyth, 356 345 + 1 = 346 байт

Код містить деякі недруковані xxdверсії , тому ось оборотний гекс-дамп.

0000000: 4a4b 304c 2c3d 2b4b 4062 4a58 624a 3041  JK0L,=+K@bJXbJ0A
0000010: 2c63 6a43 2201 e120 49b4 efbc e267 27f4  ,cjC".. I....g'.
0000020: a11b f5d5 7f79 d1a0 ab8a 7689 449f 0c50  .....y....v.D..P
0000030: b2d4 7c30 99c3 368e aa67 4213 ab9b d276  ..|0..6..gB....v
0000040: d75f 6e99 5757 04a6 08cc 99d0 7141 3d2f  ._n.WW......qA=/
0000050: d854 7cf7 4a70 954e 6e35 f9b9 e0c5 1d53  .T|.Jp.Nn5.....S
0000060: 36d5 63f9 cf13 0f66 c113 4dec 956e 5225  6.c....f..M..nR%
0000070: b14a 1659 dcb5 6822 3534 2034 6a43 2203  .J.Y..h"54 4jC".
0000080: ffe3 8fff 2232 3d59 636a 4322 0b8a 4624  ...."2=YcjC"..F$
0000090: 7815 4a94 192c 79f6 d6e5 e098 5e97 76bc  x.J..,y.....^.v.
00000a0: 23cf 027c 35c5 5098 2a83 68f1 823a 83f6  #..|5.P.*.h..:..
00000b0: dfa4 7e12 443f 0257 7adb ab2d 8e6f 1199  ..~.D?.Wz..-.o..
00000c0: 9a3e 3f9d a524 d331 c5ff 94ae e5a2 3507  .>?..$.1......5.
00000d0: bd22 3334 2032 3d6b 2b30 6a43 2202 25f2  ."34 2=k+0jC".%.
00000e0: f55c 2252 c250 0002 c250 0000 065c 225c  .\"R.P...P...\"\
00000f0: 2247 5289 3698 4227 5350 8822 3136 3d64  "GR.6.B'SP."16=d
0000100: 636a 4322 8223 a80e 5c22 981d d272 729d  cjC".#..\"...rr.
0000110: d88d 981d 5c22 5c22 2bd7 91dd 9428 73d7  ....\"\"+....(s.
0000120: 1dd7 2234 2032 5651 2079 483d 547e 4a40  .."4 2VQ yH=T~J@
0000130: 4047 4a2b 5a78 2246 5242 4c22 4e20 796b  @GJ+Zx"FRBL"N yk
0000140: 3d5a 4040 647e 4a40 4059 4a3d 5421 7840  =Z@@d~J@@YJ=T!x@
0000150: 594a 5454 2968 7948 0a                   YJTT)hyH.

Потрібен -Mпрапор для відключення запам'ятовування. На жаль, цього не можна зробити в жодному з онлайн-виконавців, яких я знаю.

Ось читабельна версія для друку ASCII:

JK0L,=+K@bJXbJ0A,cj746957013238413906925468440008893181365431681519974815772691846219267045007717553452313017550830370829477591340658010575885616582299429376501117428763541235628345630376341520044712982918668584832091126800263024965443560007480163218792 54 4j17178005503 2=Ycj664551201217474826979459068682259492333017695780569003557724234375880492114440213266014621594427584622393511454741615093293082181365458295035985321888753898774398909 34 2=k+0j883734055588186287049718559289059922762611092840989558085734536 16=dcj53536195844172273707047543644202986760006840011986146398708374999 4 2VQ yH=T~J@@GJ+Zx"FRBL"N yk=Z@@d~J@@YJ=T!x@YJTT)hyH

Пояснення

Це дуже велика робота, тому я ще не публікую повне пояснення.

В основному програма представляє плату як (дещо дивний) графік, використовуючи п'ять таблиць пошуку: 2 для підключення, 1 для напрямків з'єднання та 2 для підрахунку точок. Це було побудовано за 200-рядковим сценарієм Python, на який я витратив занадто багато годин. Потім програма просто проходить через вхід і підраховує точки, оновлюючи таблиці точок до нуля, коли точки збираються.

ЗРОБИТИ:

• Пишіть процедуру Python для упорядкування вузлів, поки таблиця пошуку не містить якомога менше символів, необхідних для втечі
• Спробуйте повністю видалити обробку розділу (слід видалити одну таблицю пошуку)
  • ОНОВЛЕННЯ: спробував це, схоже, не видаляє таблицю і подовжує код
• Перепишіть логіку на стороні Pyth (поточна не дуже гольф)
  • ОНОВЛЕННЯ: дещо зроблено, код ще недосконалий

k, 264 байт

b:,/16 16\'108_a:-135#0+1:"p.k"
(#(?27,r 1)^(12+!8)^14 17)+/b@?*|r:+1 27 0{i:a?64/(4!2+y+*x;x 1);(4 64\a i+1-2*2!i),_i%2}\0:""
\
...binary data...

Шістнадцятковий дамп:

$ xxd p.k
00000000: 623a 2c2f 3136 2031 365c 2731 3038 5f61  b:,/16 16\'108_a
00000010: 3a2d 3133 3523 302b 313a 2270 2e6b 220a  :-135#0+1:"p.k".
00000020: 2823 283f 3237 2c72 2031 295e 2831 322b  (#(?27,r 1)^(12+
00000030: 2138 295e 3134 2031 3729 2b2f 6240 3f2a  !8)^14 17)+/b@?*
00000040: 7c72 3a2b 3120 3237 2030 7b69 3a61 3f36  |r:+1 27 0{i:a?6
00000050: 342f 2834 2132 2b79 2b2a 783b 7820 3129  4/(4!2+y+*x;x 1)
00000060: 3b28 3420 3634 5c61 2069 2b31 2d32 2a32  ;(4 64\a i+1-2*2
00000070: 2169 292c 5f69 2532 7d5c 303a 2222 0a5c  !i),_i%2}\0:"".\
00000080: 0a02 4005 c006 4109 c103 8008 8143 c244  ..@...A......C.D
00000090: c345 c446 c547 c648 c749 c84a 820a 830c  .E.F.G.H.I.J....
000000a0: 840d 870b 8889 cb0e 8a11 8b0f 4c4d cc10  ............LM..
000000b0: cd4e d14f ce51 d014 8e12 8f13 9017 9153  .N.O.Q.........S
000000c0: d215 9216 931e 5455 d41a d51b 5657 d61f  ......TU....VW..
000000d0: d718 941d 9759 d85a d95b da5c db5d dc98  .....Y.Z.[.\.]..
000000e0: de20 9921 9c5f 9d5e 60df e161 e089 9833  . .!._.^`..a...3
000000f0: 4222 2247 2662 7550 0000 0500 5000 c255  B""G&buP....P..U
00000100: 2c22 2202 2588 5ff2                      ,"".%._.

Двійкові дані в кінці кодують два масиви:

• a складається з пар байтів, кожен представляє (напрямок 64 *) + junctionId

• b - кількість точок Пакмана між кожною парою стиків у a

Програма читає власний вихідний файл ( p.k) та розшифровує дані.

Вхід походить від stdin і використовує 0x00,0x01,0x02,0x03 (він же NUL, SOH, STX, ETX - перші чотири коди ASCII) замість FLBR.

Я використовую власну реалізацію k, яка є обмеженою, роздутою, аварійною і повільною порівняно з реальною . Я тестую за допомогою наступної програми:

t:{e:($y),"\n"; a:`sys[("/path/to/k";"./p.k");`c$"FLBR"?x]
   1@$[a~e;"ok\n";"failed ",x,"\n expected: ",e," actual: ",a,"\n"];}
t["";1]
t[,"L";7]
t["FFR";13]
t["LFLR";17]
t["BBBB";2]
t["BRRFFFL";15]
t["LFFRLFFFFRF";50]
t["BRFRLRFRLFR";54]
t["FFLRLFFLLLLFFBFLFLRRRLRRFRFLRLFFFLFLLLLFRRFBRLLLFBLFFLBFRLLR";244]
\