Initial data commit

Task/Exponentiation-operator/Seed7/exponentiation-operator-1.seed7

@@ -0,0 +1,22 @@
+const func integer: intPow (in var integer: base, in var integer: exponent) is func
+  result
+    var integer: result is 0;
+  begin
+    if exponent < 0 then
+      raise(NUMERIC_ERROR);
+    else
+      if odd(exponent) then
+        result := base;
+      else
+        result := 1;
+      end if;
+      exponent := exponent div 2;
+      while exponent <> 0 do
+        base *:= base;
+        if odd(exponent) then
+          result *:= base;
+        end if;
+        exponent := exponent div 2;
+      end while;
+    end if;
+  end func;

Task/Exponentiation-operator/Seed7/exponentiation-operator-2.seed7

@@ -0,0 +1,32 @@
+const func float: fltIPow (in var float: base, in var integer: exponent) is func
+  result
+    var float: power is 1.0;
+  local
+    var integer: stop is 0;
+  begin
+    if base = 0.0 then
+      if exponent < 0 then
+        power := Infinity;
+      elsif exponent > 0 then
+        power := 0.0;
+      end if;
+    else
+      if exponent < 0 then
+        stop := -1;
+      end if;
+      if odd(exponent) then
+        power := base;
+      end if;
+      exponent >>:= 1;
+      while exponent <> stop do
+        base *:= base;
+        if odd(exponent) then
+          power *:= base;
+        end if;
+        exponent >>:= 1;
+      end while;
+      if stop = -1 then
+        power := 1.0 / power;
+      end if;
+    end if;
+  end func;

Task/Exponentiation-operator/Seed7/exponentiation-operator-3.seed7

@@ -0,0 +1,7 @@
+$ syntax expr: .(). ^* .() is <- 4;
+
+const func integer: (in var integer: base) ^* (in var integer: exponent) is
+  return intPow(base, exponent);
+
+const func float: (in var float: base) ^* (in var integer: exponent) is
+  return fltIPow(base, exponent);