一门编程语言,假设不能对你思考编程的方式产生影响。就不值得去学习。——  Alan Perlis

(define rember*

  (lambda (a list)

    (cond

      ((null? list) '())

      ((atom? (car list)) (cond 

                      ((eq? a (car list)) (rember* a (cdr list)))

                      (else (cons (car list) (rember* a (cdr list))))))

      (else (cons (rember* a (car list)) (rember* a (cdr list)))))))





(rember* 'cup '((coffee) cup ((tea) cup) (and (hick)) cup))



(define insertR*

  (lambda (new old l)

    (cond

      ((null? l) '())

      ((atom?

(car l)) (cond

                         ((eq?

(car l) old) (cons old (cons new (cdr l))))

                         (else (cons (car l) (insertR* new old (cdr l))))))

      (else (cons (insertR* new old (car l)) (insertR* new old (cdr l)))))))



(insertR* 'roast 'chuck '((how much (wood))

                          could

                          ((a (wood) chuck))

                          (((chuck)))

                          (if (a) ((wood chuck)))

                          could chuck wood))



(define occur*

  (lambda (a l)

    (cond

      ((null?

l) 0)

      ((atom?

(car l)) (cond ((eq? a (car l)) (+ 1 (occur* a (cdr l))))

                             (else (occur* a (cdr l)))))

      (else (+ (occur* a (car l)) (occur* a (cdr l)))))))



(occur* 'banana '((banana) (split ((((banana ice)))

                                   (cream (banana))

                                   sherbet))

                           (banana)

                           (bread)

                           (banana brandy)))

(define subst*

  (lambda (new old l)

    (cond

      ((null? l) '())

      ((atom? (car l)) (cond

                         ((eq? old (car l)) (cons new (subst* new old (cdr l))))

                         (else (cons (car l) (subst* new old (cdr l))))))

      (else (cons (subst* new old (car l)) (subst* new old (cdr l)))))))

(subst* 'orange 'banana '((banana) (split ((((banana ice)))

                                   (cream (banana))

                                   sherbet))

                           (banana)

                           (bread)

                           (banana brandy)))



(define insertL*

  (lambda (new old l)

    (cond

      ((null? l) '())

      ((atom?

(car l)) (cond

                        ((eq?

old (car l)) (cons new (cons old (insertL* new old (cdr l)))))

                        (else (cons (car l) (insertL* new old (cdr l))))

                        ))

      (else (cons (insertL* new old (car l)) (insertL* new old (cdr l)))))))



(insertL* 'pecker 'chuck '((how much (wood))

                           could

                           ((a (wood) chuck))

                           (((chunck)))

                           (if (a) ((wood chuck)))

                           (could chuck wood)))



