mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Memory-allocation/ALGOL-68/memory-allocation-4.alg

4 lines
86 B
Plaintext
Raw Permalink Blame History

[666]MYSTRUCT pool;
INT new pool := LWB pool-1;
REF MYSTRUCT p = pool[new pool +:=1];
Reference in New Issue View Git Blame Copy Permalink