由买买提看人间百态
登录
首页
论坛
未名存档
话题女王
小圈子
马甲追踪
版面排名
流量曲线
水枪排名
发帖量曲线
发帖版面饼图
发帖时间柱图
关于本站
帮助
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 fairness
●
Java有没有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
未名新帖统计
// 7月16日
#
版面
帖数(主题数)
-
全站
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)
* 这里只显示发帖超过25的版面,努力灌水吧:-)
历史上的今天
faintcat妹妹看进来~~
发表于12年前.
NSC, PD 1/7/2007, EB2, ...
发表于11年前.
[FBA求购]MJVE2 758 MJVM2 ...
发表于6年前.
老生常谈,归与不归
发表于10年前.
【申请】Seattle西雅图 版版主——申请人...
发表于9年前.
宝宝出生,头骨骨折,求祝福
发表于9年前.
求推荐舒缓优美的古典音乐
发表于11年前.
百分之一的北京人上北大 中国网友愤怒(转载)
发表于10年前.
新人带狗狗Bailey来报道
发表于12年前.
全世界最有价值的运动队
发表于10年前.
请问大切诺基的质量如何
发表于6年前.
TNND,军版全是BKC
发表于15年前.
Inception
发表于12年前.
微软的有些家属可真恶心,为了卖保险脸都不要了
发表于10年前.
每周坐高铁的苦逼来说说感受吧!!
发表于9年前.