RosettaCodeData/Task/Exponentiation-operator/Haskell/exponentiation-operator-2.hs

(^^) :: (Fractional a, Integral b) => a -> b -> a
x ^^ n = if n >= 0 then x^n else recip (x^(negate n))