[Lisp-cn] Common Lisp有没有自带像这个函数的函数？

[何蒙召]

集合凜数里面扟䞀扟

-----Original Message-----
From: 宋䞺@凉拌茶叶
Sent: 4/2/2014 22:27
To: lisp-***@googlegroups.com
Subject: [Lisp-cn] Common Lisp有没有自垊像这䞪凜数的凜数

写了䞀䞪凜数
> (defun diff (lst1 lst2)
> "Get members in LST1 which are not in LST2."
> (remove-if (lambda (x)
> (member x lst2))
> lst1))
>
> (diff '(1 2 3 4 5) '(2 4))
> =>(1 3 5)
CL有没有自垊这䞪功胜每次芁自己写䞀䞪感觉奜纠结啊。

其实我是想芁ldiff䞀样的䞜西䜆ldiff对蟓入奜像有某种苛刻的芁求䞍倪懂

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

[Xiaofeng Yang]

䜠的意思是䞍懂ldiff的甚法对吧给䜠䞪粟确的。

(defun ldiff (list object)
(do ((list list (cdr list))
(r '() (cons (car list) r)))
((atom list)
(if (eql list object) (nreverse r) (nreconc r list)))
(when (eql object list)
(return (nreverse r)))))
​

Best regards,
Xiaofeng Yang


圚 2014幎4月2日 䞋午10:27"宋䞺@凉拌茶叶" <***@126.com>写道

> 写了䞀䞪凜数
>
>> (defun diff (lst1 lst2)
>> "Get members in LST1 which are not in LST2."
>> (remove-if (lambda (x)
>> (member x lst2))
>> lst1))
>>
>> (diff '(1 2 3 4 5) '(2 4))
>> =>(1 3 5)
>>
> CL有没有自垊这䞪功胜每次芁自己写䞀䞪感觉奜纠结啊。
>
> 其实我是想芁ldiff䞀样的䞜西䜆ldiff对蟓入奜像有某种苛刻的芁求䞍倪懂
>
> --
> --
> Lisp-cn(Lisp䞭文甚户组)
> CLUG http://lisp.org.cn
>
> --- 悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
> 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
> 芁查看曎倚选项请访问 https://groups.google.com/d/optout。
>

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

[freegih]

你连 ldiff 都知道了，就没看到 set-difference ?

另外，以后能不能用文字描述清楚问题？

》像这个函数的函数。。。。


On Apr 2, 2014, at 22:36, freegih <***@gmail.com> wrote:

> set-difference
>
> On Apr 2, 2014, at 22:27, 宋为@凉拌茶叶 <***@126.com> wrote:
>
>> 写了一个函数：
>>> (defun diff (lst1 lst2)
>>> "Get members in LST1 which are not in LST2."
>>> (remove-if (lambda (x)
>>> (member x lst2))
>>> lst1))
>>>
>>> (diff '(1 2 3 4 5) '(2 4))
>>> =>(1 3 5)
>> CL有没有自带这个功能？每次要自己写一个感觉好纠结啊。
>>
>> （其实我是想要ldiff一样的东西，但ldiff对输入好像有某种苛刻的要求，不太懂）
>>
>> --
>> --
>> Lisp-cn(Lisp中文用户组)
>> CLUG http://lisp.org.cn
>>
>> --- 您收到此邮件是因为您订阅了 Google 网上论坛的“Lisp-cn(Lisp中文用户组)”论坛。
>> 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到lisp-cn+***@googlegroups.com。
>> 要查看更多选项，请访问 https://groups.google.com/d/optout。
>

--
--
Lisp-cn(Lisp中文用户组)
CLUG http://lisp.org.cn

---
您收到此邮件是因为您订阅了 Google 网上论坛的“Lisp-cn(Lisp中文用户组)”论坛。
要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到lisp-cn+***@googlegroups.com。
要查看更多选项，请访问 https://groups.google.

[宋为@凉拌茶叶]

[freegih]

[宋为@凉拌茶叶]

[Jeova Sanctus Unus]

集合运算呀?扟䞪set库


圚 2014幎4月2日 䞋午10:27"宋䞺@凉拌茶叶" <***@126.com>写道

> 写了䞀䞪凜数
>
>> (defun diff (lst1 lst2)
>> "Get members in LST1 which are not in LST2."
>> (remove-if (lambda (x)
>> (member x lst2))
>> lst1))
>>
>> (diff '(1 2 3 4 5) '(2 4))
>> =>(1 3 5)
>>
> CL有没有自垊这䞪功胜每次芁自己写䞀䞪感觉奜纠结啊。
>
> 其实我是想芁ldiff䞀样的䞜西䜆ldiff对蟓入奜像有某种苛刻的芁求䞍倪懂
>
> --
> --
> Lisp-cn(Lisp䞭文甚户组)
> CLUG http://lisp.org.cn
>
> --- 悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
> 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
> 芁查看曎倚选项请访问 https://groups.google.com/d/optout。
>

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

[f***@public.gmane.org]

ÓÐûÓÐÓÃCL×ö¹ýÓÎÏ··þÎñÆ÷µÄÅóÓÑ£¬²»ÊÇÄÇÖÖͬʱÔÚÏߵģ¬ŸÍÊÇÒ천ÊýŸÝµÄÉÏŽ«ÓëÏÂÔØÕâžö¹ŠÄÜŸÍOK£¬ÀýÈçһЩÍæŒÒ׎̬ÉÏŽ«£¬»òÕߎӷþÎñÆ÷ÉÏÏÂÔØеĵØÍŒÕâÑùµÄ¹ŠÄÜ¡£

--
--
Lisp-cn(LispÖÐÎÄÓû§×é)
CLUG http://lisp.org.cn

---
ÄúÊÕµœŽËÓÊŒþÊÇÒòΪÄú¶©ÔÄÁË Google ÍøÉÏÂÛ̳µÄ¡°Lisp-cn(LispÖÐÎÄÓû§×é)¡±ÂÛ̳¡£
ÒªÍ˶©ŽËÂÛ̳²¢Í£Ö¹œÓÊÕŽËÂÛ̳µÄµç×ÓÓÊŒþ£¬Çë·¢Ë͵ç×ÓÓÊŒþµœlisp-cn+***@googlegroups.com¡£
Òª²é¿Žžü¶àÑ¡ÏÇë·ÃÎÊ https://groups.google.com/d/optout¡£

[Nala Ginrut]

2014幎4月4日 AM2:19于 "***@gmail.com" <***@gmail.com>写道
>
>
有没有甚CL做过枞戏服务噚的朋友䞍是那种同时圚线的就是匂步数据的䞊䌠䞎䞋蜜这䞪功胜就OK䟋劂䞀些玩家状态䞊䌠或者从服务噚䞊䞋蜜新的地囟这样的功胜。
>

䜠芁做什么收莭 :)

> --
> --
> Lisp-cn(Lisp䞭文甚户组)
> CLUG http://lisp.org.cn
>
> ---
> 悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞭的“Lisp-cn(Lisp䞭文甚户组)”论坛。
> 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
> 芁查看曎倚选项请访问https://groups.google.com/d/optout。

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

[f***@public.gmane.org]

2014Äê4ÔÂ4ÈÕ AM2:19ÓÚ "***@gmail.com" <***@gmail.com>ÐŽµÀ£º
>
>
ÓÐûÓÐÓÃCL×ö¹ýÓÎÏ··þÎñÆ÷µÄÅóÓÑ£¬²»ÊÇÄÇÖÖͬʱÔÚÏߵģ¬ŸÍÊÇÒ천ÊýŸÝµÄÉÏŽ«ÓëÏÂÔØÕâžö¹ŠÄÜŸÍOK£¬ÀýÈçһЩÍæŒÒ׎̬ÉÏŽ«£¬»òÕߎӷþÎñÆ÷ÉÏÏÂÔØеĵØÍŒÕâÑùµÄ¹ŠÄÜ¡£
>

ÄãÒª×öʲΣ¿ÊÕ¹º£¿ :)

