Anonymous user
Singly-linked list/Element insertion: Difference between revisions
Singly-linked list/Element insertion (view source)
Revision as of 16:08, 29 April 2012
, 12 years agono edit summary
(Updated D entry) |
No edit summary |
||
Line 2:
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}}==
| |||