Spracherkennung für: .g vermutete Sprache: Lisp {Lisp[75] Masm[75] MT940[10]} [Methode: maximale Elemente, drei Dimensionen]
LoadPackage( "cubefree" );
Print("Constructs the solvable groups of a random cubefree number and \n");
Print("calls RandomIsomorphismTest..\n");
Print("This may take a while...\n");
L := [1..2^28-1];;
repeat
n:=Random(L);
until IsCubeFreeInt(n) and not IsSquareFreeInt(n) and
Maximum(FactorsInt(n))<200;;
Print("The chosen order is ",n,"\n");
Print("with factorisation ",Collected(FactorsInt(n)),"\n");
L := ConstructAllCFSolvableGroups(n);;
L := List(L, x->rec(order:=n, code:=CodePcGroup(x)));;
L2 := RandomIsomorphismTest(L,5);;
if Length(L) = Length(L2) then
Print("success\n");
else
Print("failure\n");
fi;
[Dauer der Verarbeitung: 0.3 Sekunden, vorverarbeitet 2026-10-23]
