Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/GAP/hpcgap/demo/   (Algebra von RWTH Aachen Version 4.15.1©)  Datei vom 18.9.2025 mit Größe 279 B image not shown  

Quelle  migrate.g   Sprache: unbekannt

 
AdoptSingleObj([1,2,3]);

f := function()
 local ds, r, l;
 ds := ShareSingleObj([]);
 l:=LOCK(ds);
 ds[1] := MigrateSingleObj([1,2], ds);
 UNLOCK(l);
 l:=LOCK(ds);
 r := AdoptSingleObj(ds[1]);
 UNLOCK(l);
 return r;
end;

res:=f();
Print("Migration test : ", res=[1,2], "\n");

[ Dauer der Verarbeitung: 0.24 Sekunden  (vorverarbeitet)  ]