[LISP函数]：stdlib函数集的简介

snoopychen · 发表于 2005-10-20 11:14:15

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

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

×

上次为了寻找一个找封闭线多义线形心的程序,找到了stdlib
一个由Reini Urban编写的程序库,stdlib是一个标准函数库,
包含了许多的内容,包括表,几何体,字符串,文件操作,数学计算,
时间,实体等许多方面的内容.它的网站在
http://xarch.tu-graz.ac.at/autocad/stdlib/archive/
这个网站好像最近出了一些问题,暂时不能访问
reini urban的lisp faq还出现在
http://www.faqs.org/faqs/CAD/autolisp-faq/
这个似乎eachy版主转贴过
这个标准库应该是主要是由他一个人完成的,非常佩服他能有这么
多精力来完成这项工作,还写了一个非常完整的chm说明书.
当然他也疑惑哪些程序应该提供源码的问题.
这个程序库应该是在vlisp之前开始撰写的,大部分可以用在r14上
对于比较喜欢r14的人挺有用的.
stdlib的应用挺简单的,我一般是把stdlib.lsp加到自动加载,那么
以后就可以直接用了.
似乎有有些高手对stdlib不屑一顾,说其会使得速度变慢.说其文件
操作引用了doslib等等.
但我觉得作为一个提供了源码,可以了解作者思路,提供学习机会的
程序库,已经是特别幸运了,何况里面内置的这么多有用的函数,我们
自己编起来也要颇费一番心思,在你需要很快编制出一个程序而不
考虑版权的情况下,不妨用用.
下面是自己学习stdlib的一些小体会
首先是对函数的简单翻译,水平有限,错漏不少,有些函数也不知道作者
可以拿来作什么用,乱翻了,仅当学习体会
以后有时间再写些学习心得,由于其分很多类,只能一类类慢慢的贴了
先贴表处理的
<HTML>
<HEAD>
<TITLE>无标题文档</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
</HEAD>

<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<TABLE WIDTH="75%" BORDER="1" BORDERCOLOR="#0000FF"><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127" BORDERCOLOR="#0000FF">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;width:186pt' BGCOLOR="#666666"><FONT COLOR="#FFFFFF">　</FONT><DIV ALIGN="CENTER"></DIV></TD><TD WIDTH=368 STYLE='border-left:none;width:210pt' BGCOLOR="#666666"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">表</FONT></DIV></TD><TD WIDTH=255 STYLE='border-left:none;width:197pt' BGCOLOR="#666666"><FONT COLOR="#FFFFFF">　</FONT><DIV ALIGN="CENTER"></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127" BORDERCOLOR="#0000FF">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#990066"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">函数名称</FONT></DIV></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt' BGCOLOR="#990066"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">函数意义</FONT></DIV></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt' BGCOLOR="#990066"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">例子</FONT></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127" BORDERCOLOR="#0000FF">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#6600FF"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">判别类</FONT></DIV></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>　</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127" BORDERCOLOR="#0000FF">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(consp x)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>是否空表</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127" BORDERCOLOR="#0000FF">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-dotted-pair-p x)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>是否点对</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127" BORDERCOLOR="#0000FF">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-not-proper-list-p
x)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>判别最后一个元素是否点对</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127" BORDERCOLOR="#0000FF">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-string-list-p x)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>是否字符串表</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127" BORDERCOLOR="#0000FF">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-number-list-p x)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>是否数值表</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127" BORDERCOLOR="#0000FF">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#6600FF"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">附件搜索类</FONT></DIV></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>　</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127" BORDERCOLOR="#0000FF">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' X:STR="(first lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(first
lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>cadr 表的第一个元素，如同cadr</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127" BORDERCOLOR="#0000FF">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(second lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>表的第二个元素，如同<FONT> caddr</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127" BORDERCOLOR="#0000FF">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(third lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>表的第三个元素，如同<FONT> cadddr</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127" BORDERCOLOR="#0000FF">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(fourth lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>表的第四个元素，如同<FONT> (car (cddddr))</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(fifth lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>表的第五个元素，如同<FONT> (cadr (cddddr))</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(sixth lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>表的第六个元素，如同<FONT> (caddr (cddddr))</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(seventh lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>表的第七个元素，如同<FONT> (cadddr (cddddr))</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(eighth lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>表的第八个元素，如同<FONT> (car (cddddr (cddddr)))</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(ninth lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>表的第九个元素</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(tenth lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>表的第十个元素</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(rest lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>表中除第一个外的其他元素，如同<FONT> cdr</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=39 STYLE='height:29.25pt' CLASS="xl238127">
<TD HEIGHT=39 WIDTH=284 STYLE='height:29.25pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-list-length lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>表中元素长度，接受点对元素<FONT>accepting dotted pairs</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-elt lst i)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>表中第<FONT>i</FONT><FONT>个元素的值</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-position x lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>元素<FONT>x</FONT><FONT>在表中的位置</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=79 STYLE='height:59.25pt' CLASS="xl238127">
<TD HEIGHT=79 WIDTH=284 STYLE='height:59.25pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-position-if pred lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>返回第一个满足<FONT>pred</FONT><FONT>（预定的类型，如字符串，数字，或者是由</FONT><FONT>lambda</FONT><FONT>函数定义的）表达的元素位置，以下称</FONT><FONT>pred</FONT><FONT>为约束条件</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt' BGCOLOR="#FFFFFF" BORDERCOLOR="#CCCCCC"><P ALIGN="LEFT">(std-position-if
'numberp '(0 1 2 3))      <FONT COLOR="#FF0000">=>
0</FONT></P><P ALIGN="LEFT">(std-position-if 'stringp '(0 "1" 2 "3")) 
<FONT COLOR="#FF0000">=> 1</FONT></P></TD></TR><TR HEIGHT=39 STYLE='height:29.25pt' CLASS="xl238127">
<TD HEIGHT=39 WIDTH=284 STYLE='height:29.25pt;border-top:none;
  width:186pt' X:STR="(std-position-if-not pred lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-position-if-not
