Submission #1127345

---

Source Code Expand

main :: IO ()
main = do
  [sx, sy, tx, ty] <- map (read :: String -> Int) . words <$> getLine
  putStrLn $ solve (tx - sx) (ty - sy)
solve :: Int-> Int -> String
solve diffX diffY = r ++ u ++ l ++ d ++ "D"
                    ++ r ++ "R" ++ u ++ "U" ++ "LUL" ++ l
                    ++ d ++ "DR"
  where
    r = replicate diffX 'R'
    u = replicate diffY 'U'
    l = replicate diffX 'L'  
    d = replicate diffY 'D'

Submission Info

Judge Result