select column from two-dimension list

[Dmi]

Is there a more simple way to do this:

Code Select Expand

(define (select-column lst col)
  (let l '()
    (dolist (i lst)
       (push (i col) l -1))
   l))


[Sammo]

Code Select Expand

(define (select-column lst col)
   (map (fn (row) (row col)) lst) )

[Dmi]

I'm stupid today! :-)

Thanx!

[Fanda]

Not really from my head :-)

Code Select Expand

> (setq L '((1 2) (3 4) (5 6)))
((1 2) (3 4) (5 6))
> (transpose L)
((1 3 5) (2 4 6))
> ((transpose L) 0)
(1 3 5)
> ((transpose L) 1)
(2 4 6)
>


It should be fast too...



Fanda