pred lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>返回第一个不满足由<FONT>pred</FONT><FONT>表达的元素位置</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-rposition x lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>返回<FONT>x</FONT><FONT>在表中最后一次出现的位置</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　</TD></TR><TR HEIGHT=60 STYLE='height:45.0pt' CLASS="xl238127">
<TD HEIGHT=60 WIDTH=284 STYLE='height:45.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-r assoc x alst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>与<FONT>assoc</FONT><FONT>对应的函数，返回某个指定点对名称所对应的点对</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-rassoc "line" '((0 . "line")(8
. "0")(10 0.0 0.0 0.0))<FONT COLOR="#FF0000">=> (0 . "line")</FONT></DIV></TD></TR><TR HEIGHT=80 STYLE='height:60.0pt' CLASS="xl238127">
<TD HEIGHT=80 WIDTH=284 STYLE='height:60.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-member-if pred lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>查找表中满足约束条件的第一个元素，并与后面的元素组成一个表，如同<FONT>visual lisp</FONT><FONT>中的</FONT><FONT>vl-member-if-not</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-member-if 'numberp '(0 1 2 3))     
<FONT COLOR="#FF0000">=> (0 1 2 3)</FONT></P><P>(std-member-if 'stringp '(0
"1" 2 "3"))<FONT COLOR="#FF0000">  => ("1"
2 "3")</FONT></P></DIV></TD></TR><TR HEIGHT=80 STYLE='height:60.0pt' CLASS="xl238127">
<TD HEIGHT=80 WIDTH=284 STYLE='height:60.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-member-if-not pred
lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>查找表中不满足约束条件的第一个元素，并与后面的元素组成一个表</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-member-if-not 'numberp '(0 1 2 3))<FONT COLOR="#FF0000">       
=> nil</FONT></P><P>(std-member-if-not 'stringp '("0" "1"
2 "3"))  <FONT COLOR="#FF0000">=> (2 "3")</FONT></P></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' X:STR="(std-count x lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-count
x lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>返回元素<FONT>x</FONT><FONT>在表</FONT><FONT>lst</FONT><FONT>中的个数</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-count-if pred lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>返回表中满足约束条件<FONT>pred</FONT><FONT>的元素个数</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV
ALIGN="LEFT">(std-count-if 'stringp '(0 "1" 2 "3")) 
<FONT COLOR="#FF0000">=> 2</FONT></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-count-if-not pred
lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>与上一个函数相反</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#6600FF"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">子表</FONT></DIV></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>　</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-firstn n lst) ;</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>返回表中前<FONT>n</FONT><FONT>个元素组成的子表，对</FONT><FONT>(std-nthcdr n lst)</FONT><FONT>的补充</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=60 STYLE='height:45.0pt' CLASS="xl238127">
<TD HEIGHT=60 WIDTH=284 STYLE='height:45.0pt;border-top:none;
  width:186pt' X:STR="(std-nthcdr n lst) ; " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-nthcdr
