全民Scheme(3):为什么就不讲道理呢,女人?

原创 2015年07月07日 00:07:03


人生最美好的东西,就是他同别人的友谊。——林肯

(define set?
  (lambda (l)
    (cond
    ((null? l) #t)
    ((member? (car l) (cdr l)) #f)
    (else (set? (cdr l))))))
(set? '(apples peaches pear plums))
(set? '(apple peaches apple plum))
(define makesetx
  (lambda (lat)
    (cond
      ((null? lat) '())
      ((member? (car lat) (cdr lat)) (makesetx (cdr lat)))
      (else (cons (car lat) (makesetx (cdr lat)))))))
(makesetx '(apple peach pear peach plum apple lemon peach))
(define makeset
  (lambda (lat)
    (cond
      ((null? lat) '())
      ((member? (car lat) (cdr lat)) (cons (car lat) (makeset (multirember (car lat) (cdr lat)))))
      (else (cons (car lat) (makeset (cdr lat)))))))
(makeset '(apple peach pear peach plum apple lemon peach))
(makeset '(apple 3 pear 4 9 apple 3 4))
(define subset?
  (lambda (set1 set2)
    (cond
      ((null? set1) #t)
      ((member? (car set1) set2) (subset? (cdr set1) set2))
      (else #f))))
(subset? '(4 pounds of horseradish) '(four pounds chicken and 5 ounces horseradish))
(subset? '(5 chicken wings) '(5 hamburgers 2 pieces fried chicken and light duckling wings))
(define subsetx?
  (lambda (set1 set2)
    (cond
      ((null? set1) #t)
      (else (and (member? (car set1) set2)
                 (subsetx? (cdr set1) set2))))))
(define eqset?
  (lambda (set1 set2)
    (cond
      ((subset? set1 set2)
      (subset? set2 set1))
      (else #f))))
(define eqsetx?
  (lambda (set1 set2)
      (and (subsetx? set1 set2) (subsetx? set2 set1))))
(define intersect?
  (lambda (set1 set2)
    (cond
      ((null? set1) #f)
      (else
       (or (member? (car set1) set2)
           (intersect? (cdr set1) set2))))))
(intersect? '(stewed tomatoes and macaroni) '(macaroni and cheese))
(define union
  (lambda (set1 set2)
    (cond
      ((null? set1) set2)
      ((member? (car set1) set2)
       (union (cdr set1) set2))
      (else (cons (car set1)
                  (union (cdr set1) set2))))))


版权声明:本文为博主原创文章,未经博主允许不得转载。

讲道理在强奸犯眼里很滑稽

作者:晚情出处:倾我们所能去生活 从昨天到现在,起码有十几个人给我发链接,都是同一件事:南方日报记者成希诱奸女实习生。 我看到的这篇文章是这样的: 实习生小卉离开一年多以后,为了开实习证明,就发微信...

别再给员工讲道理了,没人听!

千万不要把自己当成救世主,带人其实是管人,就是让人把事情做好。简单是最有效的:.........

详细讲解装饰者模式和继承之间的关系和优劣(讲道理这事儿,不怕过 就怕不够)

在上一个装饰者模式简单实例中,可能有的朋友会觉得:使用继承不也是可以实现的嘛,干嘛这么麻烦。具体如下: 新建一个类,继承PersonBefore,然后,在子类里面调用super.eat(),也是可以直...

讲道理,快速排序不是应该比希尔排序更快吗?

但是我写的代码测试出来确实希尔排序比快速排序快得多,这是为什么呢?而且没对快速排序优化之前,两次递归,很容易栈溢出,崩溃 这是为什么呢?上代码: //希尔排序 template void Shel...

道理我都懂,可我就是不爱讲道理啊

引导语:不几道你们有没有这种情况……就是,突然的很低落,特别想撒泼耍无赖撒娇到处滚,然后被哄被抱抱这样然而现实中并没有人哄你,然后就只能憋着,越憋越难过,但是其实,根本就没啥事……   ...

全民Scheme(1):数字游戏

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

3ds max女护士走路女人人体模型

  • 2016年10月15日 22:00
  • 5.61MB
  • 下载

最佳实战:用Cocos2d-x3.x和C++11编写2048游戏以及游戏AI(全民2048 Android版上线啦)

话说,年仅19岁的意大利人Gabriele Cirulli于2014年3月完成并发布在github上,游戏设计来自于《1024》,而《1024》灵感来源于《Threes!》的移动端游戏。然而游戏飙升的...

3DS女人模型

  • 2014年11月24日 10:41
  • 247KB
  • 下载

3dmax9.0英文版女人人物建模

  • 2011年06月16日 03:01
  • 1.78MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:全民Scheme(3):为什么就不讲道理呢,女人?
举报原因:
原因补充:

(最多只允许输入30个字)