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/Mathematica/generator-exponential.math
+++ b/Task/Generator-Exponential/Mathematica/generator-exponential.math
@ -0,0 +1,36 @@
+lastsquare = 1;
+nextsquare = -1;
+lastcube = -1;
+midcube = 0;
+nextcube = 1;
+Gensquares[] := Module[{},
+  lastsquare += nextsquare;
+  nextsquare += 2;
+  squares = lastsquare;
+  squares
+  ]
+Gencubes[] := Module[{},
+  lastcube += nextcube;
+  nextcube += midcube;
+  midcube += 6;
+  cubes = lastcube
+  ]
+
+
+c = Gencubes[];
+Do[
+ While[True,
+  s = Gensquares[];
+  While[c < s,
+   c = Gencubes[];
+   ];
+  If[s =!= c,
+   Break[]
+   ];
+  ];
+ If[i > 20,
+  Print[s]
+  ]
+ ,
+ {i, 30}
+ ]