RosettaCodeData/Task/Memory-allocation/ALGOL-68/memory-allocation-4.alg
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

3 lines
86 B
Text

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