乐筑天下

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

删除列表中指定索引位置处的元素

[复制链接]
guosheyang

15

主题

227

帖子

20

银币

后起之秀

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

铜币
276
发表于 2022-7-23 09:59:00 | 显示全部楼层 |阅读模式
给lisp的初学者们共享个函数（高手请略过），删除列表中指定索引位置处的元素，有问题请反馈，谢谢！
;函数功能：删除列表中指定索引位置处的元素         
;参数：L 列表，index 要删除项的索引位置（从0开始）
;返回值：删除指定索引位置元素后的列表            
;测试
(ygs_del_by_index
  (setq L'(1 1 2 2 3 3 4 5 5 5 6 7 11 12 13 5 15 17 5 19 90 85 85 85 90 93 101))
  (setq index 16)
)
;主程序
(defun ygs_del_by_index(L index / NL)
(if(and(= index 0))
  (progn
   (repeat index
     (setq nl(cons(car L )nl));新表
     (setq L(cdr L))
   )
    (append(reverse nl)(cdr L))
  )
  (princ(strcat"\n所指定的index超出列表范围," "请指定0-"(itoa (1-(length L)))"的正整数"))
)
)
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-4 01:17 , Processed in 0.497214 second(s), 65 queries .

© 2020-2025 乐筑天下

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