list:fill 补足表的元素个数。

vitalgg

(list:fill lst n element)
对于元素个数小于 n 的 lst, 用element 补足

1. (defun list:fill (lst n element)
   
2.   "对于元素个数小于 n 的 lst, 用element 补足"
   
3.   "list"
   
4.   "(list:fill '(a b) 4 'c) => '(a b c c)"
   
5.   (if (and (numberp n)
   
6.            (listp lst)
   
7.            (< (length lst) n))
   
8.       (repeat (- (fix n) (length lst))
   
9.               (setq lst (append lst (list element)))))
   
10.   lst)

(defun list:fill (lst n element)<br />   "对于元素个数小于 n 的 lst, 用element 补足"<br />   "list"<br />   "(list:fill '(a b) 4 'c) => '(a b c c)"<br />   (if (and (numberp n)<br />            (listp lst)<br />            (< (length lst) n))<br />       (repeat (- (fix n) (length lst))<br />               (setq lst (append lst (list element)))))<br />   lst)