n lst) ;</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>返回表中第<FONT>n</FONT><FONT>个元素之后所有元素组成的子表</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-firstn 2 '(0 1 2 3))  <FONT COLOR="#FF0000">=>
(0 1) </FONT>(std-nthcdr 2 '(0 1 2 3))  <FONT COLOR="#FF0000">=> (2 3)</FONT></DIV></TD></TR><TR HEIGHT=120 STYLE='height:90.0pt' CLASS="xl238127">
<TD HEIGHT=120 WIDTH=284 STYLE='height:90.0pt;border-top:none;
  width:186pt' X:STR="(std-subseq lst start end) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-subseq
lst start end)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>返回表中从<FONT>start</FONT><FONT>到</FONT><FONT>end-1</FONT><FONT>的一个表</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-subseq '(0 1 2 3) 1 3)  <FONT COLOR="#FF0000">=>
(1 2)</FONT></P><P> (std-subseq '(0 1 2 3) 0 3)  <FONT COLOR="#FF0000">=>
(0 1 2)</FONT></P><P> (std-subseq '(0 1 2 3) 0 0)  <FONT COLOR="#FF0000">=>
nil</FONT></P><P> (std-subseq '(0 1 2 3) 0 -1)<FONT COLOR="#FF0000"> => error</FONT></P><P>
(std-subseq '(0 1 2 3) 3 4)  <FONT COLOR="#FF0000">=> (3)</FONT></P></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' X:STR="(std-butlast lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-butlast
lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>返回除了表中最后一个元素的一个表</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=80 STYLE='height:60.0pt' CLASS="xl238127">
<TD HEIGHT=80 WIDTH=284 STYLE='height:60.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-select <lst>
<i>|<list-of-i>)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>根据<FONT>i</FONT><FONT>选出表中第</FONT><FONT>i</FONT><FONT>个元素，或者根据几个</FONT><FONT>i</FONT><FONT>组成的</FONT><FONT><list-of-i></FONT><FONT>找出表中的几个元素组成的表。</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-select '(a b c d) 0)<FONT COLOR="#FF0000">      
=> a</FONT>  (std-select '(a b c d) '(1 0)   <FONT COLOR="#FF0000">=>
(b a)</FONT></P><P>  (std-select '(a b c d) '(1 0 4) <FONT COLOR="#FF0000">=>
error</FONT></P></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#6600FF"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">修改</FONT></DIV></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>　</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=80 STYLE='height:60.0pt' CLASS="xl238127">
<TD HEIGHT=80 WIDTH=284 STYLE='height:60.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-adjoin x lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>把一些<FONT>x</FONT><FONT>假如到</FONT><FONT>list</FONT><FONT>中，假如是重复元素，则不加入，用于构建没有重复元素的表</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'
  X:STR="(std-adjoin 0 '(1 2))=> (0 1 2)  (std-adjoin 1 '(1 2)) => (1 2)  (std-adjoin 1 nil) => (1)  (std-adjoin nil nil) => (nil) "><DIV ALIGN="LEFT"><P>(std-adjoin
0 '(1 2))<FONT COLOR="#FF0000">=> (0 1 2)  </FONT>(std-adjoin 1 '(1 2))
<FONT COLOR="#FF0000">=> (1 2)  </FONT>(std-adjoin 1 nil)<FONT COLOR="#FF0000">
=> (1)</FONT></P><P>  (std-adjoin nil nil)<FONT COLOR="#FF0000"> =>
(nil) </FONT></P></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#6600FF"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">非破坏性的操作</FONT></DIV></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>　</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' X:STR="(std-setnth new i lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-setnth
new i lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>用于修改第<FONT>i</FONT><FONT>个元素为新值</FONT><FONT>new</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-setnth 'new 2 '(0 1 2)) <FONT COLOR="#FF0000">=>
(0 1 new)</FONT></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-delpos i lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>删除表中第<FONT>i</FONT><FONT>个元素，返回精简的表</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-delpos 1 '(1 2))  <FONT COLOR="#FF0000">=>
(1)</FONT></DIV></TD></TR><TR HEIGHT=80 STYLE='height:60.0pt' CLASS="xl238127">
<TD HEIGHT=80 WIDTH=284 STYLE='height:60.0pt;border-top:none;
  width:186pt' X:STR="(std-remove x lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-remove
x lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>删除表中元素值为<FONT>x</FONT><FONT>的所有元素，返回精简的表</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-remove 0 '(0 1 2))<FONT COLOR="#FF0000">=>
(1 2)</FONT> (std-remove -1 '(0 1 2)) <FONT COLOR="#FF0000">=> (0 1 2) </FONT></P><P>(std-remove
0 '(0 1 0 2))<FONT COLOR="#FF0000">=> (1 2)</FONT></P></DIV></TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-remove-if pred lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>除表中满足某种约束条件<FONT>pred</FONT><FONT>的元素，返回表</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-remove-if 'numberp '(0 1 2))<FONT COLOR="#FF0000">
=> nil</FONT></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' X:STR="(std-remove-if-not pred lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-remove-if-not
pred lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>与上一个函数相反，保留</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' X:STR="(std-remove-duplicateslst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-remove-duplicateslst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>删除重复元素，排序不破坏。</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=60 STYLE='height:45.0pt' CLASS="xl238127">
<TD HEIGHT=60 WIDTH=284 STYLE='height:45.0pt;border-top:none;
  width:186pt' X:STR="(std-split-list n lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-split-list
n lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>按照个数</FONT><FONT>n</FONT><FONT>将表分成许多子表</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-split-list 3 '(0 1 2 3 4 5 6 8 9)) <FONT COLOR="#FF0000">=>
((0 1 2)(3 4 5)(6 7 8)(9))</FONT></DIV></TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' X:STR="(std-flatten lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-flatten
lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>tree =><FONT>将表变为一维表，没有子表形式</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-flatten '((0 1 2)(3 4 (5))(6 7 8)(9)) 
<FONT COLOR="#FF0000">=> (0 1 2 3 4 5 6 8 9)</FONT></DIV></TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' X:STR="(std-rotate-left lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-rotate-left
lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>把表的第一个元素移到最后一个</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-rotate-left '(0 1 2 3 4)) <FONT COLOR="#FF0000">=>
(1 2 3 4 0)</FONT></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' X:STR="(std-rotate-right lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-rotate-right
lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>把表的最后一个元素移到第一个</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' BGCOLOR="#6600FF"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">破坏性的建表形式，<FONT CLASS="font98127">push</FONT></FONT><FONT CLASS="font88127" COLOR="#FFFFFF">（推）或者</FONT><FONT CLASS="font98127" COLOR="#FFFFFF">pop</FONT><FONT CLASS="font88127" COLOR="#FFFFFF">（取）</FONT></DIV></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>　</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=80 STYLE='height:60.0pt' CLASS="xl238127">
<TD HEIGHT=80 WIDTH=284 STYLE='height:60.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-push x 'lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>将一个元素推到表（堆栈）中，有破坏性</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-push 0 '(1 2 3))  <FONT COLOR="#FF0000">=>
(0 1 2 3) </FONT></P><P>(setq stack '(1 2 3)) (std-push 0 'stack)   
<FONT COLOR="#FF0000">=> (0 1 2 3)</FONT></P><P> !stack                
<FONT COLOR="#FF0000">=> (0 1 2 3)</FONT></P></DIV></TD></TR><TR HEIGHT=60 STYLE='height:45.0pt' CLASS="xl238127">
<TD HEIGHT=60 WIDTH=284 STYLE='height:45.0pt;border-top:none;
  width:186pt' X:STR="(std-pop 'lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-pop
'lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>将一个元素从表（堆栈）中取出，有破坏性</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-pop '(1 2 3))    
<FONT COLOR="#FF0000">=> 1</FONT> </P><P>(setq stack '(1 2 3)) (std-pop 'stack)      
<FONT COLOR="#FF0000">=> 1</FONT></P><P> !stack                
<FONT COLOR="#FF0000">=> (2 3)</FONT></P></DIV></TD></TR><TR HEIGHT=100 STYLE='height:75.0pt' CLASS="xl238127">
<TD HEIGHT=100 WIDTH=284 STYLE='height:75.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-pushnew x 'lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>将新值推到表（堆栈）中，有点类似</FONT><FONT>std-adjoin</FONT><FONT>，有破坏性</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-pushnew 0 '(0 1 2 3))   <FONT COLOR="#FF0000">=>
(0 1 2 3)</FONT></P><P> (setq stack '(1 2 3)) (std-push 0 'stack)         
<FONT COLOR="#FF0000">=> (0 1 2 3)</FONT></P><P> !stack<FONT COLOR="#FF0000">                      
=> (0 1 2 3)</FONT></P></DIV></TD></TR><TR HEIGHT=120 STYLE='height:90.0pt' CLASS="xl238127">
<TD HEIGHT=120 WIDTH=284 STYLE='height:90.0pt;border-top:none;
  width:186pt' X:STR="(std-pushmax x 'lst nmax) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-pushmax
x 'lst nmax)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>将新值推到表（堆栈）中，但保持表的最大长度为</FONT><FONT>nmax</FONT><FONT>，有破坏性</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-pushmax 0 '(1 2 3 4) 4)  <FONT COLOR="#FF0000">=>
(0 1 2 3)</FONT></P><P> (setq stack '(1 2 3)) (std-push 0 'stack 4)        
<FONT COLOR="#FF0000">=> (0 1 2 3)</FONT></P><P> !stack<FONT COLOR="#FF0000">                       
=> (0 1 2 3)</FONT></P><P> (std-push 1 'stack 4)        
<FONT COLOR="#FF0000">=> (1 0 1 2)</FONT></P></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#6600FF"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">mapping,
iteration <FONT CLASS="font88127">映射，反复</FONT></FONT></DIV></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>　</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=120 STYLE='height:90.0pt' CLASS="xl238127">
<TD HEIGHT=120 WIDTH=284 STYLE='height:90.0pt;border-top:none;
  width:186pt' X:STR="(std-mapatom func tree) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-mapatom
func tree)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>将表中所有的元素按照</FONT><FONT>func</FONT><FONT>定义的函数进行变化，表中所有元素的树状结构不会改变</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-mapatom '1+ '(0 1 (2 (3))))<FONT COLOR="#FF0000">=>
(1 2 (3 (4)))</FONT></P><P> (std-mapatom (function (lambda (x) (cons 0 x))) 
'(0 1 (2 (3))))<FONT COLOR="#FF0000">=> ((0 . 0)(0 . 1) ((0 . 2) ((0 . 3))))</FONT></P></DIV></TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' X:STR="(std-every pred lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-every
pred lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>对表中元素进行约束条件（</FONT><FONT>pred</FONT><FONT>）的测试，都对了返回</FONT><FONT>t</FONT><FONT>，否则</FONT><FONT>nil</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-every 'std-pointp points)</DIV></TD></TR><TR HEIGHT=60 STYLE='height:45.0pt' CLASS="xl238127">
<TD HEIGHT=60 WIDTH=284 STYLE='height:45.0pt;border-top:none;
  width:186pt' X:STR="(std-every-n pred lists) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-every-n
pred lists)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>相比</FONT><FONT>every-n</FONT><FONT>，有更多参量</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><FONT CLASS="font78127" COLOR="#FFFFFF">(std-every-n
'and (list (mapcar 'x-of points) (mapcar 'y-of points)))</FONT></DIV></TD></TR><TR HEIGHT=60 STYLE='height:45.0pt' CLASS="xl238127">
<TD HEIGHT=60 WIDTH=284 STYLE='height:45.0pt;border-top:none;
  width:186pt' X:STR="(std-some pred lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-some
pred lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>对表中某些元素进行约束条件（</FONT><FONT>pred</FONT><FONT>）的测试，只要有对了就返回</FONT><FONT>t</FONT><FONT>，否则</FONT><FONT>nil</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' X:STR="(std-some-n pred lists) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-some-n
pred lists)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>(std-some pred lst) <FONT>的多参量判别</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#6600FF"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">集合操作（无序的多集合）</FONT></DIV></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>　</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=79 STYLE='height:59.25pt' CLASS="xl238127">
<TD HEIGHT=79 WIDTH=284 STYLE='height:59.25pt;border-top:none;
  width:186pt' X:STR="(std-union set1 set2) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-union
set1 set2)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>集合的并操作，合并两个集合，把第二个集合中的元素加到第一个，不是很稳定的函数，比</FONT><FONT>(std-ordered-union
set1 set2)</FONT><FONT>稍快</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=58 STYLE='height:43.5pt' CLASS="xl238127">
<TD HEIGHT=58 WIDTH=284 STYLE='height:43.5pt;border-top:none;
  width:186pt' X:STR="(std-ordered-union set1 set2) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-ordered-union
