Append item to child list

[RepCad]

Hi all,

I want to append an item to last item in a list, like this :

lst ((x1 y1) (x2 y2) (x3 y3))

and after appending z3 to last list in lst >> lst ((x1 y1) (x2 y2) (x3 y3 z3))

 

Can someone tell me how I can perform it?

[rlx]

(subst (append (last lst) (list 'z3)) (last lst) lst)

(reverse (cons (append (car (reverse lst)) (list 'z3)) (cdr (reverse lst))))

 

Edited April 30, 2021 by rlx

[Lee Mac]

One more for fun -

(reverse (cons (reverse (cons 'z3 (reverse (last lst)))) (cdr (reverse lst))))

 

[X11start]

Lee, you remind me Steve Wozniak: his greatest gift has always been to be able to create electronic circuits (Apple), with the n. minimum of components!