问个common lisp的问题 - CS版

本页内容为未名空间相应帖子的节选和存档，一周内的贴子最多显示50字，超过一周显示500字访问原贴

CS版 - 问个common lisp的问题

相关主题
● 问个Scheme的题目，大家帮帮忙。。	● NS2 can be used to verify fat-tree in parallel?
● 问个算法题，给个简单的思路就好。	● 请问目前security这个领域都有哪些比较热点的方向啊？
● [转载] 问个 pattern recognition 的人	● How to Parsing function in Haskell?
● [转载] Re: 问个 pattern recognition 的人	● emacs太难用了呀
● 问个HTML DOM JavaScript相关的问题 (转载)	● 有将军了解区块链吗
● 关于min-max fairness	● Java有没有define, ifdef?
● [转载] Scheme 编程问题求教	● Microsoft Visual Source Safe 求教
● [转载] LISP问题求教	● 推荐一个open source的c compiler

相关话题的讨论汇总
话题: pattern话题: source话题: match话题: car话题: null

进入CS版参与讨论

(共1页)

t******n
发帖数: 239

要写个assertion pattern的东西。比如说
(match '(a ? c) '(a b c))
那么？ = b
(match '(a ! c) '(a s x c))
!=(s x)
?替代一个字符，！替代》=1个字符。
我写！碰上问题了，怎么也写不出多于1个的。有没高人帮帮忙

s*********b
发帖数: 815

给的题目描述不足啊。比如说(a ! ! c)怎么算呢？如果只是满足给出的两个例子，就
是普通的递归阿。对CL不熟，就用Scheme了：
(define match
(lambda (pattern source)
(cond
((null? pattern) '())
((null? source) '())
((eq? (car pattern) '?) (car source))
((and (eq? (car pattern) '!)
(cond
((null? (cdr source)) source)
((or (null? (cdr pattern)) (eq? (cadr pattern) (cadr source)))
(list (car source)))
(else (cons (car source) (match pattern (cdr source)))))))

(共1页)

进入CS版参与讨论

相关主题
● 推荐一个open source的c compiler	● 问个HTML DOM JavaScript相关的问题 (转载)
● Neural Networks 求助	● 关于min-max fairness
● 大家都给别人自己的source code吗？	● [转载] Scheme 编程问题求教
● 为什么多个线程生成的随机数是一样的？	● [转载] LISP问题求教
● 问个Scheme的题目，大家帮帮忙。。	● NS2 can be used to verify fat-tree in parallel?
● 问个算法题，给个简单的思路就好。	● 请问目前security这个领域都有哪些比较热点的方向啊？
● [转载] 问个 pattern recognition 的人	● How to Parsing function in Haskell?
● [转载] Re: 问个 pattern recognition 的人	● emacs太难用了呀

相关话题的讨论汇总
话题: pattern话题: source话题: match话题: car话题: null

#	版面	帖数(主题数)
-	全站	4871 (796)
1	Military	3777 (569)
2	Stock	341 (51)
3	Joke	117 (17)
4	History	116 (3)
5	Automobile	100 (9)
6	USANews	55 (9)
7	Midlife	45 (1)
8	Headline	41 (41)
9	Dreamer	33 (13)
10	FleaMarket	32 (20)
11	Living	30 (7)

boards

未名新帖统计// 7月16日

历史上的今天