Submission #6511642

---

Source Code Expand

f::[String]->Double->Double->Double->Double->[Double]
f [] _ _ _ _=[]
f (t:ts) x1 y1 x2 y2=let (x:y:[])=map read (words t)::[Double]
                     in ((sqrt ((x-x1)**2+(y-y1)**2))+(sqrt ((x-x2)**2+(y-y2)**2))):f ts x1 y1 x2 y2


main =do
      t1<-getLine
      t2<-getLine
      t3<-getContents
      let (x1:y1:x2:y2:t:v:[])=map read (words t1)::[Double]
          ts=lines t3
          u=minimum $ f ts x1 y1 x2 y2
      putStrLn $ if v*t<u then "NO" else "YES"

Submission Info

Judge Result