Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 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