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

(**) :: Floating a => a -> a -> a
x ** y = exp (log x * y)
CDE 2013-04-10 16:57:12 -07:00			`(**) :: Floating a => a -> a -> a`
			`x ** y = exp (log x * y)`