VList: Difference between revisions
→{{header|Objeck}}
Line 1,110:
v := v->Cdr();
Runtime->Assert(v <> Nil);
"Demonstrate cdr. 1 element removed: {$v}"->PrintLine();
v->PrintStructure();
Line 1,117 ⟶ 1,118:
e := v->Index(3);
Runtime->Assert(e <> Nil);
"Demonstrate element access. v[3] = {$e}"->PrintLine();
v := v->Cdr()->Cdr();
Runtime->Assert(v <> Nil);
"Demonstrate cdr. 2 elements removed: {$v}"->PrintLine();
v->PrintStructure();
}
}</lang>
{{output}}
<pre>
Zero value for type. empty vList: []
offset: 0
Demonstrate cons. 6 elements added: [1 2 3 4 5 6 ]
offset: 1
[{Nil}, 1, 2, 3]
[4, 5]
[6]
Demonstrate cdr. 1 element removed: [2 3 4 5 6 ]
offset: 2
[{Nil}, 1, 2, 3]
[4, 5]
[6]
Demonstrating size property, size = 5
Demonstrate element access. v[3] = 5
Demonstrate cdr. 2 elements removed: [4 5 6 ]
offset: 0
[4, 5]
[6]
</pre>
=={{header|ooRexx}}==
| |||