(column num lst)

[Dmi]

Hi, All!



Testing with new function:

Code Select Expand

(define (column n lst)
  (map (fn(x) (x n)) lst))


Code Select Expand

> (set 'lst '((a 1 q)(b 2 w)(c 3 e)))
((a 1 q) (b 2 w) (c 3 e))
> (column 1 lst)
(1 2 3)


[Lutz]

you can also use transpose:

Code Select Expand

(set 'lst '((a 1 q)(b 2 w)(c 3 e)))

((transpose lst) 1) => (1 2 3)


[Dmi]

Oh! Nice :-)