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

mirror of https://github.com/acmeism/RosettaCodeData.git
(^^) :: (Fractional a, Integral b) => a -> b -> a
x ^^ n = if n >= 0 then x^n else recip (x^(negate n))
	`(^^) :: (Fractional a, Integral b) => a -> b -> a`
	`x ^^ n = if n >= 0 then x^n else recip (x^(negate n))`