乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 3|回复： 3

[编程交流] 函数加法/乘法列表

[复制链接]
Kowal

46

主题

92

帖子

45

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
235
发表于 2022-7-6 06:20:02 | 显示全部楼层 |阅读模式
请帮助李。
我需要一个arguments函数来对列表进行加法/乘法。
  1. (setq (list (list a1 a2 a3 …) (list b1 b2 b3 …) (list c1 c2 c3 …) …))
  1. (setq (list (list A1 A2 A3 …) (list B1 B2 B3 …) (list C1 C2 C3 …) …))

 
算法：
  1. List1  ‘((a1 a2) (b1 b2))
  1. List2 ‘((A1 A2) (B1 B2) (C1 C2))
  1. Result: ‘(( [a1*A1+a2*A2] [a1*B1+a2*B2] [a1*C1+a2*C2])
  2. ([b1*A1+b2*A2] [b1*B1+b2*B2] [b1*C1+b2*C2]))

 
示例1
  1. List1 ‘((1 2) (2 4))
  1. List2 ‘((3 1) (2 2) (1 1))
  1. Result:‘(( [1*3+2*1] [1*2+2*2] [1*1+2*1]) ([2*3+4*1] [2*2+4*2] [2*1+4*1]))
  1. Result:‘((5 6 3) (10 12 6))

 
示例2
  1. List1 ‘((2  1 2) (3 1 1) (4 3 2))
  1. List2 ‘((2 3 1) (1 1 1) (3 4 5))
  1. Result: ‘((11 15 13) (10 14 9) (17 23 17))
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 06:53:16 | 显示全部楼层
这是学校作业吗？
回复

使用道具 举报

Kowal

46

主题

92

帖子

45

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
235
发表于 2022-7-6 07:11:42 | 显示全部楼层
 
不，我是工程师。
我正在制作Civil 3D。
就像Lisp宏一样，我想学习参数函数。
 
如果这个例子不难求助。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 07:33:53 | 显示全部楼层 
  1. (defun f ( a b )
  2.    (mapcar
  3.        (function
  4.            (lambda ( a )
  5.                (mapcar
  6.                    (function
  7.                        (lambda ( b )
  8.                            (apply '+ (mapcar '* a b))
  9.                        )
  10.                    )
  11.                    b
  12.                )
  13.            )
  14.        )
  15.        a
  16.    )
  17. )

我认为第二个例子的结果不正确，应该是：
  1. 14
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-10 18:27 , Processed in 0.752790 second(s), 60 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表