(column num lst)

Started by Dmi, March 18, 2008, 12:17:23 AM

Previous topic - Next topic
Print
Go Down Pages1
User actions

Dmi

March 18, 2008, 12:17:23 AM Last Edit: December 31, 1969, 04:00:00 PM by Dmi
Hi, All!



Testing with new function:
Code Select
(define (column n lst)
  (map (fn(x) (x n)) lst))

Code Select
> (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)
WBR, Dmi

Lutz

#1
March 18, 2008, 06:29:25 AM Last Edit: December 31, 1969, 04:00:00 PM by Lutz
you can also use transpose:


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

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

Dmi

#2
March 18, 2008, 06:33:36 AM Last Edit: December 31, 1969, 04:00:00 PM by Dmi
Oh! Nice :-)
WBR, Dmi
Print
Go Up Pages1
User actions