1LoadPackage("io"); 2l := List([1..1000000],i->Random(1,100));; 3 4GASMAN("collect"); 5start := IO_gettimeofday();; 6a := Sum(l,Factorial); 7Print("Non-parallel: ",DifferenceTimes(IO_gettimeofday(),start),"\n"); 8 9for i in [2..8] do 10 GASMAN("collect"); 11 start := IO_gettimeofday();; 12 b := ParMapReduceByFork(l,Factorial,\+,rec(NumberJobs := i)); 13 Print("With ",i," jobs: ",DifferenceTimes(IO_gettimeofday(),start),"\n"); 14od; 15