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