Submission #1127339
Source Code Expand
main :: IO () main = do [sx, sy, tx, ty] <- map (read :: String -> Int) . words <$> getLine print $ 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
Submission Time | |
---|---|
Task | C - Back and Forth |
User | nmjiri |
Language | Haskell (GHC 7.10.3) |
Score | 0 |
Code Size | 429 Byte |
Status | WA |
Exec Time | 3 ms |
Memory | 1148 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 0 / 300 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | sample_01.txt, sample_02.txt |
All | sample_01.txt, sample_02.txt, subtask_1_01.txt, subtask_1_02.txt, subtask_1_03.txt, subtask_1_04.txt, subtask_1_05.txt, subtask_1_06.txt, subtask_1_07.txt, subtask_1_08.txt, subtask_1_09.txt, subtask_1_10.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample_01.txt | WA | 2 ms | 508 KB |
sample_02.txt | WA | 2 ms | 508 KB |
subtask_1_01.txt | WA | 2 ms | 508 KB |
subtask_1_02.txt | WA | 3 ms | 1148 KB |
subtask_1_03.txt | WA | 2 ms | 1020 KB |
subtask_1_04.txt | WA | 2 ms | 1020 KB |
subtask_1_05.txt | WA | 2 ms | 1020 KB |
subtask_1_06.txt | WA | 2 ms | 508 KB |
subtask_1_07.txt | WA | 2 ms | 508 KB |
subtask_1_08.txt | WA | 2 ms | 1020 KB |
subtask_1_09.txt | WA | 2 ms | 1020 KB |
subtask_1_10.txt | WA | 2 ms | 892 KB |