11 lines
294 B
Raku
11 lines
294 B
Raku
proto pow (Real, Int --> Real) {*}
|
|
multi pow (0, 0) { fail '0**0 is undefined' }
|
|
multi pow ($base, UInt $exp) { [*] $base xx $exp }
|
|
multi pow ($base, $exp) { 1 / samewith $base, -$exp }
|
|
|
|
multi infix:<**> (Real $a, Int $b) { pow $a, $b }
|
|
|
|
# Testing
|
|
|
|
say pow .75, -5;
|
|
say .75 ** -5;
|