Untitled
1234567891011
sub Power(\base, \exp) {
given exp {
when 0 { 1.0 }
when * >= 1 { base * Power(base, exp - 1) }
default { 1.0/base * Power(base, exp + 1) }
}
}
for 1000,20,2,1,0,-1,-2,-20,-1000 { say Power 5, $_ }
Raku
INFO