Chinaunix首页 | 论坛 | 博客
  • 博客访问: 248052
  • 博文数量: 49
  • 博客积分: 110
  • 博客等级: 民兵
  • 技术积分: 510
  • 用 户 组: 普通用户
  • 注册时间: 2013-01-13 00:59
个人简介

make it run,make it better,make it fast. https://github.com/liulanghaitun

文章分类

全部博文(49)

文章存档

2023年(1)

2022年(2)

2020年(4)

2019年(4)

2017年(15)

2016年(3)

2014年(3)

2013年(14)

发布时间:2020-09-15 08:42:53

(define lot  (lambda(ls)    (not (null? ls))))(define member&  (lambda (elem ls cont)    (cond      ((null? ls) (cont '()))      ((eq? elem (car ls)) (member& elem (cdr ls) (lambda (res) (cont (cons elem res)))))     .........【阅读全文】

阅读(1019) | 评论(0) | 转发(0)
给主人留下些什么吧!~~
留言热议
请登录后留言。

登录 注册