Spracherkennung für: .g vermutete Sprache: Lisp {Lisp[66] Masm[66] R[32]} [Methode: maximale Elemente, drei Dimensionen]
# Note that this finds only 35 of the representatives!
setup := OrbitBySuborbitBootstrapForVectors(
[cu1gens,cu2gens,cngens],[u1gensp,u2gensp,ngensp],
[81,6561,3265173504],[10,30],rec());
obsol := InitOrbitBySuborbitList(setup,40);
l := Orb(cggens,v,OnRight,rec(schreier := true));
Enumerate(l,100000);
OrbitsFromSeedsToOrbitList(obsol,l);
origseeds := List(obsol,OrigSeed);
positions := List(origseeds,x->Position(l,x));
words := List(positions,x->TraceSchreierTreeForward(l,x));
[Dauer der Verarbeitung: 0.1 Sekunden, vorverarbeitet 2026-10-21]