set1 set2)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>比较稳定的版本，集合并操作，保持第一个集合的顺序，第二个集合中的不同元素加入到集合一的最后</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-ordered-union '(1 5 3 4) '(1 2 3 3))<FONT COLOR="#FF0000">=>
(1 5 3 4 2)</FONT></DIV></TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' X:STR="(std-intersection set1 set2) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-intersection
set1 set2)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>集合的交操作</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-intersection  '(2 1 5 3 3 4 2) '(2
1 2 3 3))<FONT COLOR="#FF0000">=></FONT><FONT CLASS="font78127" COLOR="#FF0000">(2
1 3 3 2)</FONT></DIV></TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' X:STR="(std-set-difference set subset) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-set-difference
set subset)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>集合</FONT><FONT>1</FONT><FONT>中不在集合</FONT><FONT>2</FONT><FONT>中的元素</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-set-difference '(0 1 2 3 4 5) '(2 0 6 7))<FONT COLOR="#FF0000">
=> (1 3 4 5)</FONT></DIV></TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' X:STR="(std-set-exclusive-or set1 set2) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-set-exclusive-or
set1 set2)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>集合的余操作，不同时属于集合</FONT><FONT>1</FONT><FONT>或集合</FONT><FONT>2</FONT><FONT>的元素</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-set-exclusive-or '(0 1 2) '(2 3 4))<FONT COLOR="#FF0000">
=> (0 1 3 4)</FONT></DIV></TD></TR><TR HEIGHT=60 STYLE='height:45.0pt' CLASS="xl238127">
<TD HEIGHT=60 WIDTH=284 STYLE='height:45.0pt;border-top:none;
  width:186pt' X:STR="(std-subsetp subset set) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-subsetp
