CDE

Task/Exponentiation-operator/Haskell/exponentiation-operator-1.hs

@@ -0,0 +1,8 @@
+(^) :: (Num a, Integral b) => a -> b -> a
+_ ^ 0           =  1
+x ^ n | n > 0   =  f x (n-1) x where
+  f _ 0 y = y
+  f a d y = g a d  where
+    g b i | even i  = g (b*b) (i `quot` 2)
+          | otherwise = f b (i-1) (b*y)
+_ ^ _           = error "Prelude.^: negative exponent"

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

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

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

@@ -0,0 +1,2 @@
+(**) :: Floating a => a -> a -> a
+x ** y = exp (log x * y)