Stitching lists together

[cormullion]

Given two lists, what's the easiest way to splice them together.

From this:

Code: Select all

(set 'a '(fred jim bob))
(set 'b '(1 2 3))

to this

Code: Select all

((fred 1) (jim 2) (bob 3))

... coming back to some newLISP coding after a few weeks away and I think I'm rusty...

[m i c h a e l]

This does the trick:

Code: Select all

(map list a b)

I’m sure there’s an even better way, though.

m i c h a e l

[cormullion]

Thanks! I've forgotten more than I thought! :)

[Sammo]

Another solution:

Code: Select all

(transpose (list a b))
>((fred 1) (jim 2) (bob 3))

and applying transpose again has the effect of undoing:

Code: Select all

(transpose (transpose (list a b)))
>((fred jim bob) (1 2 3))

[cormullion]

like it!

[Tim Johnson]

I use this function

Code: Select all

(define (merge)(transpose (args)))

Lutz is a man of few words ...