> --
> --
> Lisp-cn(LispÖÐÎÄÓû§×é)
> CLUG http://lisp.org.cn
>
> ---
> ÄúÊÕµœŽËÓÊŒþÊÇÒòΪÄú¶©ÔÄÁËGoogleÍøÉÏÂÛ̳Öеġ°Lisp-cn(LispÖÐÎÄÓû§×é)¡±ÂÛ̳¡£
> ÒªÍ˶©ŽËÂÛ̳²¢Í£Ö¹œÓÊÕŽËÂÛ̳µÄµç×ÓÓÊŒþ£¬Çë·¢Ë͵ç×ÓÓÊŒþµœlisp-cn+***@googlegroups.com¡£
> Òª²é¿Žžü¶àÑ¡ÏÇë·ÃÎÊhttps://groups.google.com/d/optout¡£

--
--
Lisp-cn(LispÖÐÎÄÓû§×é)
CLUG http://lisp.org.cn

---
ÄúÊÕµœŽËÓÊŒþÊÇÒòΪÄú¶©ÔÄÁË Google ÍøÉÏÂÛ̳µÄ¡°Lisp-cn(LispÖÐÎÄÓû§×é)¡±ÂÛ̳¡£
ÒªÍ˶©ŽËÂÛ̳²¢Í£Ö¹œÓÊÕŽËÂÛ̳µÄµç×ÓÓÊŒþ£¬Çë·¢Ë͵ç×ÓÓÊŒþµœlisp-cn+***@googlegroups.com¡£
Òª²é¿Žžü¶àÑ¡ÏÇë·ÃÎÊ https://groups.google.com/d/optout¡£

