3 lines
147 B
Text
3 lines
147 B
Text
|
exponentiation[x_,y_Integer]:=Which[y>0,Times@@ConstantArray[x,y],y==0,1,y<0,1/exponentiation[x,-y]]
|
||
|
|
CirclePlus[x_,y_Integer]:=exponentiation[x,y]
|