黄翔 发表于 2024-10-17 12:29:20

竖表转横表

本帖最后由 黄翔 于 2024-10-17 12:41 编辑

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

怎么写好?





magicheno 发表于 2024-10-18 13:28:57

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

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

Bao_lai 发表于 2024-10-17 12:30:35

本帖最后由 Bao_lai 于 2024-10-17 12:32 编辑

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

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


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


vitalgg 发表于 2024-10-17 14:50:43

本帖最后由 vitalgg 于 2024-10-17 14:52 编辑


;;加载函数库
(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))))

(setq lst '( ("1" "2" "3")("4" "5" "6") ("7" "8" "9")))
(matrix:trp lst)


矩阵转置



http://bbs.mjtd.com/data/attachment/forum/202409/24/214927kize9bamimb4c40v.png

magicheno 发表于 2024-10-17 16:41:33

稍微有点理解了

飞雪神光 发表于 2024-10-17 20:10:03

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

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

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

飞雪神光 发表于 2024-10-18 18:54:52

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

666            
页: [1]
查看完整版本: 竖表转横表