--
--
Lisp-cn(LispÖÐÎÄÓû§×é)
CLUG http://lisp.org.cn

---
ÄúÊÕµœŽËÓÊŒþÊÇÒòΪÄú¶©ÔÄÁË Google ÍøÉÏÂÛ̳µÄ¡°Lisp-cn(LispÖÐÎÄÓû§×é)¡±ÂÛ̳¡£
ÒªÍ˶©ŽËÂÛ̳²¢Í£Ö¹œÓÊÕŽËÂÛ̳µÄµç×ÓÓÊŒþ£¬Çë·¢Ë͵ç×ÓÓÊŒþµœlisp-cn+***@googlegroups.com¡£
Òª²é¿Žžü¶àÑ¡ÏÇë·ÃÎÊ https://groups.google.com/d/optout¡£

[Xiaofeng Yang]

䜠觉埗䜠所需芁做的事情需芁对语蚀/实现䞊有哪些芁求呢​以及䞺什么䜠䌚选择CL呢䞍劚诎诎䜠的实际情况

CL有䞀些自己的特点比方诎CL实现䞍䌚产生倚快的代码进皋和线皋郜埈重量级容易搞乱运行环境代码容易厩溃由于倪过倍杂䞀般人郜讀䞺自己懂CL其实连代码最终䌚劂䜕执行郜䞍知道匱匱的基本䞊䞍劂没有的宏CL实现容易挂掉容易出现各种莫名其劙的又明星的bug等等等等圓然我只是随䟿诎诎他的䞀些䌘点而已啊。䜠的具䜓问题芁具䜓看埅。



Best regards,
Xiaofeng Yang


圚 2014幎4月4日 䞊午9:30***@gmail.com <***@gmail.com>写道

> 实现我想知道可行性劂䜕
>
> ------------------------------
> ***@gmail.com
>
> *发件人* Nala Ginrut <***@gmail.com>
> *发送时闎* 2014-04-04 09:14
> *收件人* lisp-cn <lisp-***@googlegroups.com>
> *䞻题* Re: [Lisp-cn] 有没有甚CL做过眑络枞戏服务噚的
>
>
> 2014幎4月4日 AM2:19于 "***@gmail.com" <***@gmail.com>写道
> >
> >
> 有没有甚CL做过枞戏服务噚的朋友䞍是那种同时圚线的就是匂步数据的䞊䌠䞎䞋蜜这䞪功胜就OK䟋劂䞀些玩家状态䞊䌠或者从服务噚䞊䞋蜜新的地囟这样的功胜。
> >
>
> 䜠芁做什么收莭 :)
>
> > --
> > --
> > Lisp-cn(Lisp䞭文甚户组)
> > CLUG http://lisp.org.cn
> >
> > ---
> > 悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞭的“Lisp-cn(Lisp䞭文甚户组)”论坛。
> > 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
> > 芁查看曎倚选项请访问https://groups.google.com/d/optout。
>
> --
> --
> Lisp-cn(Lisp䞭文甚户组)
> CLUG http://lisp.org.cn
>
> ---
> 悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞭的“Lisp-cn(Lisp䞭文甚户组)”论坛。
> 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
> 芁查看曎倚选项请访问https://groups.google.com/d/optout。
>
> --
> --
> Lisp-cn(Lisp䞭文甚户组)
> CLUG http://lisp.org.cn
>
> ---
> 悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞭的“Lisp-cn(Lisp䞭文甚户组)”论坛。
> 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
> 芁查看曎倚选项请访问https://groups.google.com/d/optout。
>

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

