nondestructive push

[Dmi]

How can I construct a function, that nondestructive appends an element to a list and return modified list?
I wrote so:

Code: Select all

(define (print-ln) (print (join (append (args) (list "\n")))))

But the idea is so usual, that I suspect, there is more fine way, without using
(append lst (list one-element))

... I use 'print-ln' insead of println under windows to handle unix-generated text files.

[pjot]

Code: Select all

(define (mypush) (flat (append (args))))

> (set 'lst (mypush 1 2 3))
(1 2 3) 
> (mypush lst 4)
(1 2 3 4) 

...or is this not what you want?

Peter

[newdep]

Thats destructive, DMI ment non-destrutive ;-)

[pjot]

It's non destructive:

Code: Select all

> (set 'lst (mypush 1 2 3))
(1 2 3)
> (mypush lst 4)
(1 2 3 4) 
> (println lst)
(1 2 3)

[newdep]

Its surly is ...:)