Spracherkennung für: .tst vermutete Sprache: SPS {SPS[60] Lisp[53] Masm[53]} [Methode: maximale Elemente, drei Dimensionen]
# Very fix for infinite recursion in AlternatingDegree and SymmetricDegree,
# see https://github.com/gap-system/gap/issues/4826
gap> TweakGroup:=function(G)
> local H;
> H := Action(G,Orbit(G,[1,2],OnTuples),OnTuples);
> SetIsAlternatingGroup(H,IsAlternatingGroup(G));
> SetIsSymmetricGroup(H,IsSymmetricGroup(G));
> return H;
> end;;
#
gap> List([1..6], n -> AlternatingDegree(TweakGroup(AlternatingGroup(n))));
[ 0, 0, 3, 4, 5, 6 ]
gap> List([1..6], n -> SymmetricDegree(TweakGroup(SymmetricGroup(n))));
[ 0, 2, 3, 4, 5, 6 ]
[Dauer der Verarbeitung: 0.2 Sekunden, vorverarbeitet 2026-10-24]
