RosettaCodeData/Task/Singly-linked-list-Element-insertion/PicoLisp/singly-linked-list-element-insertion-2.l
2023-07-01 13:44:08 -04:00

4 lines
110 B
Text

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