/usr/share/gap/grp/suzuki.gd is in gap-libs 4r7p5-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | #############################################################################
##
#W suzuki.gd GAP library Stefan Kohl
##
##
#Y (C) 1999 School Math and Comp. Sci., University of St Andrews, Scotland
##
#############################################################################
##
#O SuzukiGroupCons( <filter>, <q> )
##
## <ManSection>
## <Oper Name="SuzukiGroupCons" Arg='filter, q'/>
##
## <Description>
## </Description>
## </ManSection>
##
DeclareConstructor( "SuzukiGroupCons", [ IsGroup, IsInt ] );
#############################################################################
##
#F SuzukiGroup( [<filt>, ] <q> ) . . . . . . . . . . . . . . . Suzuki group
#F Sz( [<filt>, ] <q> )
##
## <#GAPDoc Label="SuzukiGroup">
## <ManSection>
## <Func Name="SuzukiGroup" Arg='[filt, ] q'/>
## <Func Name="Sz" Arg='[filt, ] q'/>
##
## <Description>
## Constructs a group isomorphic to the Suzuki group Sz( <A>q</A> )
## over the field with <A>q</A> elements, where <A>q</A> is a non-square
## power of <M>2</M>.
## <P/>
## If <A>filt</A> is not given it defaults to <Ref Func="IsMatrixGroup"/>,
## and the returned group is the Suzuki group itself.
## <Example><![CDATA[
## gap> SuzukiGroup( 32 );
## Sz(32)
## ]]></Example>
## </Description>
## </ManSection>
## <#/GAPDoc>
##
BindGlobal( "SuzukiGroup", function ( arg )
if Length(arg) = 1 then
return SuzukiGroupCons( IsMatrixGroup, arg[1] );
elif IsOperation(arg[1]) then
if Length(arg) = 2 then
return SuzukiGroupCons( arg[1], arg[2] );
fi;
fi;
Error( "usage: SuzukiGroup( [<filter>, ] <q> )" );
end );
DeclareSynonym( "Sz", SuzukiGroup );
#############################################################################
##
#E
|