subset set)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>集合</FONT><FONT>1</FONT><FONT>是否集合</FONT><FONT>2</FONT><FONT>的子集</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-subsetp '(1 2) '(0 2 1 2)) <FONT COLOR="#FF0000">=>
t;</FONT></P><P>(std-subsetp '(3 1 2) '(0 2 1 2)) <FONT COLOR="#FF0000">=>
nil</FONT></P></DIV></TD></TR><TR HEIGHT=60 STYLE='height:45.0pt' CLASS="xl238127">
<TD HEIGHT=60 WIDTH=284 STYLE='height:45.0pt;border-top:none;
  width:186pt' X:STR="(std-set-equal-p lst1 lst2) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-set-equal-p
lst1 lst2)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>集合</FONT><FONT>1</FONT><FONT>、</FONT><FONT>2</FONT><FONT>是否完全相等</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-set-equal-p '(0 1 2) '(1 2 0)) <FONT COLOR="#FF0000">=>
t </FONT></P><P>(std-set-equal-p '(0 1 2) '(1 1 2 0))<FONT COLOR="#FF0000">=>
nil</FONT></P></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#6600FF"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">表的创建</FONT></DIV></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>　</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=60 STYLE='height:45.0pt' CLASS="xl238127">
<TD HEIGHT=60 WIDTH=284 STYLE='height:45.0pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-make-listn def)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>=><FONT>建立一个包含</FONT><FONT>n</FONT><FONT>个</FONT><FONT>def</FONT><FONT>的表</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-make-list 3 nil)<FONT COLOR="#FF0000">=>
(nil nil nil); </FONT> </P><P>(std-make-list 3 0.0)<FONT COLOR="#FF0000">=>
(0.0 0.0 0.0)</FONT></P></DIV></TD></TR><TR HEIGHT=39 STYLE='height:29.25pt' CLASS="xl238127">
<TD HEIGHT=39 WIDTH=284 STYLE='height:29.25pt;border-top:none;
  width:186pt' X:STR="(std-int-list n) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-int-list
