Doubly-linked list/Element insertion: Difference between revisions
Content added Content deleted
(Added Axe) |
|||
Line 554: | Line 554: | ||
# insert nl C ;; |
# insert nl C ;; |
||
- : 'a list * t * t list = ([], A, [C; B])</lang> |
- : '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}}== |
=={{header|Oz}}== |