Doubly-linked list/Element definition: Difference between revisions
Content added Content deleted
Line 652: | Line 652: | ||
previous element. |
previous element. |
||
<lang PicoLisp> |
<lang PicoLisp> |
||
(de 2tail (X DLst) |
|||
(let L (cdr DLst) |
|||
(con DLst (cons X L NIL)) |
|||
(if L |
|||
(con (cdr L) (cdr DLst)) |
|||
(set DLst (cdr DLst)) ) ) ) |
|||
(de 2head (X DLst) |
(de 2head (X DLst) |
||
(let L (car DLst) # Get current data list |
(let L (car DLst) # Get current data list |