全民Scheme(3):为什么就不讲道理呢,女人?
2015-07-07 00:07
363 查看
人生最美好的东西,就是他同别人的友谊。——林肯
(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))))))
(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))))))
相关文章推荐
- java中比较两个日期的先后
- Matlab应用实例(6)—quadprog
- iOS层级结构
- C++ 11 右值引用以及std::move
- 设计模式学习--单例模式
- Android控件系列之RadioButton&RadioGroup
- TPC-DS 生成数据
- ZOJ-3261(Connections in Galaxy War)——并查集
- sed基本用法简介
- yale cas与webform 循环重定向问题
- php实现的任意进制互转类分享
- 一张表搞清楚php is_null、empty、isset的区别
- PHP导入导出Excel代码
- php抽象类用法实例分析
- php类的定义与继承用法实例
- Python中的urllib模块使用详解
- Python的多态性实例分析
- python生成IP段的方法
- python操作redis的方法
- python妹子图简单爬虫实例