n)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>=> <FONT>创建一个从</FONT><FONT>0</FONT><FONT>～</FONT><FONT>n-1</FONT><FONT>整数序列的表</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-int-list 3)<FONT COLOR="#FF0000">=> (0
1 2)</FONT></DIV></TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' X:STR="(std-iseq start end) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-iseq
start end)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>创建一个从<FONT>start</FONT><FONT>到</FONT><FONT>end</FONT><FONT>的整数表</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"> (std-iseq 1 5)<FONT COLOR="#FF0000">=>
(1 2 3 4 5);</FONT> (std-iseq 5 5)<FONT COLOR="#FF0000">=> (5)</FONT></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' X:STR="(std-rseq start end n) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-rseq
start end n)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>real sequence of n nums</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=97 STYLE='height:72.75pt' CLASS="xl238127">
<TD HEIGHT=97 WIDTH=284 STYLE='height:72.75pt;border-top:none;
  width:186pt' BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-nxtcyc i n incr-func)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>找出第</FONT><FONT>i</FONT><FONT>个元素在整数</FONT><FONT>n</FONT><FONT>循环（就是</FONT><FONT>0</FONT><FONT>，</FONT><FONT>1</FONT><FONT>，</FONT><FONT>2</FONT><FONT>，</FONT><FONT>3n-1</FONT><FONT>）中，下一个应该出现的数，一个比较奇怪的概念，据作者说用在多义线的子实体方面比较有用，</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-nxtcyc 0 3 '1+)<FONT COLOR="#FF0000">=>
