QUAN2518 发表于 2008-6-17 22:07:00

不好意思 请教个函数

<p><font color="#ff3300">删除列表内重复元素的函数或者写法</font>(setq ss '( 1 2 5 8 9 1 2 5 9 8 ))</p><p>目的返回:( 1 2 5 8 9&nbsp; )<font color="#f73809">最好对符号列表也试用</font></p><p><font color="#f73809">统计列表内重复元素的函数或者写法</font>(setq ss '( 1 2 5 8 9 1 2 5 9 8 ))</p><p>一知一元素包含在上列表内 但是有重复出现 要求返回此元素在表内出现的次数即表内有多少个此元素相同的元素.</p><p></p>

aroom 发表于 2008-6-17 22:33:00

(setq ss '( 1 2 5 8 9 1 2 5 9 8 ))   =&gt; (1 2 5 8 9 1 2 5 9 8)<br/>(unique ss)                          =&gt; (1 2 5 8 9)<br/>(setq lst '( a b c d e a b c d e ))  =&gt; (a b c d e a b c d e)<br/>(unique lst)                         =&gt; (a b c d e)

QUAN2518 发表于 2008-6-17 23:01:00

本帖最后由 作者 于 2008-6-17 23:05:04 编辑 <br /><br /> <p><font size="6">感谢楼上兄弟的解答</font></p><p>第一个问题</p><p>(1 2 5 8 9 1 2 5 9 8) <br/>; 错误: no function definition: UNIQUE<br/>_$ </p><p><font size="6">&nbsp;对第二的问题能否重新处理下</font></p><p></p><p><font color="#f73809">统计列表内重复元素的<font color="#09f709">数量</font></font></p><p><font color="#f73809"><font color="#09f709">的</font>函数或者写法</font>(setq ss '( 1 2 5 8 9 1 2 5 9 8 ))&nbsp; 对元素1 返回 2&lt;出现2次&gt;</p><p>一知一元素包含在上列表内 但是有重复出现 要求返回此元素在表内出现的次数即表内有多少个此元素相同的元素.</p>

danxingpen 发表于 2008-6-18 08:48:00

表的处理的问题好像基本都是解决了的,,查找一下吧!

aroom 发表于 2008-6-18 09:18:00

可以使用算子函数来处理，算子语言程序这里下载<br/><br/>unique<br/>语法: (unique lst)<br/><br/>删除列表中的所有重复的元素, 返回一个包含唯一元素的列表.<br/>示例:<br/><br/>    (unique '(2 3 4 4 6 7 8 7))  =&gt; (2 3 4 6 7 8)<br/><br/>count<br/>语法: (count lst1 lst2)<br/><br/>计算 lst1 列表中的各个元素在 lst2 列表中的出现次数, 返回各个元素的计数列表.<br/>示例:<br/><br/>    (count '(1 2 3) '(3 2 1 4 2 3 1 1 2 2))  =&gt; (3 4 2)<br/>    (count '(z a) '(z d z b a z y a))        =&gt; (3 2)<br/><br/><br/>
页: [1]
查看完整版本: 不好意思 请教个函数