suzanne.soy/cur
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add more boolean stuff

Browse Source
This commit is contained in:
William J. Bowman 2015-09-22 23:32:57 -04:00
parent fae24ab496
commit c5eb2ff2af
No known key found for this signature in database
GPG Key ID: DDD48D26958F0D1A
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
stdlib/bool.rkt
View File

@ -20,3 +20,25 @@
(require rackunit) (require rackunit)
(check-equal? (not true) false) (check-equal? (not true) false)
(check-equal? (not false) true)) (check-equal? (not false) true))
(define (and (x : Bool) (y : Bool))
(if x
y
(not y)))
(module+ test
(check-equal? (and true false) false)
(check-equal? (and false false) true)
(check-equal? (and false true) false)
(check-equal? (and true true) true))
(define (or (x : Bool) (y : Bool))
(if x
true
y))
(module+ test
(check-equal? (or true false) true)
(check-equal? (or false false) false)
(check-equal? (or false true) true)
(check-equal? (or true true) true))