Doubly-linked list/Element insertion: Difference between revisions

(Added Axe)
Line 554:
# insert nl C ;;
- : 'a list * t * t list = ([], A, [C; B])</lang>
 
=={{header|Oforth}}==
 
Complete definition is here : [[../Definition#Oforth]]
 
<lang oforth>: test // ( -- aDList )
{
| dl |
DList new ->dl
dl insertFront("A")
dl insertBack("B")
dl head insertAfter(DNode new("C", null , null))
dl
} </lang>
 
{{out}}
<pre>
>test .s
[1] (DList) [A, C, B]
</pre>
 
=={{header|Oz}}==
1,015

edits