RosettaCodeData/Task/Memory-allocation/ALGOL-68/memory-allocation-4.alg
2023-07-01 13:44:08 -04:00

3 lines
86 B
Text

[666]MYSTRUCT pool;
INT new pool := LWB pool-1;
REF MYSTRUCT p = pool[new pool +:=1];