June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Exponentiation-operator/Perl-6/exponentiation-operator.pl6
+++ b/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;