import Control.Applicative import Data.List import Text.Printf main = do es <- map (read :: String -> Double) . words <$> getLine printf "%0.7f" (calc $ sort es) calc [e1, e2] = sqrt $ e2^2 - e1^2