[f***@public.gmane.org]

䜠觉埗䜠所需芁做的事情需芁对语蚀/实现䞊有哪些芁求呢​以及䞺什么䜠䌚选择CL呢䞍劚诎诎䜠的实际情况

CL有䞀些自己的特点比方诎CL实现䞍䌚产生倚快的代码进皋和线皋郜埈重量级容易搞乱运行环境代码容易厩溃由于倪过倍杂䞀般人郜讀䞺自己懂CL其实连代码最终䌚劂䜕执行郜䞍知道匱匱的基本䞊䞍劂没有的宏CL实现容易挂掉容易出现各种莫名其劙的又明星的bug等等等等圓然我只是随䟿诎诎他的䞀些䌘点而已啊。䜠的具䜓问题芁具䜓看埅。



Best regards,
Xiaofeng Yang


圚 2014幎4月4日 䞊午9:30***@gmail.com <***@gmail.com>写道

> 实现我想知道可行性劂䜕
>
> ------------------------------
> ***@gmail.com
>
> *发件人* Nala Ginrut <***@gmail.com>
> *发送时闎* 2014-04-04 09:14
> *收件人* lisp-cn <lisp-***@googlegroups.com>
> *䞻题* Re: [Lisp-cn] 有没有甚CL做过眑络枞戏服务噚的
>
>
> 2014幎4月4日 AM2:19于 "***@gmail.com" <***@gmail.com>写道
> >
> >
> 有没有甚CL做过枞戏服务噚的朋友䞍是那种同时圚线的就是匂步数据的䞊䌠䞎䞋蜜这䞪功胜就OK䟋劂䞀些玩家状态䞊䌠或者从服务噚䞊䞋蜜新的地囟这样的功胜。
> >
>
> 䜠芁做什么收莭 :)
>
> > --
> > --
> > Lisp-cn(Lisp䞭文甚户组)
> > CLUG http://lisp.org.cn
> >
> > ---
> > 悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞭的“Lisp-cn(Lisp䞭文甚户组)”论坛。
> > 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
> > 芁查看曎倚选项请访问https://groups.google.com/d/optout。
>
> --
> --
> Lisp-cn(Lisp䞭文甚户组)
> CLUG http://lisp.org.cn
>
> ---
> 悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞭的“Lisp-cn(Lisp䞭文甚户组)”论坛。
> 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
> 芁查看曎倚选项请访问https://groups.google.com/d/optout。
>
> --
> --
> Lisp-cn(Lisp䞭文甚户组)
> CLUG http://lisp.org.cn
>
> ---
> 悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞭的“Lisp-cn(Lisp䞭文甚户组)”论坛。
> 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
> 芁查看曎倚选项请访问https://groups.google.com/d/optout。
>

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

[Jeova Sanctus Unus]

芁䞍芁到 39128390 这䞪矀里来讚论䞀䞋(这䞪矀和这里应该是䞀䞪瀟区吧,所以应该没有拉人嫌疑 哈哈)





圚 2014幎4月4日 䞊午11:49***@gmail.com <***@gmail.com>写道

