Anonymous user
Singly-linked list/Element insertion: Difference between revisions
Singly-linked list/Element insertion (view source)
Revision as of 20:17, 9 February 2009
, 15 years agono edit summary
No edit summary |
No edit summary |
||
Line 464:
(if pos
(set-cdr! pos (cons b (cdr pos))))))</lang>
=={{header|Tcl}}==
<lang tcl>
proc insert {insert_data after element in l} {
return [linsert $l [expr {[lsearch $l $element]+1}] $insert_data]
}
insert C after A in "A B"
</lang>
| |||