sandyvs 发表于 2024-9-19 08:58:37

寒潮大冬瓜 发表于 2024-9-19 08:16
命令: (apply 'mapcar(cons '+ '((1 2 3 )(4 5 6)(7 8 9)(17 28 39))))
(29 43 57)
命令: (apply 'mapcar ...

最后一个，任意一个数加上.0试试

aws 发表于 2024-9-19 11:21:43

376394482 发表于 2024-9-18 16:03
换个栗子，
(setq lst '(("a" "b" "c" ) ("d" "e" "f")("g" "h" "i")))
(apply 'mapcar (cons 'strca ...

(cons 'strcat lst)
我觉得比较难理解的是上面这个，居然返回下面这个，为啥那个'没了？
(STRCAT ("a" "b" "c") ("d" "e" "f") ("g" "h" "i"))
然后，没有了那个 '居然也被mapcar识别了！
这个'的消失和显示，对于理解至关重要

Klein 发表于 2024-9-19 12:41:05

寒潮大冬瓜 发表于 2024-9-19 08:16
命令: (apply 'mapcar(cons '+ '((1 2 3 )(4 5 6)(7 8 9)(17 28 39))))
(29 43 57)
命令: (apply 'mapcar ...

除法“/"默认整数除以整数结果为整数，5/2=2，1/2=0，1.0/2=0.5

taoyi0727 发表于 2024-9-19 13:04:27

(setq lst '((1 2 3 ) (4 5 6)(7 8 9)))
(apply 'mapcar (cons '+ lst))
得到下面
(apply 'mapcar '(+ (1 2 3) (4 5 6) (7 8 9)))
得到下面,'(+ (1 2 3) (4 5 6) (7 8 9))做为参数传入函数mapcar里
(mapcar '+ '(1 2 3 ) '(4 5 6) '(7 8 9))
得到下面,'(1 2 3 ) '(4 5 6) '(7 8 9)做为参数,从每个表的1个到最后1个分别传入函数+里
'(+ 1 4 7)
'(+ 2 5 8)
'(+ 3 6 9)
结果
'(12 15 18)

376394482 发表于 2024-9-19 16:45:15

看来还是要多读多看，仔细的看。
这个语句坛里的葵花宝典里面就有栗子。

寒潮大冬瓜 发表于 2024-9-19 21:34:31

命令: (apply 'mapcar(cons '/ '((1027.0 2031.0 3036.0 )(41 51 62)(71 82 91))))
(0.3528 0.485653 0.538107)
感谢大侠指导！原来是提前规划为小数

寒潮大冬瓜 发表于 2024-9-19 21:35:45

sandyvs 发表于 2024-9-19 08:58
最后一个，任意一个数加上.0试试

感谢指导！实践成功！

Qwer1243 发表于 2024-10-8 10:46:56

376394482 发表于 2024-9-18 16:03
换个栗子，
(setq lst '(("a" "b" "c" ) ("d" "e" "f")("g" "h" "i")))
(apply 'mapcar (cons 'strca ...

学习了.............

tangjuntao 发表于 2024-10-14 10:11:16

学习了.............
页: 1 [2]
查看完整版本: 表处理问题