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

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

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

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

_$ (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

Gu_xl 发表于 2016-3-16 13:47
_$ (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

阿阿啊。

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

能有个说明吗[em0]

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

hhqboy 发表于 2016-3-16 16:31
能有个说明吗

指令: (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

神来之笔，G版主名不虚传

账号		自动登录	找回密码
密码			注册

[提问] 两列数字。如何先乘再相加？

浏览过的版块