Листинг 3.1 Функция sumSquareOrSquareSum, версия 1
1234567891011121314151617
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
-}
Haskell
INFO