[Comp] SICPでHaskell(1)

SICPの Exercise 1.3 を Haskellでやってみる。
sortを使うのは、反則?

import List

func :: Int -> Int -> Int -> Int

func a b c =  (x * x) + (y * y)

    where 

        x = head . reverse $ sort [a, b, c]

        y = head . tail . reverse $ sort [a, b, c]