module Main where slzKv_kvSlz :: (Num a, Ord a) => a -> a -> a slzKv_kvSlz x y = if slzKv > kvSlz then slzKv else kvSlz where slzKv = x^2 + y^2 kvSlz = (x+y)^2 main :: IO () main = print $ slzKv_kvSlz 3 5 --64 {-sumSquareOrSquareSum x y = if (x^2 + y^2) > ((x+y)^2) then (x^2 + y^2) else (x+y)^2 -}