Submission #1840543

---

Source Code Expand

import Control.Applicative
import Control.Monad
import Data.List

main = do
    dust <- getLine
    [x, y] <- map read . words <$> getLine
    s <- map read . words <$> getLine
    t <- map read . words <$> getLine
    putStrLn . show . (`div` 2) $ countGo s t x y 0

countGo :: [Int] -> [Int] -> Int -> Int -> Int -> Int
countGo [] _ _ _ count = count + 1
countGo _ [] _ _ count = count + 1
countGo alla@(a:as) allb@(b:bs) x y count =
    if (a + x) <= b then countGo allb as y x (count+1)
                    else countGo alla bs x y count

Submission Info

Judge Result