[功能] 循环上移(冲天炮)

/db_自贡黄明儒_ · 发表于 2017-5-24 09:12:16

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

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

×

;;[功能] 循环上移(冲天炮)
;;;(swapUp '(1 2 3 4) 0) => (4 2 3 1)
;;;(swapUp '(1 2 3 4) 1) => (2 1 3 4)
;;;(swapUp '(1 2 3 4) 2) => (1 3 2 4
;;;(swapUp '(1 2 3 4) 3) => (1 2 4 3)
(defun swapUp        (*Lst n / A I L TEMP)
  (setq L nil)
  (setq i -1)
  (if (= n 0)
    (progn
      (setq *Lst (cons (car (reverse *Lst)) *Lst))
      (setq *Lst (swapUp *Lst (1+ n)))
      (reverse(cons (car *Lst) (cdr (reverse(cdr *Lst)))))
    )
    (progn
      (while (setq a (car *Lst))
        (setq *Lst (cdr *Lst))
        (setq i (1+ i))
        (cond
          ((= (1- n) i) (setq temp a))
          ((= n i) (setq L (cons a L)) (setq L (cons temp L)))
          (T (setq L (cons a L)))
        )
      )
      (reverse L)
    )
  )
)

/db_自贡黄明儒_ · 发表于 2017-5-26 13:50:24

434939575 发表于 2017-5-24 09:34

列表移动

434939575 · 发表于 2017-5-24 09:34:12

黄大师这个用在什么地方啊！

wowan1314 · 发表于 2017-5-24 09:35:11

曰：这名字起的，分明是广告企划的精英啊。屈才了

newer · 发表于 2017-5-24 09:37:30

wowan1314 发表于 2017-5-24 09:35

同顶老黄
真是霸气侧漏

longer1000 · 发表于 2017-5-24 16:08:59

厉害！！！！！！！！！！！！！！！！！！！！

pxt2015 · 发表于 2017-5-24 23:39:52

流星雨，冲天炮。顶大师

sicky111 · 发表于 2017-5-25 00:04:43

没看懂什么意思。

lzj511 · 发表于 2017-5-25 08:33:56

名字霸气

fangmin723 · 发表于 2017-6-1 08:55:06

本帖最后由 fangmin723 于 2017-6-1 08:57 编辑

做了点小小的改动，
之前是：(swapUp '(1 2 3 4) 0) => (4 2 3 1)；
现在是：(swapUp '(1 2 3 4) 0) => (2 3 4 1)；

(defun swapUp(*Lst n / A I L TEMP)
(setq L nil)
(setq i -1)
(if (= n 0)
(progn
(setq *Lst (cons (car (reverse *Lst)) *Lst))
(setq *Lst (swapUp *Lst (1+ n)))
(reverse (cons (car *Lst) (reverse (cddr *Lst))))
)
(progn
(while (setq a (car *Lst))
(setq *Lst (cdr *Lst))
(setq i (1+ i))
(cond
((= (1- n) i) (setq temp a))
((= n i) (setq L (cons a L)) (setq L (cons temp L)))
(T (setq L (cons a L)))
)
)
(reverse L)
)
)
)

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

[原创] [功能] 循环上移(冲天炮)

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

评分

点评

点评