vitalgg 发表于 2023-7-6 21:44:08

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

本帖最后由 vitalgg 于 2023-7-6 22:39 编辑

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






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




页: [1]
查看完整版本: list:fill 补足表的元素个数。