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
|
#############################################################################
##
#W example.gd
##
## This file contains a sample of a GAP implementation file.
##
#############################################################################
##
#M SomeOperation( <val> )
##
## performs some operation on <val>
##
InstallMethod( SomeProperty,
"for left modules",
[ IsLeftModule ], 0,
function( M )
if IsFreeLeftModule( M ) and not IsTrivial( M ) then
return true;
fi;
TryNextMethod();
end );
#############################################################################
##
#F SomeGlobalFunction( )
##
## A global variadic funfion.
##
InstallGlobalFunction( SomeGlobalFunction, function( arg )
if Length( arg ) = 3 then
return arg[1] + arg[2] * arg[3];
elif Length( arg ) = 2 then
return arg[1] - arg[2]
else
Error( "usage: SomeGlobalFunction( <x>, <y>[, <z>] )" );
fi;
end );
#
# A plain function.
#
SomeFunc := function(x, y)
local z, func, tmp, j;
z := x * 1.0;
y := 17^17 - y;
func := a -> a mod 5;
tmp := List( [1..50], func );
while y > 0 do
for j in tmp do
Print(j, "\n");
od;
repeat
y := y - 1;
until 0 < 1;
y := y -1;
od;
return z;
end;
|