forked from bao-qian/lightsabers
-
Notifications
You must be signed in to change notification settings - Fork 0
/
boolean-simp.ss
104 lines (80 loc) · 2.78 KB
/
boolean-simp.ss
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
;; Boolean expression simplification into sum-of-products
;; author: Yin Wang ([email protected])
;---------------------------------------------
;; (1) Push 'and' into 'or'
;; (2) Push 'not' into 'and' and 'or'
;; Do (1) and (2) recursively until no more simplification can be made
(define simpl
(lambda (exp)
(match exp
[`(and (or ,a ,b) ,c)
`(or ,(simpl `(and ,(simpl a) ,(simpl c)))
,(simpl `(and ,(simpl b) ,(simpl c))))]
[`(and ,c (or ,a ,b))
`(or ,(simpl `(and ,(simpl c) ,(simpl a)))
,(simpl `(and ,(simpl c) ,(simpl b))))]
[`(not (and ,a ,b))
`(or ,(simpl `(not ,a)) ,(simpl `(not ,b)))]
[`(not (or ,a ,b))
`(and ,(simpl `(not ,a)) ,(simpl `(not ,b)))]
[`(and ,a ,b)
`(and ,(simpl a) ,(simpl b))]
[`(or ,a ,b)
`(or ,(simpl a) ,(simpl b))]
[`(not ,a ,b)
`(not ,(simpl a) ,(simpl b))]
[other other])))
;---------------------------------------------
;; Combine nested expressions with same operator, for example
;; (and (and a b) c) ==> (and a b c)
;; (or a (or b c)) ==> (or a b c)
;; (not (not a)) ==> a
(define combine
(lambda (exp)
(define combine1
(lambda (ct)
(lambda (exp)
(match exp
[`(and ,a ,a)
(list a)]
[`(or ,a ,a)
(list a)]
[`(and ,x* ...)
(let ([y* (apply append (map (combine1 'and) x*))])
(if (eq? 'and ct) y* `((and ,@y*))))]
[`(or ,x* ...)
(let ([y* (apply append (map (combine1 'or) x*))])
(if (eq? 'or ct) y* `((or ,@y*))))]
[`(not (not ,a))
((combine1 ct) a)]
[other (list other)]))))
(car ((combine1 'id) exp))))
;; Examples for combine:
;; (combine '(and (and a (and b (and c (and d e))))))
;; (combine '(and (and (and (and a b) c) d) e))
;; (combine '(and (and a (and b c)) (and d e)))
;; (combine '(or (and a (and b c) d)))
;; (combine '(not (not a)))
;; (combine '(not (not (not (not a)))))
;---------------------------------------------
;; main function (simpl then combine)
(define simplify
(lambda (exp)
(combine (simpl exp))))
;------------------ examples ------------------
(simplify '(and (or football basketball) baby))
;; ==>
;; '(or (and football baby) (and basketball baby))
;---------------------------------------------
(simplify '(and (not (and a (or b c))) (or d e)))
;; ==>
;; '(or (and (not a) d)
;; (and (not b) (not c) d)
;; (and (not a) e)
;; (and (not b) (not c) e))
;---------------------------------------------
(simplify '(not (and (not a) (not (and b c)))))
;; ==> '(or a (and b c))
;---------------------------------------------
(simplify '(and (or a b) (or a c)))
;; ==> '(or (and a c) (and a d) (and b c) (and b d))