Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Exponentiation-operator/ERRE/exponentiation-operator.erre
+++ b/Task/Exponentiation-operator/ERRE/exponentiation-operator.erre
@ -0,0 +1,16 @@
+PROGRAM POWER
+
+PROCEDURE POWER(A,B->POW)   ! this routine handles only *INTEGER* powers
+  LOCAL FLAG%
+  IF B<0 THEN B=-B FLAG%=TRUE
+  POW=1
+  FOR X=1 TO B DO
+    POW=POW*A
+  END FOR
+  IF FLAG% THEN POW=1/POW
+END PROCEDURE
+
+BEGIN
+   POWER(11,-2->POW) PRINT(POW)
+   POWER(π,3->POW) PRINT(POW)
+END PROGRAM