6 lines
403 B
Text
6 lines
403 B
Text
pow: {:[`f=@|/,//y; `exp y*`ln x / floating point exponent
|
|
|/,//s:y<0;o[(s+x*~s)%(~s)+x*s;y|-y] / negative exponent: reciprocate base
|
|
*/(~b)+((-1+#b){x*x}\x)*b:|2\y]} / binary exponentiation
|
|
pow[matrix;matrix] / integer power of integer base
|
|
pow[0.0+matrix;matrix] / integer power of floating point base
|
|
pow[0.0+matrix;0.0+matrix] / floating point power of floating point base
|