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/Generator-Exponential/R/generator-exponential.r
+++ b/Task/Generator-Exponential/R/generator-exponential.r
@ -0,0 +1,25 @@
+powers = function(m)
+   {n = -1
+    function()
+       {n <<- n + 1
+        n^m}}
+
+noncubic.squares = local(
+   {squares = powers(2)
+    cubes = powers(3)
+    cube = cubes()
+    function()
+       {square = squares()
+        while (1)
+           {if (square > cube)
+               {cube <<- cubes()
+                next}
+            else if (square < cube)
+               {return(square)}
+            else
+               {square = squares()}}}})
+
+for (i in 1:20)
+    noncubic.squares()
+for (i in 1:10)
+    message(noncubic.squares())