Anonymous user
Doubly-linked list/Traversal: Difference between revisions
→{{header|Tcl}}: added zkl
(→{{header|Tcl}}: added zkl) |
|||
Line 1,665:
b
a</pre>
=={{header|zkl}}==
<lang zkl>class Node{
fcn init(_value,_prev=Void,_next=Void)
{ var value=_value, prev=_prev, next=_next; }
fcn toString{ value.toString() }
fcn append(value){
b,c := Node(value,self,next),next;
next=b;
if(c) c.prev=b;
b
}
}</lang>
<lang zkl>a,c := Node("a"), a.append("b").append("c");
n:=a; while(n){ print(n," "); n=n.next }
println();
n:=c; while(n){ print(n," "); n=n.prev }
println();</lang>
{{out}}
<pre>
a b c
c b a
</pre>
{{omit from|ACL2}}
| |||