-- Try yukicoder -- author: Leonardone @ NEETSDKASU main = interact $ unlines . concat . zipWith ($) [return . show . floor . head, map show . tail] . repeat . solve . map read . words solve (0:0:0:_) = [-1] solve (0:0:_:_) = [0] solve (0:b:c:_) = [1, fromIntegral (-c) / fromIntegral b] solve (a:0:0:_) = [1, 0] solve (a:0:c:_) | e < 0 = undefined -- [0] | otherwise = undefined -- [2, - sqrt e, sqrt e] where e = fromIntegral (-c) / fromIntegral a solve (a:b:0:_) = undefined -- [2, min 0 x, max 0 x] where x = fromIntegral (-b) / fromIntegral a solve (a:b:c:_) | d < 0 = [0] | d == 0 = [1, 0.5 * (fromIntegral (-b) / fromIntegral a)] | d > 0 = [2, min y z, max y z] where d = b * b - 4 * a * c y = 0.5 * (fromIntegral (-b) / fromIntegral a + sqrt (fromIntegral d / fromIntegral a / fromIntegral a)) z = 0.5 * (fromIntegral (-b) / fromIntegral a - sqrt (fromIntegral d / fromIntegral a / fromIntegral a)) solve _ = undefined