Sync

2013-10-27 22:24:23 +00:00 · 2013-10-27 22:24:23 +00:00 · 776bba907c
commit 776bba907c
parent 6f050a029e
3887 changed files with 59894 additions and 7280 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())