June 2018 Update

Task/Exponentiation-operator/Perl-6/exponentiation-operator.pl6

@@ -0,0 +1,12 @@
+subset Natural of Int where { $^n >= 0 }
+
+multi pow (0,     0)            { fail '0**0 is undefined' }
+multi pow ($base, Natural $exp) { [*] $base xx $exp }
+multi pow ($base, Int $exp)     { 1 / pow $base, -$exp }
+
+sub infix:<***> ($a, $b) { pow $a, $b }
+
+# Testing
+
+say pow .75, -5;
+say .75 *** -5;

Task/Exponentiation-operator/Stata/exponentiation-operator.stata

@@ -0,0 +1,10 @@
+mata
+function pow(a, n) {
+	x = a
+	for(p=1; n>0; n=floor(n/2)) {
+		if(mod(n,2)==1) p = p*x
+		x = x*x
+	}
+	return(p)
+}
+end