Листинг 3.1 Функция sumSquareOrSquareSum, версия 1

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
                             -}