This is the mail archive of the guile@cygnus.com mailing list for the guile project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
Hi, is there a function in Guile that does this? (define (matrix' m) (if (pair? m) (if (pair? (car m)) (cons (map car m) (matrix' (map cdr m))) '()) (throw 'not-a-pair m))) guile> (define a '((1 2 3) (a b c) (x y z))) guile> (matrix' a) => ((1 a x) (2 b y) (3 c z)) If not I think there should be one. Probably a more robust one ;-)