newlispfanclub.alh.net

Code: Select all

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

Code: Select all

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

Code: Select all

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

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