竖表转横表

黄翔

竖表 (setq lst '( ("1" "2" "3")("4" "5" "6") ("7" "8" "9")))
转横表
( ("1" "4" "7")("2" "5" "8") ("3" "6" "9")))

怎么写好?

magicheno

飞雪神光 发表于 2024-10-17 20:10
这句代码算是理解了 但是再去掉apply 不知道怎么搞了

(mapcar 'list '(1 2 3)'(4 5 6)'(7 8 9)))

Bao_lai

这个不是海哥解决过，那一句经典的代码，理解了就精髓了。

一个经典的语句，能读懂就算入门了。我虽然也没有理解，但我会用啊，哈哈。

1. (setq lst '( (1 2 3)  (4 5 6) (7 8 9)))
   
2. (apply 'mapcar (cons 'list lst))
   

(setq lst '( (1 2 3)  (4 5 6) (7 8 9)))<br /> (apply 'mapcar (cons 'list lst))<br />

vitalgg

2. ;;加载函数库
   
3. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
4. 
   
5. (setq lst '( ("1" "2" "3")("4" "5" "6") ("7" "8" "9")))
   
6. (matrix:trp lst)

;;加载函数库<br /> (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> <br /> (setq lst '( ("1" "2" "3")("4" "5" "6") ("7" "8" "9")))<br /> (matrix:trp lst)

矩阵转置

magicheno

稍微有点理解了

飞雪神光

Bao_lai 发表于 2024-10-17 12:30
这个不是海哥解决过，那一句经典的代码，理解了就精髓了。

一个经典的语句，能读懂就算入门了。我虽然也 ...

这句代码算是理解了 但是再去掉apply 不知道怎么搞了

飞雪神光

magicheno 发表于 2024-10-18 13:28
(mapcar 'list '(1 2 3)'(4 5 6)'(7 8 9)))

666