Submission #180671

---

Source Code Expand

import Control.Applicative
import Control.Monad
import qualified Data.ByteString.Char8 as B
import Data.Maybe (fromJust)
import Debug.Trace

readInt = fst . fromJust . B.readInt

main = do
  [sx, sy, gx, gy, t, v] <- map (fromIntegral . readInt) . B.words <$> B.getLine
  n <- readInt <$> B.getLine
  ps <- map (map (fromIntegral . readInt) . B.words) <$> replicateM n B.getLine
  let f (x:y:_) = x1 + x2 <= t * v
        where
          square x = x * x
          x1 = sqrt $ square (x-sx) + square (y-sy)
          x2 = sqrt $ square (x-gx) + square (y-gy)
    in putStrLn $ if null $ filter f ps then "NO" else "YES"

Submission Info

Judge Result