【效率测试】返回表奇数位元素组成子表的几个代码的效率比较

/db_自贡黄明儒_ · 发表于 2017-12-14 10:44:34

本帖最后由 /db_自贡黄明儒_ 于 2017-12-14 10:58 编辑

newer 发表于 2017-12-12 14:18

;;偶数
;;(_EvenLst '(1 2 3 4 5 6)) => '(2 4 6)
(defun _EvenLst (lst / i)
(setq i 0)
(vl-remove-if-not
'(lambda (x) (= 0 (boole 1 (setq i (1+ i)) 1)))
lst
)
)
;;奇数
;;(_OddLst '(1 2 3 4 5 6)) => '_OddLst
(defun _OddLst (lst / i)
(setq i 0)
(vl-remove-if-not
'(lambda (x) (/= 0 (boole 1 (setq i (1+ i)) 1)))
lst
)
)

;;偶数
;;(_EvenLst '(1 2 3 4 5 6)) => '(2 4 6)
(defun _EvenLst (lst / Flag)
(setq Flag T)
(vl-remove-if-not
'(lambda (x) (setq Flag (not Flag)))
lst
)
)
;;奇数
;;(_OddLst '(1 2 3 4 5 6)) => (1 3 5)
(defun _OddLst (lst / Flag)
(vl-remove-if-not
'(lambda (x) (setq Flag (not Flag)))
lst
)
)

marting · 发表于 2017-12-14 14:20:28

/db_自贡黄明儒_ 发表于 2017-12-14 10:44

这个很快，但是如果元素包括T 或者 NIL的时候回出问题吧。

newer · 发表于 2017-12-14 15:46:09

/db_自贡黄明儒_ 发表于 2017-12-14 10:44

lijiao · 发表于 2017-12-15 10:15:43

(defun get1 (lst / out)
  (repeat (+ (/ (length lst) 2) (rem (length lst) 2))
(setq out (cons (car lst) out)
   lst (cddr lst))
)
  (reverse out)
  )
(defun get2 (lst / out)
  (setq lst (cdr lst))
  (repeat (+ (/ (length lst) 2) (rem (length lst) 2))
(setq out (cons (car lst) out)
   lst (cddr lst))
)
  (reverse out)
  )

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

[研讨] 【效率测试】返回表奇数位元素组成子表的几个代码的效率比较

评分

点评