表指定位置的两个元素互换

Lispboy · 发表于 2013-6-13 00:36:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lispboy 于 2013-6-13 02:56 编辑

;|
指定位置的两个元素互换
参数：
LST ---- 表
N,M ---- 序号，从1开始
|;
(defun XD::List:Swap (lst n m)
(setq l (XD::List:N-M lst n m)
l (cons (last l) (cdr (cons (car l)(cdr (reverse l)))))
l (append (reverse (cdr (reverse (XD::List:N- lst n)))) l (XD::List:N+ lst m)) ;;使用了APPEND，有时间在改
)
)

[pcode=lisp,true]
;;;不使用APPEND的代码
(defun XD::List:Swap (lst n m)
  (setq l (XD::List:N-M lst n m)
      l (cons (last l) (cdr (cons (car l) (cdr (reverse l)))))
  )
  (XD::List:Append (reverse (cdr (reverse (XD::List:N- lst n)))) (XD::List:Append l (XD::List:N+ lst m)))
)
[/pcode]

lgttblue · 发表于 2013-6-17 22:39:07

顶楼主，lsp学习者的福音啊

Lispboy · 发表于 2013-6-13 01:03:12

本帖最后由 Lispboy 于 2013-6-13 02:48 编辑

Lisphk 朋友贴过的一个帖子
http://bbs.xdcad.net/forum.php?m ... =668673&pid=3462240

1、删除指定元素
2、删除指定位置之间的所有元素
3、在指定的位置插元素
4、关联表两个关键字之间的所有元素
5、指定两个位置之间的所有元素
6、返回指定元素后面指定数量的元素（不给就到底）
7、交换指定位置的两个元素

带颜色的写完了，另外几个用 XD::List:N- XD::List:N+ XD::List::N-M 也可以很方便的组合出来，抽空写上再发布吧。

sicky111 · 发表于 2013-6-13 02:43:07

不错，支持一下楼主，期待后续作品。

q3_2006 · 发表于 2013-6-17 10:11:11

等待二楼的发布！

snsj · 发表于 2013-6-17 23:00:04

本帖最后由 snsj 于 2013-6-17 23:04 编辑

;;;位置互换
(defun lst-posbh (lst n p / i kj)
(setq i 0 kj nil)
(mapcar '(lambda(x)
(cond
((= i (1- n))(setq kj(cons(nth (1- p)c)kj)))
((= i (1- p))(setq kj(cons(nth (1- n) c)kj)))
(t(setq kj(cons x kj)))
)(setq i(1+ i));cond end
)lst
)(reverse kj)
)

cooolsee · 发表于 2014-5-8 21:41:02

挺好，基础的功能很经常能用

Throne · 发表于 2014-10-9 12:34:42

thx，菜鸟受益了

dwp@hamco · 发表于 2014-10-29 09:32:26

(defun t2(lst a b / i kj)
  (setq i 0 kj nil)
  (foreach m lst
(cond
   ((= i (1- a))(setq kj(cons(nth (1- b) lst) kj)))
   ((= i (1- b))(setq kj(cons(nth (1- a) lst) kj)))
   (t(setq kj(cons m kj)))

);cond end
(setq i(1+ i))
  );end foreach
(reverse kj)
);end defun

kkt123 · 发表于 2015-2-15 07:09:28

;;得到表中重複次數及刪除重複後的表
:@

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

[表] 表指定位置的两个元素互换

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子