i1 : R = QQ[a..d]; |
i2 : makeGB = (n) -> (g := gb((ideal vars R)^4); registerFinalizer(g, "gb("|n|")");); |
i3 : for i from 1 to 10 do (makeGB i); |
i4 : collectGarbage() --finalization: [1]: gb(2) --finalization: [6]: gb(7) --finalization: [4]: gb(5) --finalization: [9]: gb(10) --finalization: [7]: gb(8) --finalization: [3]: gb(4) --finalization: [8]: gb(9) --finalization: [5]: gb(6) --finalization: [2]: gb(3) --finalization: [0]: gb(1) |