"Source: Text/Aggregates/Set.text";
"Line: 1410";
"Date: Wed Nov 13 15:56:29 2019";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Aggregates/Set.text, line: 1410
// Example: H10E10 ()
print "Example: H10E10";
ei := GetEchoInput();
SetEchoInput(true);
R := { 218, 271, 511 };
x := 0;
cubes := { 0 };
while not IsEmpty(R) do
   x +:= 1;
   c := x^3;
   Include(~cubes, c);
   Include(~cubes, -c);
   for z in cubes do
       Exclude(~R, z+c);
       Exclude(~R, z-c);
   end for;
end while;
R := { 218, 271, 511 }; // it has been emptied !
{ { x, y } : x, y in cubes | x+y in R };
SetEchoInput(ei);
