/usr/share/gap/pkg/io/example/parworkerfarm1.g is in gap-io 4.5.1+ds-1.
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 | LoadPackage("io");
l := List([1..100],x->Random(1,1000));;
wf := ParWorkerFarmByFork(x->x^2,rec(NumberJobs := 4));
for i in [1..Length(l)] do Submit(wf,[l[i]]); od;
while not(IsIdle(wf)) do DoQueues(wf,true); Print(".\c"); od;
Print("\n");
result := Pickup(wf);
Kill(wf);
Print(l,"\n",result,"\n");
|