Quelle  2022-03-20-AlternatingDegree.tst   Sprache: unbekannt

# 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 ]