Singly-linked list/Element removal: Difference between revisions
m
→{{header|PicoLisp}}
Line 692:
L (1 2 3 4 5)
fin (1 3 4 5)
</pre>
===Destructive===
<lang PicoLisp>(de deldestr (Item "Var")
(let Lst (val "Var")
(let? M (member Item Lst)
(ifn (prior M Lst)
(set "Var" (cdr Lst))
(con @ (cdr M))
(val "Var") ) ) ) )
(let (N 3 L (range 1 5))
(println 'L L)
(deldestr N 'L)
(println 'fin 'L L) )</lang>
{{out}}
<pre>
L (1 2 3 4 5)
fin L (1 2 4 5)
</pre>
| |||