> 对于语蚀没有什么芁求做的这些只是玩技术而已我对CL䞍是埈懂䜆是感觉圚某些方面CL描述䞀些䞜西埈方䟿所以想知道劂果甚CL做䞀䞪简单的枞戏服务噚可行性劂䜕。劂果䞍行也可以甚Erlang.
>
>
> ------------------------------
> ***@gmail.com
>
> *发件人* Xiaofeng Yang <***@gmail.com>
> *发送时闎* 2014-04-04 10:28
> *收件人* lisp-cn <lisp-***@googlegroups.com>
> *䞻题* Re: Re: [Lisp-cn] 有没有甚CL做过眑络枞戏服务噚的
> 䜠觉埗䜠所需芁做的事情需芁对语蚀/实现䞊有哪些芁求呢​以及䞺什么䜠䌚选择CL呢䞍劚诎诎䜠的实际情况
>
>
> CL有䞀些自己的特点比方诎CL实现䞍䌚产生倚快的代码进皋和线皋郜埈重量级容易搞乱运行环境代码容易厩溃由于倪过倍杂䞀般人郜讀䞺自己懂CL其实连代码最终䌚劂䜕执行郜䞍知道匱匱的基本䞊䞍劂没有的宏CL实现容易挂掉容易出现各种莫名其劙的又明星的bug等等等等圓然我只是随䟿诎诎他的䞀些䌘点而已啊。䜠的具䜓问题芁具䜓看埅。
>
>
>
> Best regards,
> Xiaofeng Yang
>
>
> 圚 2014幎4月4日 䞊午9:30***@gmail.com <***@gmail.com>写道
>
>> 实现我想知道可行性劂䜕
>>
>> ------------------------------
>> ***@gmail.com
>>
>> *发件人* Nala Ginrut <***@gmail.com>
>> *发送时闎* 2014-04-04 09:14
>> *收件人* lisp-cn <lisp-***@googlegroups.com>
>> *䞻题* Re: [Lisp-cn] 有没有甚CL做过眑络枞戏服务噚的
>>
>>
>> 2014幎4月4日 AM2:19于 "***@gmail.com" <***@gmail.com>写道
>> >
>> >
>> 有没有甚CL做过枞戏服务噚的朋友䞍是那种同时圚线的就是匂步数据的䞊䌠䞎䞋蜜这䞪功胜就OK䟋劂䞀些玩家状态䞊䌠或者从服务噚䞊䞋蜜新的地囟这样的功胜。
>> >
>>
>> 䜠芁做什么收莭 :)
>>
>> > --
>> > --
>> > Lisp-cn(Lisp䞭文甚户组)
>> > CLUG http://lisp.org.cn
>> >
>> > ---
>> > 悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞭的“Lisp-cn(Lisp䞭文甚户组)”论坛。
>> > 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
>> > 芁查看曎倚选项请访问https://groups.google.com/d/optout。
>>
>> --
>> --
>> Lisp-cn(Lisp䞭文甚户组)
>> CLUG http://lisp.org.cn
>>
>> ---
>> 悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞭的“Lisp-cn(Lisp䞭文甚户组)”论坛。
>> 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
>> 芁查看曎倚选项请访问https://groups.google.com/d/optout。
>>
>> --
>> --
>> Lisp-cn(Lisp䞭文甚户组)
>> CLUG http://lisp.org.cn
>>
>> ---
>> 悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞭的“Lisp-cn(Lisp䞭文甚户组)”论坛。
>> 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
>> 芁查看曎倚选项请访问https://groups.google.com/d/optout。
>>
>
> --
> --
> Lisp-cn(Lisp䞭文甚户组)
> CLUG http://lisp.org.cn
>
> ---
> 悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞭的“Lisp-cn(Lisp䞭文甚户组)”论坛。
> 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
> 芁查看曎倚选项请访问https://groups.google.com/d/optout。
>
> --
> --
> Lisp-cn(Lisp䞭文甚户组)
> CLUG http://lisp.org.cn
>
> ---
> 悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞭的“Lisp-cn(Lisp䞭文甚户组)”论坛。
> 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
> 芁查看曎倚选项请访问https://groups.google.com/d/optout。
>

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

[Chaos Eternal]

这事不是经常用erlang做么

2014-04-03 10:47 GMT+08:00 ***@gmail.com <***@gmail.com>:
> 有没有用CL做过游戏服务器的朋友，不是那种同时在线的，就是异步数据的上传与下载这个功能就OK，例如一些玩家状态上传，或者从服务器上下载新的地图这样的功能。
>
> --
> --
> Lisp-cn(Lisp中文用户组)
> CLUG http://lisp.org.cn
>
> ---
> 您收到此邮件是因为您订阅了Google网上论坛中的“Lisp-cn(Lisp中文用户组)”论坛。
> 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到lisp-cn+***@googlegroups.com。
> 要查看更多选项，请访问https://groups.google.com/d/optout。

--
--
Lisp-cn(Lisp中文用户组)
CLUG http://lisp.org.cn

---
您收到此邮件是因为您订阅了 Google 网上论坛的“Lisp-cn(Lisp中文用户组)”论坛。
要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到lisp-cn+***@googlegroups.com。
要查看更多选项，请访问 https://groups.go

[savior michael]

集合求差集甚set-difference 就可以了

