Problem:
Score : 300 points

Problem Statement

Dolphin resides in two-dimensional Cartesian plane, with the positive x-axis pointing right and the positive y-axis pointing up.

Currently, he is located at the point (sx,sy). In each second, he can move up, down, left or right by a distance of 1.

Here, both the x- and y-coordinates before and after each movement must be integers.

He will first visit the point (tx,ty) where sx < tx and sy < ty, then go back to the point (sx,sy), then visit the point (tx,ty) again, and lastly go back to the point (sx,sy).

Here, during the whole travel, he is not allowed to pass through the same point more than once, except the points (sx,sy) and (tx,ty).

Under this condition, find a shortest path for him.

Constraints

-1000 ≤ sx < tx ≤ 1000

-1000 ≤ sy < ty ≤ 1000

sx,sy,tx and ty are integers.

Input

The input is given from Standard Input in the following format:

sx sy tx ty

Output

Print a string S that represents a shortest path for Dolphin.

The i-th character in S should correspond to his i-th movement.

The directions of the movements should be indicated by the following characters:

U: Up

D: Down

L: Left

R: Right

If there exist multiple shortest paths under the condition, print any of them.

Sample Input 1

0 0 1 2

Sample Output 1

UURDDLLUUURRDRDDDLLU

One possible shortest path is:

Going from (sx,sy) to (tx,ty) for the first time: (0,0) → (0,1) → (0,2) → (1,2)

Going from (tx,ty) to (sx,sy) for the first time: (1,2) → (1,1) → (1,0) → (0,0)

Going from (sx,sy) to (tx,ty) for the second time: (0,0) → (-1,0) → (-1,1) → (-1,2) → (-1,3) → (0,3) → (1,3) → (1,2)

Going from (tx,ty) to (sx,sy) for the second time: (1,2) → (2,2) → (2,1) → (2,0) → (2,-1) → (1,-1) → (0,-1) → (0,0)

Sample Input 2

-2 -2 1 1

Sample Output 2

UURRURRDDDLLDLLULUUURRURRDDDLLDL

Solution in Haskell (GHC 7.10.3) (judge verdict: Accepted)

import Data.Char
import Data.IORef
import Control.Monad
import Data.List

count :: (a -> Bool) -> [a] -> Int
count p = foldr (\a acc -> if p a then acc + 1 else acc) 0

-- '0' -> 0, '1' -> 1, ..., '9' -> 9
charToInt :: Char -> Int
charToInt a = ord a - ord '0'

-- 各桁の和
sumOfDigits :: Int -> Int
sumOfDigits = sum . map charToInt . show

interleave :: [a] -> [a] -> [a]
interleave (x:xs) (y:ys) = x : y : interleave xs ys

uninterleave :: [a] -> ([a], [a])
uninterleave = foldr (\x (xs, ys) -> (x:ys, xs)) ([], [])

flipOrder :: Ordering -> Ordering
flipOrder GT = LT
flipOrder LT = GT
flipOrder EQ = EQ

sortRev :: Ord a => [a] -> [a]
sortRev = sortBy (\a b -> flipOrder $ compare a b)

intList :: [Int] -> [Int]
intList = id

int :: Int -> Int
int = id

gridDistance :: Num a => (a, a) -> (a, a) -> a
gridDistance (x1, y1) (x2, y2) = abs (x2 - x1) + abs (y2 - y1)

main = do
  [sx, sy, tx, ty] <- intList . map read . words <$> getLine
  let way1 = replicate (tx - sx) 'R' ++ replicate (ty - sy) 'U'
  let way2 = replicate (tx - sx) 'L' ++ replicate (ty - sy) 'D'
  let way3 = 'D' : replicate (tx - sx + 1) 'R' ++ replicate (ty - sy + 1) 'U' ++ "L"
  let way4 = 'U' : replicate (tx - sx + 1) 'L' ++ replicate (ty - sy + 1) 'D' ++ "R"
  putStrLn $ way1 ++ way2 ++ way3 ++ way4