パックマンは太りすぎを心配しているパックマンさんのアドバイスで、パックドットの毎日の摂取量を追跡することにしました。彼が迷路の所定のパスにあるPac-Dotsの数を数えるのを助けてください！

迷路

迷路の独自のエンコーディングを構築するために、ここで生データを取得できます。

パックマンの旅

この課題の文脈では、次の規則が適用されます。

• まず、朗報です。幽霊はいません。
• パックマンは常に上の写真に示されている位置からレースを開始し、東に向かいます。開始位置にはPac-Dotはありません。
• 彼はまっすぐな道を進んでいる限り、次のマスに進み続けます。
• 他の使用可能な経路（マップ上のオレンジ色の正方形）がない状態で90度の回転に遭遇すると、自動的かつ体系的に回転します。
• 複数のパスが利用可能なジャンクション（マップ上の緑の四角）に遭遇すると、同じ方向に進むか（該当する場合）、別の方向（Uターンを含む）を選択します。
• パックマンが迷路の中央左側または中央右側の出口の1つを通過すると、すぐに反対側に現れます。
• パックマンは、自分がたどる経路上のすべてのパックドットを食べます。パックドットが食べられると、迷路から取り除かれます。

チャレンジ

入力

パックマンが到達するジャンクションでのパックマンの動作を説明する文字列が与えられます。この文字列は、次の文字で構成されます。

• L：左に90°回転します
• R：右に90度回転します
• F：前進（方向変更なし）
• B：後退（Uターン）

すべてのキャラクターが処理されると、パックマンは次のジャンクションで停止します。

出力

入力パスに沿って食べられるPac-Dotsの数を印刷または出力する必要があります。

ルール

• 完全なプログラムまたは関数を作成できます。
• 入力は、文字列または文字の配列として、大文字または小文字で入力できます。で他の文字（ただし、方向ごとに1文字のみ）または整数を使用することもできます[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バイト

コードには印刷できないものが含まれているため、ここにリバーシブルxxdhexdumpがあります。

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

説明

これは非常に進行中の作業なので、完全な説明はまだ投稿しません。

基本的に、プログラムは5つのルックアップテーブルを使用して、ボードを（やや奇妙な）グラフとして表します。2つは接続性、1つはジャンクション方向、2つはドットカウントです。これは、あまりにも多くの時間を費やした200行のPythonスクリプトによって作成されました。次に、プログラムは単に入力を調べてドットをカウントし、ドットが収集されるとドットテーブルをゼロに更新します。

TODO：

• ルックアップテーブルにエスケープを要求する文字ができるだけ少なくなるまで、ノードを並べ替えるPythonルーチンを記述します
• セクション処理を完全に削除してください（1つのルックアップテーブルを削除する必要があります）
  • 更新：これを試してみましたが、テーブルを削除せず、コードを長くしているようです
• 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                      ,"".%._.

最後のバイナリデータは、2つの配列をエンコードします。

• a それぞれが（64 *方向）+ junctionIdを表すバイトのペアで構成されます

• b は、ジャンクションの各ペア間のパックマンドットの数です。 a

プログラムは、独自のソースファイル（p.k）を読み取り、データをデコードします。

入力はstdinから来て、FLBRの代わりに0x00,0x01,0x02,0x03（別名NUL、SOH、STX、ETX-最初の4つのASCIIコード）を使用します。

私は独自の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]
\