On Wednesday, April 2, 2014 10:27:28 PM UTC+8, 凉拌茶叶 wrote:
>
> 写了䞀䞪凜数
> > (defun diff (lst1 lst2)
> > "Get members in LST1 which are not in LST2."
> > (remove-if (lambda (x)
> > (member x lst2))
> > lst1))
> >
> > (diff '(1 2 3 4 5) '(2 4))
> > =>(1 3 5)
> CL有没有自垊这䞪功胜每次芁自己写䞀䞪感觉奜纠结啊。
>
> 其实我是想芁ldiff䞀样的䞜西䜆ldiff对蟓入奜像有某种苛刻的芁求䞍倪懂
>
>

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

[shenhua zhang]

集合刀等
劂果是集合刀等的话䜠这䞪凜数写埗是有问题的。


圚 2014幎4月18日 䞋午12:02savior michael <***@gmail.com>写道

> 集合求差集甚set-difference 就可以了
>
> On Wednesday, April 2, 2014 10:27:28 PM UTC+8, 凉拌茶叶 wrote:
>>
>> 写了䞀䞪凜数
>> > (defun diff (lst1 lst2)
>> > "Get members in LST1 which are not in LST2."
>> > (remove-if (lambda (x)
>> > (member x lst2))
>> > lst1))
>> >
>> > (diff '(1 2 3 4 5) '(2 4))
>> > =>(1 3 5)
>> CL有没有自垊这䞪功胜每次芁自己写䞀䞪感觉奜纠结啊。
>>
>> 其实我是想芁ldiff䞀样的䞜西䜆ldiff对蟓入奜像有某种苛刻的芁求䞍倪懂
>>
>> --
> --
> Lisp-cn(Lisp䞭文甚户组)
> CLUG http://lisp.org.cn
>
> ---
> 悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞭的“Lisp-cn(Lisp䞭文甚户组)”论坛。
> 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
> 芁查看曎倚选项请访问https://groups.google.com/d/optout。
>

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

[shenhua zhang]

å“Š 我看错的䜠芁的是差集
赀膊cl里无歀凜数。


圚 2014幎4月19日 䞋午6:39shenhua zhang <***@gmail.com>写道

> 集合刀等
> 劂果是集合刀等的话䜠这䞪凜数写埗是有问题的。
>
>
> 圚 2014幎4月18日 䞋午12:02savior michael <***@gmail.com>写道
>
> 集合求差集甚set-difference 就可以了
>>
>> On Wednesday, April 2, 2014 10:27:28 PM UTC+8, 凉拌茶叶 wrote:
>>>
>>> 写了䞀䞪凜数
>>> > (defun diff (lst1 lst2)
>>> > "Get members in LST1 which are not in LST2."
>>> > (remove-if (lambda (x)
>>> > (member x lst2))
>>> > lst1))
>>> >
>>> > (diff '(1 2 3 4 5) '(2 4))
>>> > =>(1 3 5)
>>> CL有没有自垊这䞪功胜每次芁自己写䞀䞪感觉奜纠结啊。
>>>
>>> 其实我是想芁ldiff䞀样的䞜西䜆ldiff对蟓入奜像有某种苛刻的芁求䞍倪懂
>>>
>>> --
>> --
>> Lisp-cn(Lisp䞭文甚户组)
>> CLUG http://lisp.org.cn
>>
>> ---
>> 悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞭的“Lisp-cn(Lisp䞭文甚户组)”论坛。
>> 芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
>> 芁查看曎倚选项请访问https://groups.google.com/d/optout。
>>
>
>

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

[f***@public.gmane.org]

集合凜数里面扟䞀扟

-----Original Message-----
From: 宋䞺@凉拌茶叶
Sent: 4/2/2014 22:27
To: lisp-***@googlegroups.com
Subject: [Lisp-cn] Common Lisp有没有自垊像这䞪凜数的凜数

写了䞀䞪凜数
> (defun diff (lst1 lst2)
> "Get members in LST1 which are not in LST2."
> (remove-if (lambda (x)
> (member x lst2))
> lst1))
>
> (diff '(1 2 3 4 5) '(2 4))
> =>(1 3 5)
CL有没有自垊这䞪功胜每次芁自己写䞀䞪感觉奜纠结啊。

其实我是想芁ldiff䞀样的䞜西䜆ldiff对蟓入奜像有某种苛刻的芁求䞍倪懂

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn

---
悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁退订歀论坛并停止接收歀论坛的电子邮件请发送电子邮件到lisp-cn+***@googlegroups.com。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。