Singly-linked list/Element insertion: Difference between revisions
Content added Content deleted
(Updated D entry) |
No edit summary |
||
Line 2: | Line 2: | ||
Using this method, insert an element C into a list comprised of elements A->B, following element A. |
Using this method, insert an element C into a list comprised of elements A->B, following element A. |
||
=={{header|ACL2}}== |
|||
<lang Lisp>(defun insert-after (x e xs) |
|||
(cond ((endp xs) |
|||
nil) |
|||
((equal x (first xs)) |
|||
(cons (first xs) |
|||
(cons e (rest xs)))) |
|||
(t (cons (first xs) |
|||
(insert-after x e (rest xs))))))</lang> |
|||
Example: |
|||
<pre>>(insert-after 'A 'C '(A B)) |
|||
(A C B)</pre> |
|||
=={{header|ActionScript}}== |
=={{header|ActionScript}}== |