RosettaCodeData/Task/Arrays/Babel/arrays-5.pb

2 lines
32 B
Plaintext

[ptr 1 2 3] dup 1 [ptr 7] set ;