hhqboy 发表于 2016-3-16 13:19:42

两列数字。如何先乘再相加？

两列数字。如何先同行的加乘，然后相乘后的数值全部相加？

Gu_xl 发表于 2016-3-16 13:47:22

_$ (setq l '((1 2 3) (4 5 6)))
((1 2 3) (4 5 6))
_$ (apply '+ (apply 'mapcar (cons '* l)))
32
_$

伪书虫86 发表于 2016-3-16 14:00:38

Gu_xl 发表于 2016-3-16 13:47 static/image/common/back.gif
_$ (setq l '((1 2 3) (4 5 6)))
((1 2 3) (4 5 6))
_$ (apply '+ (apply 'mapcar (cons '* l)))


出神入化啊，太烧脑细胞了

hhqboy 发表于 2016-3-16 16:30:04

阿阿啊。

hhqboy 发表于 2016-3-16 16:31:15

能有个说明吗

yoyoho 发表于 2016-3-16 16:55:27

hhqboy 发表于 2016-3-16 16:31 static/image/common/back.gif
能有个说明吗

指令: (setq l '((1 2 3) (4 5 6)))
((1 2 3) (4 5 6))

指令: (SETQ QQ (apply 'mapcar (cons '* l)))
(4 10 18);;;两两相乘后的表

指令: (SETQ QQ2 (apply '+ QQ))
32         ;;;表内数值相加

zhangtieliang 发表于 2019-3-15 22:16:01

神来之笔，G版主名不虚传
页: [1]
查看完整版本: 两列数字。如何先乘再相加？