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

3 lines
59 B
Haskell

(**) :: Floating a => a -> a -> a
x ** y = exp (log x * y)