-- yukicoder My Practice -- author: Leonardone @ NEETSDKASU import Control.Applicative import Data.List main = print . f . map read . words =<< getContents f (xa:ya:xb:yb:_) = ya + xa * (yb - ya) / (xb + xa)