Problem:
格子上の経路

上から見ると図 1 のような形の格子状の広場があります。この格子の各辺に「壁」があるかないかを 0 と 1 の並びで表します。点 A に立って壁に右手をつき、壁に右手をついたまま、矢印の方向に歩き続けて再び点 A に戻ってくるまでの経路を出力するプログラムを作成してください。

図1

Input

入力は９行からなり、以下の図 2 に示すように、壁がある場合を 1、ない場合を 0 として、以下の形式で与えられます。

1 行目は一番上の横線の壁の有無を左から 0 と 1 で表した文字列

2 行目はその下の縦線の壁の有無を左から0 と1 で表した文字列

3 行目は上から2 本目の横線の壁の有無を左から0 と1 で表した文字列

...

9 行目は一番下の横線の壁の有無を左から0 と1 で表した文字列

図2 (壁あるところを太線で表しています)　　(対応する数字のならび)

ただし、図１の太線に示すように、点 A から右に 1 区画分は必ず壁があるものとします。すなわち、1 行目の 1 文字目は常に 1 です。

Output

「図の左方向に一区画分進む」を 'L'、「図の右方向に一区画分進む」を 'R'、「図の上方向に一区画分進む」を 'U'、「図の下方向に一区画分進む」を 'D' で表わし、進む順に 'L', 'R', 'U', 'D' を１行に並べて出力します。

Sample Input

1111
00001
0110
01011
0010
01111
0010
01001
0111

Output for the Sample Input

RRRRDDDDLLLUUURRDDLURULLDDDRRRUUUULLLL

Solution in C# (judge verdict: Accepted)

using System;
using System.Collections.Generic;
using System.Linq;

static class PathOnAGrid
{
    static void Main()
    {
        var input = Console.In.ReadToEnd()
            .Split( 
                new[] { '\r', '\n' },
                StringSplitOptions.RemoveEmptyEntries )
            .Select( x => Array.ConvertAll( x.ToArray(), y => y == '1' ) )
            .Select( (x, i) => new { v = x, k = i & 1 } )
            .GroupBy( x => x.k, x => x.v )
            .Select( x => x.ToArray() )
            .ToArray();
        var m =
            from y in Enumerable.Range( 0, 5 )
            from x in Enumerable.Range( 0, 5 )
            select new[]
            {
                x < 4 && input[0][y][x],
                y < 4 && input[1][y][x],
                x > 0 && input[0][y][x - 1],
                y > 0 && input[1][y - 1][x],
            };
        var map = m.ToArray();
        var index = new Func<int, int, int>[]
        {
            (x, y) => x + y,
            (x, y) => x + y * 5,
            (x, y) => x - y,
            (x, y) => x - y * 5,
        };
        var route = Enumerable.Empty<char>();
        int p = 0, d = 0;
        do {
            var head = ( d + 3 ) & 3;
            var step = Enumerable.Range( 0, 5 )
                .Select( x => index[d]( p, x ) )
                .TakeWhile( x => map[x][d] && ( !map[x][head] || x == p ) )
                .Count();

            route = route.Concat( Enumerable.Repeat( "RDLU"[d], step ) );
            p = index[d]( p, step );
            d = map[p][head] ? head : ( d + 1 ) & 3;
        } while ( p != 0 );
        Console.WriteLine( new string( route.ToArray() ) );
    }
}