(XD::List:FillGap)根据最大长度，把表按指定值填补

Lispboy · 发表于 2013-11-25 19:24:58

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

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

×

;|
根据最大长度，把表按指定值填补
参数：
lst --- 表
val --- 填补的值
maxL --- 新表的长度
返回值：
表
示例：(setq b (cadr a))
(1 2)
(XD::List:FillGap b "" 4)
(1 2 "" "")
(XD::List:FillGap b nil 4)
(1 2 nil nil)
|;
(defun XD::List:FillGap (lst val maxL / l)
(and
(< (length lst) maxL)
(setq lst (reverse lst))
(repeat (- maxL l)
(setq lst (cons val lst))
)
(setq lst (reverse lst))
)
lst
)

xyp1964 · 发表于 2013-11-26 22:34:49

;; (XD::List:FillGap '(1 2) 4 "") → '(1 2 "" "")
(defun XD::List:FillGap (lst leng val / n)
(and
(> (setq n (- leng (length lst))) 0)
(repeat n
(setq lst (append lst (list val)))
)
)
lst
)

newer · 发表于 2013-11-26 23:28:30

xyp1964 发表于 2013-11-26 22:34

在表元素很大情况下，用了APPEND效率要低于楼主的。

st788796 · 发表于 2015-1-1 16:24:42

改个稍复杂的
;;指定元素填充
;;lst --- 表或嵌套表
;;n --- 长度
;; --- 填充元素，为表且第一元素为 T 是前填充

(defun List:FillGap (lst n ele / _fillgap)
(defun _fillgap (lst n ele / l c)
(setq l (length lst))
(cond
((= n l) lst)
((< n l)
(setq c (- l n))
(if (and (listp ele) (= (car ele) T))
(progn
(setq lst (reverse lst))
(repeat c
(setq lst (cdr lst))
)
(reverse lst)
)
(progn
(repeat c (setq lst (cdr lst)))
lst
)
)
)
((> n l)
(setq c (- n l))
(if (and (listp ele) (eq (car ele) T))
(progn
(setq ele (cadr ele))
(repeat c
(setq lst (cons ele lst))
)
lst
)
(progn
(setq lst (reverse lst))
(repeat c
(setq lst (cons ele lst))
)
(reverse lst)
)
)
)
(t)
)
)
(if (vl-some 'atom lst)
(_fillgap lst n ele)
(mapcar '(lambda (x / c)
;;(setq c (list:getColumnCount lst))
(_fillgap x n ele)
)
lst
)
)
)

(defun List:FillGap (lst n ele / _fillgap) 
  (defun _fillgap (lst n ele / l c) 
    (setq l (length lst)) 
    (cond 
      ((= n l) lst) 
      ((< n l) 
       (setq c (- l n)) 
       (if (and (listp ele) (= (car ele) T)) 
         (progn 
           (setq lst (reverse lst)) 
           (repeat c 
             (setq lst (cdr lst)) 
           ) 
           (reverse lst) 
         ) 
         (progn 
           (repeat c (setq lst (cdr lst))) 
           lst 
         ) 
       ) 
      ) 
      ((> n l) 
       (setq c (- n l)) 
       (if (and (listp ele) (eq (car ele) T)) 
         (progn 
           (setq ele (cadr ele)) 
           (repeat c 
             (setq lst (cons ele lst)) 
           ) 
           lst 
         ) 
         (progn 
           (setq lst (reverse lst)) 
           (repeat c 
             (setq lst (cons ele lst)) 
           ) 
           (reverse lst) 
         ) 
       ) 
      ) 
      (t) 
    ) 
  ) 
  (if (vl-some 'atom lst) 
    (_fillgap lst n ele) 
    (mapcar '(lambda (x / c) 
               ;;(setq c (list:getColumnCount lst)) 
               (_fillgap x n ele) 
             ) 
            lst 
    ) 
  ) 
)

_$ (list:fillgap '(1 2 2 3) 12 '(t nil))
(nil nil nil nil nil nil nil nil 1 2 2 3)
_$ (list:fillgap '(1 2 2 3) 12 nil)
(1 2 2 3 nil nil nil nil nil nil nil nil)
_$ (list:fillgap '(1 2 2 3) 12 '(1))
(1 2 2 3 (1) (1) (1) (1) (1) (1) (1) (1))
_$ (list:fillgap '(1 2 2 3) 12 '(t (1)))
((1) (1) (1) (1) (1) (1) (1) (1) 1 2 2 3)
__$ (list:fillgap '((1 2)(1 2 2 3)) 12 "")
((1 2 "" "") (1 2 2 3))

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

[表] (XD::List:FillGap)根据最大长度，把表按指定值填补

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

点评

浏览过的版块