37 lines
471 B
Plaintext
37 lines
471 B
Plaintext
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}
|
|
]
|