全民Scheme(0):lat的定义
2015-12-24 10:44
190 查看
接下来我会写一写Scheme的学习笔记。嗯,Scheme是属于小众的语言,但合适用来教学的。
什么是lat,就是遍历list里的每一个S-expression,假设发现当中某个不是atom的,则返回false,否则返回true。
(define atom?
(lambda (x)
(and (not (pair?
x)) (not (null? x)))))
(define lat?
(lambda (l)
(cond
((null? l) #t)
((atom? (car l)) (lat?
(cdr l)))
(else #f))))
(lat? '())
(lat? '(jack sprat could eat no chicken fat))
(lat? '((jack) sprat))
(lat?
'(jack (sprat could) eat))
什么是lat,就是遍历list里的每一个S-expression,假设发现当中某个不是atom的,则返回false,否则返回true。
(define atom?
(lambda (x)
(and (not (pair?
x)) (not (null? x)))))
(define lat?
(lambda (l)
(cond
((null? l) #t)
((atom? (car l)) (lat?
(cdr l)))
(else #f))))
(lat? '())
(lat? '(jack sprat could eat no chicken fat))
(lat? '((jack) sprat))
(lat?
'(jack (sprat could) eat))
相关文章推荐
- 青瓷引擎研发
- Python
- 能量晶石
- mysql 点赞取消点赞语句
- CodeForces 572A,B,C
- 策略模式【 Strategy Pattern】
- treeviw的展开属性
- vs打开utf8编码文件
- iOS开发-如何把广告,图片通过代码加到Screen上
- redis安装
- 根据页面长度实现阅读进度条原理
- Linux 内核list使用
- 处理iOS键盘通知
- 关于百度地图 key 的问题
- android webview显示html代码出现乱码的问题解决
- update-rc.d的具体用法
- [转]Worksheet.Change Event (Excel)
- 站长VS微商 你选择哪个?
- 关于mysql的limit用于分页查询的优化
- Eclipse修改项目名称