1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
LoadPackage("io");
SetInfoLevel(InfoIO,2);
f := function(g)
return Size(Centre(g));
end;
l := AllSmallGroups(128);
Print("Have ",Length(l)," small groups.\n");
t := IO_gettimeofday();
ll := ParListByFork(l,f,rec(NumberJobs := 4));
Print("Parallel time (4 jobs): ",DifferenceTimes(IO_gettimeofday(),t),"\n");
t := IO_gettimeofday();
lll := List(l,f);
Print("Sequential time (1 job): ",DifferenceTimes(IO_gettimeofday(),t),"\n");
if ll <> lll then
Error("did not work");
fi;
|