1</FONT></P><P> (std-nxtcyc 1 3 '1+)<FONT COLOR="#FF0000">=> 2</FONT></P><P> 
(std-nxtcyc 2 3 '1+)<FONT COLOR="#FF0000">=> 0</FONT></P><P> (std-nxtcyc 3
3 '1+)<FONT COLOR="#FF0000">=> 1</FONT></P></DIV></TD></TR><TR HEIGHT=78 STYLE='height:58.5pt' CLASS="xl238127">
<TD HEIGHT=78 WIDTH=284 STYLE='height:58.5pt;border-top:none;
  width:186pt' X:STR="(std-copy-treelst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-copy-treelst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>=><FONT>把一个表拷贝到一个备份中，比较奇怪，作者说这个几乎在</FONT><FONT>autolisp</FONT><FONT>中不用，除了说想对表排序又不想破坏其结构。</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#6600FF"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">排序和整合</FONT></DIV></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>　</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=120 STYLE='height:90.0pt' CLASS="xl238127">
<TD HEIGHT=120 WIDTH=284 STYLE='height:90.0pt;border-top:none;
  width:186pt' X:STR="(std-sortlst less-pred) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-sortlst
less-pred)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>排序函数</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT"><P>(std-stable-sort '(2 0 1 2 3 4 0) '<)<FONT COLOR="#FF0000"> 
=> (0 0 1 2 2 3 4)</FONT></P><P> (std-fast-sort '("2" "1"
"3" "4" "0") '<) <FONT COLOR="#FF0000">=>
("0" "1" "2" "3" "4")</FONT>
(std-sort pointlist '(lambda (x y) (< (car x) (car y))))</P></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' X:STR="(std-stable-sortlst less-pred) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-stable-sortlst
less-pred)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>类似，不删除多余元素</FONT><FONT>,</FONT><FONT>保留次序</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' X:STR="(std-fast-sortlst less-pred) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-fast-sortlst
less-pred)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>删除多余元素</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=40 STYLE='height:30.0pt' CLASS="xl238127">
<TD HEIGHT=40 WIDTH=284 STYLE='height:30.0pt;border-top:none;
  width:186pt' X:STR="(std-mergelst1 lst2 less-pred) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-mergelst1
