RosettaCodeData/Task/Singly-linked-list-Element-.../PicoLisp/singly-linked-list-element-...

5 lines
110 B
Plaintext

(de insertAfter (Item Lst New)
(if (index Item Lst)
(conc (cut @ 'Lst) (cons New Lst))
Lst ) )