3 lines
104 B
Haskell
3 lines
104 B
Haskell
|
(^^) :: (Fractional a, Integral b) => a -> b -> a
|
||
|
|
x ^^ n = if n >= 0 then x^n else recip (x^(negate n))
|