asdfxx
发表于 2009-7-28 10:49:00
cjs
发表于 2009-7-28 11:04:00
<p>(vl-remove element-to-remove list)</p><p>参数</p><p>element-to-remove :要删除的元素的值。可以为任意 LISP 数据类型。</p><p>list :任意表。</p><p>返回值:list，<font color="#dd0000">其中包含删除与 element-to-remove 相等的元素后的所有元素</font>。</p>
淮上
发表于 2009-7-28 12:33:00
(vl-sort '(0 1 23 2 23) '<)
asdfxx
发表于 2009-7-28 12:55:00
asdfxx
发表于 2009-7-28 13:00:00
qjchen
发表于 2009-7-28 14:26:00
<p>:)</p><p>ACET-LIST-REMOVE-NTH</p><p>(ACET-LIST-REMOVE-NTH n lst)</p><p>注:n<0时，取0</p><p>当然，你可以看看</p><p><a href="http://www.theswamp.org/index.php?topic=4903.0">http://www.theswamp.org/index.php?topic=4903.0</a></p><p>好多国内外高手都各显神通 :P</p>
淮上
发表于 2009-7-28 14:46:00
<p>(defun test (lst n / i)</p><p> (setq i -1)<br/> (vl-remove-if '(lambda (x) (= (setq i (1+ i)) n)) lst)</p><p>)</p>
页:
[1]