Submission #227206

---

Source Code Expand

import Control.Applicative

main :: IO ()
main = do
  t <- getInt
  _ <- getLine
  a <- getInts
  _ <- getLine
  b <- getInts
  putStrLn $ solve t a b

solve :: Int -> [Int] -> [Int] -> String
solve _ _ []      = "yes"
solve _ [] _      = "no"

solve t (o:ox) (i:ix)
  | o > i         = "no"
  | i - o <= t    = solve t ox ix
  | otherwise     = solve t ox (i:ix)

getInt :: IO (Int)
getInt = readLn

getInts :: IO ([Int])
getInts = map read <$> words <$> getLine

Submission Info

Judge Result