由买买提看人间百态

boards

本页内容为未名空间相应帖子的节选和存档,一周内的贴子最多显示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 fairnessJava有没有define, ifdef?
[转载] Scheme 编程问题求教Microsoft Visual Source Safe 求教
[转载] LISP问题求教推荐一个open source的c compiler
相关话题的讨论汇总
话题: pattern话题: source话题: match话题: car话题: null
进入CS版参与讨论
1 (共1页)
t******n
发帖数: 239
1
要写个assertion pattern的东西。比如说
(match '(a ? c) '(a b c))
那么? = b
(match '(a ! c) '(a s x c))
!=(s x)
?替代一个字符,!替代》=1个字符。
我写!碰上问题了,怎么也写不出多于1个的。有没高人帮帮忙
s*********b
发帖数: 815
2
给的题目描述不足啊。比如说(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 (共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