乐筑天下

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

[编程交流] 转换两个列表

[复制链接]

31

主题

95

帖子

65

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
154
发表于 2022-7-6 07:30:49 | 显示全部楼层 |阅读模式
你好我需要用mapcar、lambda转换两个列表。。。。。
例子:
  1. (setq lista '((1.236 (5 10)) (5.3214 (4 9)) (7.6541 (12 63))))
转换为:
  1. '((5 10) (4 9) (12 63))

这可能吗?
不能用于每个!!!
当做
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-6 07:37:22 | 显示全部楼层
试试这个。。。
 
  1. (mapcar (function (lambda (x) (setq l (cons (cdr x) l)))) '((1.236 (5 10)) (5.3214 (4 9)) (7.6541 (12 63))))
  2. (apply 'append (reverse l))

 
使用foreach函数。
 
  1. (foreach x '((1.236 (5 10)) (5.3214 (4 9)) (7.6541 (12 63))) (setq lst (cons (cdr x) lst)))
  2. (apply 'append (reverse lst))
回复

使用道具 举报

31

主题

95

帖子

65

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
154
发表于 2022-7-6 07:46:01 | 显示全部楼层
O、 K.,塔尔瓦特。它工作得很好。谢谢
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-6 07:52:31 | 显示全部楼层
 
随时欢迎你。
回复

使用道具 举报

2

主题

74

帖子

72

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 07:58:21 | 显示全部楼层
  1. (setq lista '((1.236 (5 10)) (5.3214 (4 9)) (7.6541 (12 63))))
  2. (mapcar        (function (lambda (x) (cadr x)))
  3. lista
  4. )
回复

使用道具 举报

31

主题

95

帖子

65

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
154
发表于 2022-7-6 08:02:56 | 显示全部楼层
Geobuilder。太棒了。非常感谢你。
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 08:08:16 | 显示全部楼层
  1. (mapcar 'cadr lista)
回复

使用道具 举报

31

主题

95

帖子

65

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
154
发表于 2022-7-6 08:13:29 | 显示全部楼层
jajajaja。非常非常好,李。
我想不能再减少了。杰杰耶
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 08:22:21 | 显示全部楼层
..........
回复

使用道具 举报

2

主题

74

帖子

72

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 08:27:13 | 显示全部楼层
我很惭愧
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-10 04:52 , Processed in 0.368646 second(s), 72 queries .

© 2020-2025 乐筑天下

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