Stitching lists together

[cormullion]

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



From this:

Code Select Expand

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

to this

Code Select Expand

((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 Expand

(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 Expand

(transpose (list a b))
>((fred 1) (jim 2) (bob 3))
and applying transpose again has the effect of undoing:

Code Select Expand

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


[cormullion]

like it!

[Tim Johnson]

I use this function

Code Select Expand


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

Lutz is a man of few words ...