lst2 less-pred)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>对两个表按某种排序法进行合并</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'><DIV ALIGN="LEFT">(std-merge '(0 2 3) '(1 4 5) '<)<FONT COLOR="#FF0000">=>
(0 1 2 3 4 5)</FONT></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' BGCOLOR="#6600FF"><DIV ALIGN="CENTER"><FONT COLOR="#FFFFFF">随机数</FONT></DIV></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'>　</TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' X:STR="(std-randomize lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-randomize
lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>对原表进行随机打乱</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt' X:STR="(std-randomize '(0 1 2 3 4)) "><DIV ALIGN="LEFT">(std-randomize
'(0 1 2 3 4)) </DIV></TD></TR><TR HEIGHT=20 STYLE='height:15.0pt' CLASS="xl238127">
<TD HEIGHT=20 WIDTH=284 STYLE='height:15.0pt;border-top:none;
  width:186pt' X:STR="(std-random-elt lst) " BGCOLOR="#333399"><FONT COLOR="#FFFFFF">(std-random-elt
lst)</FONT></TD><TD WIDTH=368 STYLE='border-top:none;border-left:none;
  width:210pt'><FONT>随机取出表中的某个元素</FONT></TD><TD WIDTH=255 STYLE='border-top:none;border-left:none;
  width:197pt'>　<DIV ALIGN="LEFT"></DIV></TD></TR></TABLE>
</BODY>
</HTML>

狂刀 · 发表于 2005-10-20 12:20:28

比较全，其中论坛有很多已经写出来了

taner · 发表于 2005-10-20 22:12:35

能否將這個函數集貼上來?

snoopychen · 发表于 2005-10-20 22:42:19

http://p4.xdcad.net/forum/showth ... 2278665#post2278665
在这个贴可以下载
或者是下面这个带有chm帮助文件的rar

snoopychen · 发表于 2005-10-21 11:10:18

由于表格不好弄，只好把其他部分做成一个gif文件

taner · 发表于 2005-10-21 18:23:00

能否用EXCEL,壓縮後做個附件傳上來?下載後存檔方便些.

xyz518mm · 发表于 2005-10-22 08:28:11

赞成楼上的建议
希望可以看的到

狂刀 · 发表于 2005-10-22 23:43:01

晕，简直牛头不对马嘴，4楼该给的都给了呀@！

aeo · 发表于 2005-10-23 00:43:43

其实它出来的比较早
后来vlisp出来了，很多东西就没必要了，它好像也就不更新了.
有的函数分的太细了，感觉没必要.

chenknight · 发表于 2005-10-24 00:35:45

比较早的东东的

snoopychen · 发表于 2005-10-24 18:40:49

对，这个已经很久没有更新了，好像02年之后就没有了
作者本人可能对vital lisp 或者common lisp 这些原生lisp比较熟，所以各种编程的方法和思路
都挺正规的。递归啊什么的都用的很好。
他的函数分类是偏细分了些。
emule上有关于AI的一个压缩包，里面有好几本关于纯lisp的书，
比如Prentice Hall - On Lisp - Advanced Techniques for Common Lisp - 1993
讲了不少算法，也有挺多源码的
虽然和autolisp不完全一样，看看也挺有趣的
关于用图形表示这些函数，个人的感觉是有时候在论坛上看到不少东西，挺吸引的，就下载附件了，结果之后硬盘上存了不少东西，一段时间没去整理，也就浪费了这些好软件了。所以发成图形，直接在论坛上看看也就算数，要是版主们觉得会浪费空间的话，那我再想想办法：）

现在做的html版本应该好一些

[iframe h=500 w=600]http://qjchen.googlepages.com/STDLIBSHUOMING7.htm[/iframe]

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

[LISP函数]：stdlib函数集的简介

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

相关帖子