(define member*

  (lambda (a l)

    (cond

      ((null? l) #f)

      ((atom? (car l)) (cond

                         ((eq?

(car l) a) #t)

                         (else (member* a (cdr l)))))

      (else (or (member* a (car l))

                (member* a (cdr l)))))))



(member* 'chips '((potato) (chips ((with) fish)(chips))))

全民Scheme(2):来自星星的你的更多相关文章

  1. 全民Scheme(0):lat的定义

    接下来我会写一写Scheme的学习笔记.嗯,Scheme是属于小众的语言,但合适用来教学的. 什么是lat,就是遍历list里的每一个S-expression,假设发现当中某个不是atom的,则返回f ...

  2. 全民Scheme(1):数字游戏

    刚刚看到两句话,感觉不错,分享给大家: 1.用户的问题.就是我们的问题 2.做一些用户想要的东西 (define add1 (lambda (x) (+ 1 x))) (define sub1 (la ...

  3. Partition:Partiton Scheme是否指定Next Used?

    在SQL Server中,为Partition Scheme多次指定Next Used,不会出错,最后一次指定的FileGroup是Partition Scheme的Next Used,建议,在执行P ...

  4. Android业务组件化之URL Scheme使用

    前言: 最近公司业务发展迅速,单一的项目工程不再适合公司发展需要,所以开始推进公司APP业务组件化,很荣幸自己能够牵头做这件事,经过研究实现组件化的通信方案通过URL Scheme,所以想着现在还是在 ...

  5. iOS - URL Scheme 操作

    推荐JLRoutes路由跳转 NSScanner 在寻找更加灵活的页面跳转和通知,我遇见了JLRoutes,从而学习使用URL Scheme来定义界面入口.以前从来没有使用过,不过很多大厂和流行的框架 ...

  6. 自定义 URL Scheme 完全指南

    本文由 Migrant 翻译自 The Complete Tutorial on iOS/iPhone Custom URL Schemes,转载请注明出处. 注意: 自从自定义 URL 的引入,本文 ...

  7. JS魔法堂:Data URI Scheme介绍

    一.前言 上周五公司内部的Any Topic Conf.上我和同事们分享了这个主题,有同事说这个有用,有同事说这个没啥用,后来还延伸到网站性能的话题上,大家讨论的激烈程度让我觉得这次选题还不错.本篇先 ...

  8. CSS魔法堂:小结一下Box Model与Positioning Scheme

    前言  对于Box Model和Positioning Scheme中3种定位模式的细节,已经通过以下几篇文章记录了我对其的理解和思考.  <CSS魔法堂:重新认识Box Model.IFC.B ...

  9. Project、Target、Workspace and Scheme

    前言 今天有人问我Target和Project是什么关系?额...学习iOS开发都知道Target和Project的关系.这里我就简单的做了一个总结,而且加入的Scheme和Workspace.如果不 ...

随机推荐

  1. TRUNCATE delete

    The operation cannot be rolled back. DROP and TRUNCATE are DDL commands, whereas DELETE is a DML com ...

  2. GC参数

    串行收集器 串行收集器(Serial),是一个相对比较老的回收器,但是它的效率在回收器中相对较好,并且比较稳定.他在进行垃圾回收的过程中,使得应用暂时被挂起,然后启用单条线程去做垃圾回收,所以在进行垃 ...

  3. 51nod 1412 AVL树的种类

    非常简单的一道题,一眼题 枚举左儿子大小,再枚举深度即可 复杂度$O(n^2 log n)$ #include <cstdio> #include <cstring> #inc ...

  4. luoguP3600 随机数生成器 期望概率DP + DP优化

    这篇题解更像对他人题解的吐槽和补充? 考虑答案 $E[X] = \sum\limits_{i = 1}^{x} i P(X = i)$ $P(X = i)$不好求................(其实 ...

  5. 2017-2018-1 JAVA实验站 冲刺 day03

    2017-2018-1 JAVA实验站 冲刺 day03 各个成员今日完成的任务 小组成员 今日工作 完成进度 张韵琪 写博客.进行工作总结 100% 齐力锋 部分按钮图片.对按钮图片进行ps 100 ...

  6. 使用 dsc_extractor 导出 dyld_shared_cache_arm64

    iOS系统的全部Framework二进制被打包成一个cache文件,位于 /System/Library/Caches/com.apple.dyld 目录下,我们要想查看某个系统库的二进制需要将 dy ...

  7. kafka_2.11-0.8.2.1单机版安装

    1.下载kafka安装包wget http://mirrors.cnnic.cn/apache/kafka/0.8.2.1/kafka_2.11-0.8.2.1.tgz 2.复制到安装目录cp kaf ...

  8. .NET 中字符文本中的字符太多 错误处理

    错误截图   问题描述    在ASP.NET中使用多层引号,要引起注意,引号使用不当会引起“字符文本中字段太多”编译错误!今天我就遇到了这个错误,整理于此!     “字符文本中字段太多”错误提示过 ...

  9. require(): open_basedir restriction in effect. 解决方法

    在linux服务器部署thinkphp5的时候PHP报了这个错误, 如下: Warning: require(): open_basedir restriction in effect. File(/ ...

  10. 【张宴】PHP在金山游戏运营中的应用

    PPT下载地址1(国外服务器):http://blog.s135.com/attachment/201105/2011phptc_zy.zip PPT下载地址2(国内服务器):http://ishar ...